diff options
Diffstat (limited to 'openmp/runtime/src/include/41/omp_lib.h.var')
| -rw-r--r-- | openmp/runtime/src/include/41/omp_lib.h.var | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/openmp/runtime/src/include/41/omp_lib.h.var b/openmp/runtime/src/include/41/omp_lib.h.var index 1323831c890..867bcd97b09 100644 --- a/openmp/runtime/src/include/41/omp_lib.h.var +++ b/openmp/runtime/src/include/41/omp_lib.h.var @@ -28,7 +28,7 @@ integer, parameter :: kmp_pointer_kind = int_ptr_kind() integer, parameter :: kmp_size_t_kind = int_ptr_kind() integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind() - integer, parameter :: kmp_lock_hint_kind = omp_integer_kind + integer, parameter :: omp_lock_hint_kind = omp_integer_kind integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@ integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@ @@ -48,14 +48,14 @@ integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3 integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4 - integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_none = 0 - integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_uncontended = 1 - integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_contended = 2 - integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_nonspeculative = 3 - integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_speculative = 4 - integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 5 - integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 6 - integer (kind=kmp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 7 + integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none = 0 + integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended = 1 + integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended = 2 + integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = 4 + integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative = 8 + integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 65536 + integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 131072 + integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 262144 interface @@ -428,17 +428,17 @@ subroutine kmp_set_warnings_off() bind(c) end subroutine kmp_set_warnings_off - subroutine kmp_init_lock_hinted(lockvar, lockhint) bind(c) + subroutine omp_init_lock_with_hint(lockvar, lockhint) bind(c) import integer (kind=omp_lock_kind) lockvar - integer (kind=kmp_lock_hint_kind), value :: lockhint - end subroutine kmp_init_lock_hinted + integer (kind=omp_lock_hint_kind), value :: lockhint + end subroutine omp_init_lock_with_hint - subroutine kmp_init_nest_lock_hinted(lockvar, lockhint) bind(c) + subroutine omp_init_nest_lock_with_hint(lockvar, lockhint) bind(c) import integer (kind=omp_lock_kind) lockvar - integer (kind=kmp_lock_hint_kind), value :: lockhint - end subroutine kmp_init_nest_lock_hinted + integer (kind=omp_lock_hint_kind), value :: lockhint + end subroutine omp_init_nest_lock_with_hint end interface @@ -508,8 +508,8 @@ !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off -!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_init_lock_hinted -!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_init_nest_lock_hinted +!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock_with_hint +!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock_with_hint !DIR$ IF(__INTEL_COMPILER.GE.1400) !$omp declare target(omp_set_num_threads ) @@ -577,8 +577,8 @@ !$omp declare target(kmp_free ) !$omp declare target(kmp_set_warnings_on ) !$omp declare target(kmp_set_warnings_off ) -!$omp declare target(kmp_init_lock_hinted ) -!$omp declare target(kmp_init_nest_lock_hinted ) +!$omp declare target(omp_init_lock_with_hint ) +!$omp declare target(omp_init_nest_lock_with_hint ) !DIR$ ENDIF !DIR$ ENDIF |
