33f7b24d9f
OpenMP 4.0 "target" directives. This will need more work for generality, but we want to get it out and visible to the community. llvm-svn: 205909
442 lines
20 KiB
Fortran
442 lines
20 KiB
Fortran
!
|
|
!//===----------------------------------------------------------------------===//
|
|
!//
|
|
!// 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
|