diff options
Diffstat (limited to 'openmp/runtime/src/include/40/omp_lib.h.var')
| -rw-r--r-- | openmp/runtime/src/include/40/omp_lib.h.var | 64 |
1 files changed, 32 insertions, 32 deletions
diff --git a/openmp/runtime/src/include/40/omp_lib.h.var b/openmp/runtime/src/include/40/omp_lib.h.var index 1405ff5131b..7c461a86de9 100644 --- a/openmp/runtime/src/include/40/omp_lib.h.var +++ b/openmp/runtime/src/include/40/omp_lib.h.var @@ -53,19 +53,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) @@ -145,16 +145,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) @@ -175,9 +175,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) @@ -200,86 +200,86 @@ logical (kind=omp_logical_kind) omp_is_initial_device end function omp_is_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 ! *** |
