summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--openmp/runtime/src/include/41/omp_lib.f90.var76
-rw-r--r--openmp/runtime/src/include/41/omp_lib.h.var76
2 files changed, 76 insertions, 76 deletions
diff --git a/openmp/runtime/src/include/41/omp_lib.f90.var b/openmp/runtime/src/include/41/omp_lib.f90.var
index df118d90a0f..241bceb9ec2 100644
--- a/openmp/runtime/src/include/41/omp_lib.f90.var
+++ b/openmp/runtime/src/include/41/omp_lib.f90.var
@@ -74,19 +74,19 @@
! *** omp_* entry points
! ***
- subroutine omp_set_num_threads(nthreads) bind(c)
+ subroutine omp_set_num_threads(num_threads) bind(c)
use omp_lib_kinds
- integer (kind=omp_integer_kind), value :: nthreads
+ integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
- subroutine omp_set_dynamic(enable) bind(c)
+ subroutine omp_set_dynamic(dynamic_threads) bind(c)
use omp_lib_kinds
- logical (kind=omp_logical_kind), value :: enable
+ logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
- subroutine omp_set_nested(enable) bind(c)
+ subroutine omp_set_nested(nested) bind(c)
use omp_lib_kinds
- logical (kind=omp_logical_kind), value :: enable
+ logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
@@ -166,16 +166,16 @@
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
- subroutine omp_set_schedule(kind, modifier) bind(c)
+ subroutine omp_set_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind), value :: kind
- integer (kind=omp_integer_kind), value :: modifier
+ integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
- subroutine omp_get_schedule(kind, modifier) bind(c)
+ subroutine omp_get_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
- integer (kind=omp_integer_kind) modifier
+ integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
@@ -230,9 +230,9 @@
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
- subroutine omp_set_default_device(dflt_device) bind(c)
+ subroutine omp_set_default_device(device_num) bind(c)
use omp_lib_kinds
- integer (kind=omp_integer_kind), value :: dflt_device
+ integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
@@ -265,86 +265,86 @@
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
- subroutine omp_init_lock(lockvar) bind(c)
+ subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
use omp_lib_kinds
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
- subroutine omp_destroy_lock(lockvar) bind(c)
+ subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
use omp_lib_kinds
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
- subroutine omp_set_lock(lockvar) bind(c)
+ subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
use omp_lib_kinds
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
- subroutine omp_unset_lock(lockvar) bind(c)
+ subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
use omp_lib_kinds
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
- function omp_test_lock(lockvar) bind(c)
+ function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end function omp_test_lock
- subroutine omp_init_nest_lock(lockvar) bind(c)
+ subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
- subroutine omp_destroy_nest_lock(lockvar) bind(c)
+ subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
- subroutine omp_set_nest_lock(lockvar) bind(c)
+ subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
- subroutine omp_unset_nest_lock(lockvar) bind(c)
+ subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
- function omp_test_nest_lock(lockvar) bind(c)
+ function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority() bind(c)
@@ -502,16 +502,16 @@
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
- subroutine omp_init_lock_with_hint(lockvar, lockhint) bind(c)
+ subroutine omp_init_lock_with_hint(svar, hint) bind(c)
use omp_lib_kinds
- integer (kind=omp_lock_kind) lockvar
- integer (kind=omp_lock_hint_kind), value :: lockhint
+ integer (kind=omp_lock_kind) svar
+ integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint
- subroutine omp_init_nest_lock_with_hint(lockvar, lockhint) bind(c)
+ subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
use omp_lib_kinds
- integer (kind=omp_lock_kind) lockvar
- integer (kind=omp_lock_hint_kind), value :: lockhint
+ integer (kind=omp_lock_kind) nvar
+ integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint
end interface
diff --git a/openmp/runtime/src/include/41/omp_lib.h.var b/openmp/runtime/src/include/41/omp_lib.h.var
index cc0714ed833..1fb66254a16 100644
--- a/openmp/runtime/src/include/41/omp_lib.h.var
+++ b/openmp/runtime/src/include/41/omp_lib.h.var
@@ -63,19 +63,19 @@
! *** omp_* entry points
! ***
- subroutine omp_set_num_threads(nthreads) bind(c)
+ subroutine omp_set_num_threads(num_threads) bind(c)
import
- integer (kind=omp_integer_kind), value :: nthreads
+ integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
- subroutine omp_set_dynamic(enable) bind(c)
+ subroutine omp_set_dynamic(dynamic_threads) bind(c)
import
- logical (kind=omp_logical_kind), value :: enable
+ logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
- subroutine omp_set_nested(enable) bind(c)
+ subroutine omp_set_nested(nested) bind(c)
import
- logical (kind=omp_logical_kind), value :: enable
+ logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
@@ -155,16 +155,16 @@
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
- subroutine omp_set_schedule(kind, modifier) bind(c)
+ subroutine omp_set_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind), value :: kind
- integer (kind=omp_integer_kind), value :: modifier
+ integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
- subroutine omp_get_schedule(kind, modifier) bind(c)
+ subroutine omp_get_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind) kind
- integer (kind=omp_integer_kind) modifier
+ integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
@@ -217,9 +217,9 @@
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
- subroutine omp_set_default_device(dflt_device) bind(c)
+ subroutine omp_set_default_device(device_num) bind(c)
import
- integer (kind=omp_integer_kind), value :: dflt_device
+ integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
@@ -247,86 +247,86 @@
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
- subroutine omp_init_lock(lockvar) bind(c)
+ subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
import
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
- subroutine omp_destroy_lock(lockvar) bind(c)
+ subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
import
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
- subroutine omp_set_lock(lockvar) bind(c)
+ subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
import
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
- subroutine omp_unset_lock(lockvar) bind(c)
+ subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
import
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
- function omp_test_lock(lockvar) bind(c)
+ function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
import
logical (kind=omp_logical_kind) omp_test_lock
- integer (kind=omp_lock_kind) lockvar
+ integer (kind=omp_lock_kind) svar
end function omp_test_lock
- subroutine omp_init_nest_lock(lockvar) bind(c)
+ subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
import
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
- subroutine omp_destroy_nest_lock(lockvar) bind(c)
+ subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
import
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
- subroutine omp_set_nest_lock(lockvar) bind(c)
+ subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
import
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
- subroutine omp_unset_nest_lock(lockvar) bind(c)
+ subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
import
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
- function omp_test_nest_lock(lockvar) bind(c)
+ function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_integer_kind) omp_test_nest_lock
- integer (kind=omp_nest_lock_kind) lockvar
+ integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority() bind(c)
@@ -477,16 +477,16 @@
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
- subroutine omp_init_lock_with_hint(lockvar, lockhint) bind(c)
+ subroutine omp_init_lock_with_hint(svar, hint) bind(c)
import
- integer (kind=omp_lock_kind) lockvar
- integer (kind=omp_lock_hint_kind), value :: lockhint
+ integer (kind=omp_lock_kind) svar
+ integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint
- subroutine omp_init_nest_lock_with_hint(lockvar, lockhint) bind(c)
+ subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
import
- integer (kind=omp_lock_kind) lockvar
- integer (kind=omp_lock_hint_kind), value :: lockhint
+ integer (kind=omp_lock_kind) nvar
+ integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint
end interface
OpenPOWER on IntegriCloud