diff options
Diffstat (limited to 'openmp/offload/src/mic_lib.f90')
| -rw-r--r-- | openmp/offload/src/mic_lib.f90 | 441 |
1 files changed, 0 insertions, 441 deletions
diff --git a/openmp/offload/src/mic_lib.f90 b/openmp/offload/src/mic_lib.f90 deleted file mode 100644 index 0c2e4de0bf8..00000000000 --- a/openmp/offload/src/mic_lib.f90 +++ /dev/null @@ -1,441 +0,0 @@ -! -!//===----------------------------------------------------------------------===// -!// -!// The LLVM Compiler Infrastructure -!// -!// This file is dual licensed under the MIT and the University of Illinois Open -!// Source Licenses. See LICENSE.txt for details. -!// -!//===----------------------------------------------------------------------===// -! - - -! ********************************************************************************** -! * This file is intended to support the Intel(r) Many Integrated Core Architecture. -! ********************************************************************************** -! free form Fortran source - should be named .f90 -! lines are longer than 72 characters - -module mic_lib -use, intrinsic :: iso_c_binding - -integer, parameter:: target_mic=2 -integer, parameter:: default_target_type=target_mic -integer, parameter:: default_target_number=0 - -enum, bind(C) - enumerator :: OFFLOAD_SUCCESS = 0 - enumerator :: OFFLOAD_DISABLED ! offload is disabled - enumerator :: OFFLOAD_UNAVAILABLE ! card is not available - enumerator :: OFFLOAD_OUT_OF_MEMORY ! not enough memory on device - enumerator :: OFFLOAD_PROCESS_DIED ! target process has died - enumerator :: OFFLOAD_ERROR ! unspecified error -end enum - -type, bind (C) :: offload_status - integer(kind=c_int) :: result = OFFLOAD_DISABLED - integer(kind=c_int) :: device_number = -1 - integer(kind=c_size_t) :: data_sent = 0 - integer(kind=c_size_t) :: data_received = 0 -end type offload_status - -interface -function offload_number_of_devices () & - bind (C, name = "_Offload_number_of_devices") -!dec$ attributes default :: offload_number_of_devices - import :: c_int - integer (kind=c_int) :: offload_number_of_devices -!dec$ attributes offload:mic :: offload_number_of_devices -!dir$ attributes known_intrinsic :: offload_number_of_devices -end function offload_number_of_devices - -function offload_signaled(target_number, signal) & - bind (C, name = "_Offload_signaled") -!dec$ attributes default :: offload_signaled - import :: c_int, c_int64_t - integer (kind=c_int) :: offload_signaled - integer (kind=c_int), value :: target_number - integer (kind=c_int64_t), value :: signal -!dec$ attributes offload:mic :: offload_signaled -end function offload_signaled - -subroutine offload_report(val) & - bind (C, name = "_Offload_report") -!dec$ attributes default :: offload_report - import :: c_int - integer (kind=c_int), value :: val -!dec$ attributes offload:mic :: offload_report -end subroutine offload_report - -function offload_get_device_number() & - bind (C, name = "_Offload_get_device_number") -!dec$ attributes default :: offload_get_device_number - import :: c_int - integer (kind=c_int) :: offload_get_device_number -!dec$ attributes offload:mic :: offload_get_device_number -end function offload_get_device_number - -function offload_get_physical_device_number() & - bind (C, name = "_Offload_get_physical_device_number") -!dec$ attributes default :: offload_get_physical_device_number - import :: c_int - integer (kind=c_int) :: offload_get_physical_device_number -!dec$ attributes offload:mic :: offload_get_physical_device_number -end function offload_get_physical_device_number - -! OpenMP API wrappers - -subroutine omp_set_num_threads_target (target_type, & - target_number, & - num_threads) & - bind (C, name = "omp_set_num_threads_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number, num_threads -end subroutine omp_set_num_threads_target - -function omp_get_max_threads_target (target_type, & - target_number) & - bind (C, name = "omp_get_max_threads_target") - import :: c_int - integer (kind=c_int) :: omp_get_max_threads_target - integer (kind=c_int), value :: target_type, target_number -end function omp_get_max_threads_target - -function omp_get_num_procs_target (target_type, & - target_number) & - bind (C, name = "omp_get_num_procs_target") - import :: c_int - integer (kind=c_int) :: omp_get_num_procs_target - integer (kind=c_int), value :: target_type, target_number -end function omp_get_num_procs_target - -subroutine omp_set_dynamic_target (target_type, & - target_number, & - num_threads) & - bind (C, name = "omp_set_dynamic_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number, num_threads -end subroutine omp_set_dynamic_target - -function omp_get_dynamic_target (target_type, & - target_number) & - bind (C, name = "omp_get_dynamic_target") - import :: c_int - integer (kind=c_int) :: omp_get_dynamic_target - integer (kind=c_int), value :: target_type, target_number -end function omp_get_dynamic_target - -subroutine omp_set_nested_target (target_type, & - target_number, & - nested) & - bind (C, name = "omp_set_nested_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number, nested -end subroutine omp_set_nested_target - -function omp_get_nested_target (target_type, & - target_number) & - bind (C, name = "omp_get_nested_target") - import :: c_int - integer (kind=c_int) :: omp_get_nested_target - integer (kind=c_int), value :: target_type, target_number -end function omp_get_nested_target - -subroutine omp_set_schedule_target (target_type, & - target_number, & - kind, & - modifier) & - bind (C, name = "omp_set_schedule_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number, kind, modifier -end subroutine omp_set_schedule_target - -subroutine omp_get_schedule_target (target_type, & - target_number, & - kind, & - modifier) & - bind (C, name = "omp_get_schedule_target") - import :: c_int, c_intptr_t - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: kind, modifier -end subroutine omp_get_schedule_target - -! lock API functions - -subroutine omp_init_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_init_lock_target") - import :: c_int, c_intptr_t - !dir$ attributes known_intrinsic :: omp_init_lock_target - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end subroutine omp_init_lock_target - -subroutine omp_destroy_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_destroy_lock_target") - import :: c_int, c_intptr_t - !dir$ attributes known_intrinsic :: omp_destroy_lock_target - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end subroutine omp_destroy_lock_target - -subroutine omp_set_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_set_lock_target") - import :: c_int, c_intptr_t - !dir$ attributes known_intrinsic :: omp_set_lock_target - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end subroutine omp_set_lock_target - -subroutine omp_unset_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_unset_lock_target") - import :: c_int, c_intptr_t - !dir$ attributes known_intrinsic :: omp_unset_lock_target - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end subroutine omp_unset_lock_target - -function omp_test_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_test_lock_target") - import :: c_int, c_intptr_t - integer (kind=c_int) :: omp_test_lock_target - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end function omp_test_lock_target - -! nested lock API functions - -subroutine omp_init_nest_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_init_nest_lock_target") - import :: c_int, c_intptr_t - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end subroutine omp_init_nest_lock_target - -subroutine omp_destroy_nest_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_destroy_nest_lock_target") - import :: c_int, c_intptr_t - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end subroutine omp_destroy_nest_lock_target - -subroutine omp_set_nest_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_set_nest_lock_target") - import :: c_int, c_intptr_t - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end subroutine omp_set_nest_lock_target - -subroutine omp_unset_nest_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_unset_nest_lock_target") - import :: c_int, c_intptr_t - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end subroutine omp_unset_nest_lock_target - -function omp_test_nest_lock_target (target_type, & - target_number, & - lock) & - bind (C, name = "omp_test_nest_lock_target") - import :: c_int, c_intptr_t - integer (kind=c_int) :: omp_test_nest_lock_target - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: lock -end function omp_test_nest_lock_target - -! kmp API functions - -subroutine kmp_set_stacksize_target (target_type, & - target_number, & - size) & - bind (C, name = "kmp_set_stacksize_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number, size -end subroutine kmp_set_stacksize_target - -function kmp_get_stacksize_target (target_type, & - target_number) & - bind (C, name = "kmp_get_stacksize_target") - import :: c_int - integer (kind=c_int) :: kmp_get_stacksize_target - integer (kind=c_int), value :: target_type, target_number -end function kmp_get_stacksize_target - -subroutine kmp_set_stacksize_s_target (target_type, & - target_number, & - size) & - bind (C, name = "kmp_set_stacksize_s_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number, size -end subroutine kmp_set_stacksize_s_target - -function kmp_get_stacksize_s_target (target_type, & - target_number) & - bind (C, name = "kmp_get_stacksize_s_target") - import :: c_int - integer (kind=c_int) :: kmp_get_stacksize_s_target - integer (kind=c_int), value :: target_type, target_number -end function kmp_get_stacksize_s_target - -subroutine kmp_set_blocktime_target (target_type, & - target_number, & - time) & - bind (C, name = "kmp_set_blocktime_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number, time -end subroutine kmp_set_blocktime_target - -function kmp_get_blocktime_target (target_type, & - target_number) & - bind (C, name = "kmp_get_blocktime_target") - import :: c_int - integer (kind=c_int) :: kmp_get_blocktime_target - integer (kind=c_int), value :: target_type, target_number -end function kmp_get_blocktime_target - -subroutine kmp_set_library_serial_target (target_type, & - target_number) & - bind (C, name = "kmp_set_library_serial_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number -end subroutine kmp_set_library_serial_target - -subroutine kmp_set_library_turnaround_target (target_type, & - target_number) & - bind (C, name = "kmp_set_library_turnaround_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number -end subroutine kmp_set_library_turnaround_target - -subroutine kmp_set_library_throughput_target (target_type, & - target_number) & - bind (C, name = "kmp_set_library_throughput_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number -end subroutine kmp_set_library_throughput_target - -subroutine kmp_set_library_target (target_type, & - target_number, & - mode) & - bind (C, name = "kmp_set_library_target") - import :: c_int - integer (kind=c_int), value :: target_type, target_number, mode -end subroutine kmp_set_library_target - -function kmp_get_library_target (target_type, & - target_number) & - bind (C, name = "kmp_get_library_target") - import :: c_int - integer (kind=c_int) :: kmp_get_library_target - integer (kind=c_int), value :: target_type, target_number -end function kmp_get_library_target - -subroutine kmp_set_defaults_target (target_type, & - target_number, & - defaults) & - bind (C, name = "kmp_set_defaults_target") - import :: c_int, c_char - character (kind=c_char) :: defaults(*) - integer (kind=c_int), value :: target_type, target_number -end subroutine kmp_set_defaults_target - -! affinity API functions - -subroutine kmp_create_affinity_mask_target (target_type, & - target_number, & - mask) & - bind (C, name = "kmp_create_affinity_mask_target") - import :: c_int, c_intptr_t - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: mask -end subroutine kmp_create_affinity_mask_target - -subroutine kmp_destroy_affinity_mask_target (target_type, & - target_number, & - mask) & - bind (C, name = "kmp_destroy_affinity_mask_target") - import :: c_int, c_intptr_t - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: mask -end subroutine kmp_destroy_affinity_mask_target - -function kmp_set_affinity_target (target_type, & - target_number, & - mask) & - bind (C, name = "kmp_set_affinity_target") - import :: c_int, c_intptr_t - integer (kind=c_int) :: kmp_set_affinity_target - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: mask -end function kmp_set_affinity_target - -function kmp_get_affinity_target (target_type, & - target_number, & - mask) & - bind (C, name = "kmp_get_affinity_target") - import :: c_int, c_intptr_t - integer (kind=c_int) :: kmp_get_affinity_target - integer (kind=c_int), value :: target_type, target_number - integer (kind=c_intptr_t), value :: mask -end function kmp_get_affinity_target - -function kmp_get_affinity_max_proc_target (target_type, & - target_number) & - bind (C, name = "kmp_get_affinity_max_proc_target") - import :: c_int - integer (kind=c_int) :: kmp_get_affinity_max_proc_target - integer (kind=c_int), value :: target_type, target_number -end function kmp_get_affinity_max_proc_target - -function kmp_set_affinity_mask_proc_target (target_type, & - target_number, & - proc, & - mask) & - bind (C, name = "kmp_set_affinity_mask_proc_target") - import :: c_int, c_intptr_t - integer (kind=c_int) :: kmp_set_affinity_mask_proc_target - integer (kind=c_int), value :: target_type, target_number, proc - integer (kind=c_intptr_t), value :: mask -end function kmp_set_affinity_mask_proc_target - -function kmp_unset_affinity_mask_proc_target (target_type, & - target_number, & - proc, & - mask) & - bind (C, name = "kmp_unset_affinity_mask_proc_target") - import :: c_int, c_intptr_t - integer (kind=c_int) :: kmp_unset_affinity_mask_proc_target - integer (kind=c_int), value :: target_type, target_number, proc - integer (kind=c_intptr_t), value :: mask -end function kmp_unset_affinity_mask_proc_target - -function kmp_get_affinity_mask_proc_target (target_type, & - target_number, & - proc, & - mask) & - bind (C, name = "kmp_get_affinity_mask_proc_target") - import :: c_int, c_intptr_t - integer (kind=c_int) :: kmp_get_affinity_mask_proc_target - integer (kind=c_int), value :: target_type, target_number, proc - integer (kind=c_intptr_t), value :: mask -end function kmp_get_affinity_mask_proc_target - -end interface -end module mic_lib |
