[Openmp-commits] [openmp] r270447 - Changed parameter names in Fortran modules to correspond with OpenMP 4.5 specification
Jonathan Peyton via Openmp-commits
openmp-commits at lists.llvm.org
Mon May 23 09:24:39 PDT 2016
Author: jlpeyton
Date: Mon May 23 11:24:39 2016
New Revision: 270447
URL: http://llvm.org/viewvc/llvm-project?rev=270447&view=rev
Log:
Changed parameter names in Fortran modules to correspond with OpenMP 4.5 specification
Modified:
openmp/trunk/runtime/src/include/41/omp_lib.f90.var
openmp/trunk/runtime/src/include/41/omp_lib.h.var
Modified: openmp/trunk/runtime/src/include/41/omp_lib.f90.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/41/omp_lib.f90.var?rev=270447&r1=270446&r2=270447&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/41/omp_lib.f90.var (original)
+++ openmp/trunk/runtime/src/include/41/omp_lib.f90.var Mon May 23 11:24:39 2016
@@ -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
Modified: openmp/trunk/runtime/src/include/41/omp_lib.h.var
URL: http://llvm.org/viewvc/llvm-project/openmp/trunk/runtime/src/include/41/omp_lib.h.var?rev=270447&r1=270446&r2=270447&view=diff
==============================================================================
--- openmp/trunk/runtime/src/include/41/omp_lib.h.var (original)
+++ openmp/trunk/runtime/src/include/41/omp_lib.h.var Mon May 23 11:24:39 2016
@@ -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
More information about the Openmp-commits
mailing list