contrib/openmp/runtime/src/include/40/omp_lib.f.var

   1 ! include/40/omp_lib.f.var
   2
   3 !
   4 !//===----------------------------------------------------------------------===//
   5 !//
   6 !//                     The LLVM Compiler Infrastructure
   7 !//
   8 !// This file is dual licensed under the MIT and the University of Illinois Open
   9 !// Source Licenses. See LICENSE.txt for details.
  10 !//
  11 !//===----------------------------------------------------------------------===//
  12 !
  13
  14 !***
  15 !*** Some of the directives for the following routine extend past column 72,
  16 !*** so process this file in 132-column mode.
  17 !***
  18
  19 !dec$ fixedformlinesize:132
  20
  21       module omp_lib_kinds
  22
  23         integer, parameter :: omp_integer_kind       = 4
  24         integer, parameter :: omp_logical_kind       = 4
  25         integer, parameter :: omp_real_kind          = 4
  26         integer, parameter :: omp_lock_kind          = int_ptr_kind()
  27         integer, parameter :: omp_nest_lock_kind     = int_ptr_kind()
  28         integer, parameter :: omp_sched_kind         = omp_integer_kind
  29         integer, parameter :: omp_proc_bind_kind     = omp_integer_kind
  30         integer, parameter :: kmp_pointer_kind       = int_ptr_kind()
  31         integer, parameter :: kmp_size_t_kind        = int_ptr_kind()
  32         integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
  33         integer, parameter :: kmp_cancel_kind        = omp_integer_kind
  34
  35       end module omp_lib_kinds
  36
  37       module omp_lib
  38
  39         use omp_lib_kinds
  40
  41         integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
  42         integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
  43         integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
  44         character(*), parameter :: kmp_build_date    = '@LIBOMP_BUILD_DATE@'
  45         integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@
  46
  47         integer(kind=omp_sched_kind), parameter :: omp_sched_static  = 1
  48         integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
  49         integer(kind=omp_sched_kind), parameter :: omp_sched_guided  = 3
  50         integer(kind=omp_sched_kind), parameter :: omp_sched_auto    = 4
  51
  52         integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
  53         integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
  54         integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
  55         integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
  56         integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
  57
  58         integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
  59         integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
  60         integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
  61         integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
  62
  63         interface
  64
  65 !         ***
  66 !         *** omp_* entry points
  67 !         ***
  68
  69           subroutine omp_set_num_threads(num_threads)
  70             use omp_lib_kinds
  71             integer (kind=omp_integer_kind) num_threads
  72           end subroutine omp_set_num_threads
  73
  74           subroutine omp_set_dynamic(dynamic_threads)
  75             use omp_lib_kinds
  76             logical (kind=omp_logical_kind) dynamic_threads
  77           end subroutine omp_set_dynamic
  78
  79           subroutine omp_set_nested(nested)
  80             use omp_lib_kinds
  81             logical (kind=omp_logical_kind) nested
  82           end subroutine omp_set_nested
  83
  84           function omp_get_num_threads()
  85             use omp_lib_kinds
  86             integer (kind=omp_integer_kind) omp_get_num_threads
  87           end function omp_get_num_threads
  88
  89           function omp_get_max_threads()
  90             use omp_lib_kinds
  91             integer (kind=omp_integer_kind) omp_get_max_threads
  92           end function omp_get_max_threads
  93
  94           function omp_get_thread_num()
  95             use omp_lib_kinds
  96             integer (kind=omp_integer_kind) omp_get_thread_num
  97           end function omp_get_thread_num
  98
  99           function omp_get_num_procs()
 100             use omp_lib_kinds
 101             integer (kind=omp_integer_kind) omp_get_num_procs
 102           end function omp_get_num_procs
 103
 104           function omp_in_parallel()
 105             use omp_lib_kinds
 106             logical (kind=omp_logical_kind) omp_in_parallel
 107           end function omp_in_parallel
 108
 109           function omp_in_final()
 110             use omp_lib_kinds
 111             logical (kind=omp_logical_kind) omp_in_final
 112           end function omp_in_final
 113
 114           function omp_get_dynamic()
 115             use omp_lib_kinds
 116             logical (kind=omp_logical_kind) omp_get_dynamic
 117           end function omp_get_dynamic
 118
 119           function omp_get_nested()
 120             use omp_lib_kinds
 121             logical (kind=omp_logical_kind) omp_get_nested
 122           end function omp_get_nested
 123
 124           function omp_get_thread_limit()
 125             use omp_lib_kinds
 126             integer (kind=omp_integer_kind) omp_get_thread_limit
 127           end function omp_get_thread_limit
 128
 129           subroutine omp_set_max_active_levels(max_levels)
 130             use omp_lib_kinds
 131             integer (kind=omp_integer_kind) max_levels
 132           end subroutine omp_set_max_active_levels
 133
 134           function omp_get_max_active_levels()
 135             use omp_lib_kinds
 136             integer (kind=omp_integer_kind) omp_get_max_active_levels
 137           end function omp_get_max_active_levels
 138
 139           function omp_get_level()
 140             use omp_lib_kinds
 141             integer (kind=omp_integer_kind) omp_get_level
 142           end function omp_get_level
 143
 144           function omp_get_active_level()
 145             use omp_lib_kinds
 146             integer (kind=omp_integer_kind) omp_get_active_level
 147           end function omp_get_active_level
 148
 149           function omp_get_ancestor_thread_num(level)
 150             use omp_lib_kinds
 151             integer (kind=omp_integer_kind) level
 152             integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
 153           end function omp_get_ancestor_thread_num
 154
 155           function omp_get_team_size(level)
 156             use omp_lib_kinds
 157             integer (kind=omp_integer_kind) level
 158             integer (kind=omp_integer_kind) omp_get_team_size
 159           end function omp_get_team_size
 160
 161           subroutine omp_set_schedule(kind, chunk_size)
 162             use omp_lib_kinds
 163             integer (kind=omp_sched_kind) kind
 164             integer (kind=omp_integer_kind) chunk_size
 165           end subroutine omp_set_schedule
 166
 167           subroutine omp_get_schedule(kind, chunk_size)
 168             use omp_lib_kinds
 169             integer (kind=omp_sched_kind) kind
 170             integer (kind=omp_integer_kind) chunk_size
 171           end subroutine omp_get_schedule
 172
 173           function omp_get_proc_bind()
 174             use omp_lib_kinds
 175             integer (kind=omp_proc_bind_kind) omp_get_proc_bind
 176           end function omp_get_proc_bind
 177
 178           function omp_get_wtime()
 179             double precision omp_get_wtime
 180           end function omp_get_wtime
 181
 182           function omp_get_wtick ()
 183             double precision omp_get_wtick
 184           end function omp_get_wtick
 185
 186           function omp_get_default_device()
 187             use omp_lib_kinds
 188             integer (kind=omp_integer_kind) omp_get_default_device
 189           end function omp_get_default_device
 190
 191           subroutine omp_set_default_device(device_num)
 192             use omp_lib_kinds
 193             integer (kind=omp_integer_kind) device_num
 194           end subroutine omp_set_default_device
 195
 196           function omp_get_num_devices()
 197             use omp_lib_kinds
 198             integer (kind=omp_integer_kind) omp_get_num_devices
 199           end function omp_get_num_devices
 200
 201           function omp_get_num_teams()
 202             use omp_lib_kinds
 203             integer (kind=omp_integer_kind) omp_get_num_teams
 204           end function omp_get_num_teams
 205
 206           function omp_get_team_num()
 207             use omp_lib_kinds
 208             integer (kind=omp_integer_kind) omp_get_team_num
 209           end function omp_get_team_num
 210
 211           function omp_get_cancellation()
 212             use omp_lib_kinds
 213             integer (kind=omp_integer_kind) omp_get_cancellation
 214           end function omp_get_cancellation
 215
 216           function omp_is_initial_device()
 217             use omp_lib_kinds
 218             logical (kind=omp_logical_kind) omp_is_initial_device
 219           end function omp_is_initial_device
 220
 221           subroutine omp_init_lock(svar)
 222 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 223 !DIR$ attributes known_intrinsic :: omp_init_lock
 224 !DIR$ ENDIF
 225             use omp_lib_kinds
 226             integer (kind=omp_lock_kind) svar
 227           end subroutine omp_init_lock
 228
 229           subroutine omp_destroy_lock(svar)
 230 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 231 !DIR$ attributes known_intrinsic :: omp_destroy_lock
 232 !DIR$ ENDIF
 233             use omp_lib_kinds
 234             integer (kind=omp_lock_kind) svar
 235           end subroutine omp_destroy_lock
 236
 237           subroutine omp_set_lock(svar)
 238 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 239 !DIR$ attributes known_intrinsic :: omp_set_lock
 240 !DIR$ ENDIF
 241             use omp_lib_kinds
 242             integer (kind=omp_lock_kind) svar
 243           end subroutine omp_set_lock
 244
 245           subroutine omp_unset_lock(svar)
 246 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 247 !DIR$ attributes known_intrinsic :: omp_unset_lock
 248 !DIR$ ENDIF
 249             use omp_lib_kinds
 250             integer (kind=omp_lock_kind) svar
 251           end subroutine omp_unset_lock
 252
 253           function omp_test_lock(svar)
 254 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 255 !DIR$ attributes known_intrinsic :: omp_test_lock
 256 !DIR$ ENDIF
 257             use omp_lib_kinds
 258             logical (kind=omp_logical_kind) omp_test_lock
 259             integer (kind=omp_lock_kind) svar
 260           end function omp_test_lock
 261
 262           subroutine omp_init_nest_lock(nvar)
 263 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 264 !DIR$ attributes known_intrinsic :: omp_init_nest_lock
 265 !DIR$ ENDIF
 266             use omp_lib_kinds
 267             integer (kind=omp_nest_lock_kind) nvar
 268           end subroutine omp_init_nest_lock
 269
 270           subroutine omp_destroy_nest_lock(nvar)
 271 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 272 !DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
 273 !DIR$ ENDIF
 274             use omp_lib_kinds
 275             integer (kind=omp_nest_lock_kind) nvar
 276           end subroutine omp_destroy_nest_lock
 277
 278           subroutine omp_set_nest_lock(nvar)
 279 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 280 !DIR$ attributes known_intrinsic :: omp_set_nest_lock
 281 !DIR$ ENDIF
 282             use omp_lib_kinds
 283             integer (kind=omp_nest_lock_kind) nvar
 284           end subroutine omp_set_nest_lock
 285
 286           subroutine omp_unset_nest_lock(nvar)
 287 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 288 !DIR$ attributes known_intrinsic :: omp_unset_nest_lock
 289 !DIR$ ENDIF
 290             use omp_lib_kinds
 291             integer (kind=omp_nest_lock_kind) nvar
 292           end subroutine omp_unset_nest_lock
 293
 294           function omp_test_nest_lock(nvar)
 295 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 296 !DIR$ attributes known_intrinsic :: omp_test_nest_lock
 297 !DIR$ ENDIF
 298             use omp_lib_kinds
 299             integer (kind=omp_integer_kind) omp_test_nest_lock
 300             integer (kind=omp_nest_lock_kind) nvar
 301           end function omp_test_nest_lock
 302
 303 !         ***
 304 !         *** kmp_* entry points
 305 !         ***
 306
 307           subroutine kmp_set_stacksize(size)
 308             use omp_lib_kinds
 309             integer (kind=omp_integer_kind) size
 310           end subroutine kmp_set_stacksize
 311
 312           subroutine kmp_set_stacksize_s(size)
 313             use omp_lib_kinds
 314             integer (kind=kmp_size_t_kind) size
 315           end subroutine kmp_set_stacksize_s
 316
 317           subroutine kmp_set_blocktime(msec)
 318             use omp_lib_kinds
 319             integer (kind=omp_integer_kind) msec
 320           end subroutine kmp_set_blocktime
 321
 322           subroutine kmp_set_library_serial()
 323           end subroutine kmp_set_library_serial
 324
 325           subroutine kmp_set_library_turnaround()
 326           end subroutine kmp_set_library_turnaround
 327
 328           subroutine kmp_set_library_throughput()
 329           end subroutine kmp_set_library_throughput
 330
 331           subroutine kmp_set_library(libnum)
 332             use omp_lib_kinds
 333             integer (kind=omp_integer_kind) libnum
 334           end subroutine kmp_set_library
 335
 336           subroutine kmp_set_defaults(string)
 337             character*(*) string
 338           end subroutine kmp_set_defaults
 339
 340           function kmp_get_stacksize()
 341             use omp_lib_kinds
 342             integer (kind=omp_integer_kind) kmp_get_stacksize
 343           end function kmp_get_stacksize
 344
 345           function kmp_get_stacksize_s()
 346             use omp_lib_kinds
 347             integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
 348           end function kmp_get_stacksize_s
 349
 350           function kmp_get_blocktime()
 351             use omp_lib_kinds
 352             integer (kind=omp_integer_kind) kmp_get_blocktime
 353           end function kmp_get_blocktime
 354
 355           function kmp_get_library()
 356             use omp_lib_kinds
 357             integer (kind=omp_integer_kind) kmp_get_library
 358           end function kmp_get_library
 359
 360           function kmp_set_affinity(mask)
 361             use omp_lib_kinds
 362             integer (kind=omp_integer_kind) kmp_set_affinity
 363             integer (kind=kmp_affinity_mask_kind) mask
 364           end function kmp_set_affinity
 365
 366           function kmp_get_affinity(mask)
 367             use omp_lib_kinds
 368             integer (kind=omp_integer_kind) kmp_get_affinity
 369             integer (kind=kmp_affinity_mask_kind) mask
 370           end function kmp_get_affinity
 371
 372           function kmp_get_affinity_max_proc()
 373             use omp_lib_kinds
 374             integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
 375           end function kmp_get_affinity_max_proc
 376
 377           subroutine kmp_create_affinity_mask(mask)
 378             use omp_lib_kinds
 379             integer (kind=kmp_affinity_mask_kind) mask
 380           end subroutine kmp_create_affinity_mask
 381
 382           subroutine kmp_destroy_affinity_mask(mask)
 383             use omp_lib_kinds
 384             integer (kind=kmp_affinity_mask_kind) mask
 385           end subroutine kmp_destroy_affinity_mask
 386
 387           function kmp_set_affinity_mask_proc(proc, mask)
 388             use omp_lib_kinds
 389             integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
 390             integer (kind=omp_integer_kind) proc
 391             integer (kind=kmp_affinity_mask_kind) mask
 392           end function kmp_set_affinity_mask_proc
 393
 394           function kmp_unset_affinity_mask_proc(proc, mask)
 395             use omp_lib_kinds
 396             integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
 397             integer (kind=omp_integer_kind) proc
 398             integer (kind=kmp_affinity_mask_kind) mask
 399           end function kmp_unset_affinity_mask_proc
 400
 401           function kmp_get_affinity_mask_proc(proc, mask)
 402             use omp_lib_kinds
 403             integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
 404             integer (kind=omp_integer_kind) proc
 405             integer (kind=kmp_affinity_mask_kind) mask
 406           end function kmp_get_affinity_mask_proc
 407
 408           function kmp_malloc(size)
 409             use omp_lib_kinds
 410             integer (kind=kmp_pointer_kind) kmp_malloc
 411             integer (kind=kmp_size_t_kind) size
 412           end function kmp_malloc
 413
 414           function kmp_aligned_malloc(size, alignment)
 415             use omp_lib_kinds
 416             integer (kind=kmp_pointer_kind) kmp_aligned_malloc
 417             integer (kind=kmp_size_t_kind) size
 418             integer (kind=kmp_size_t_kind) alignment
 419           end function kmp_aligned_malloc
 420
 421           function kmp_calloc(nelem, elsize)
 422             use omp_lib_kinds
 423             integer (kind=kmp_pointer_kind) kmp_calloc
 424             integer (kind=kmp_size_t_kind) nelem
 425             integer (kind=kmp_size_t_kind) elsize
 426           end function kmp_calloc
 427
 428           function kmp_realloc(ptr, size)
 429             use omp_lib_kinds
 430             integer (kind=kmp_pointer_kind) kmp_realloc
 431             integer (kind=kmp_pointer_kind) ptr
 432             integer (kind=kmp_size_t_kind) size
 433           end function kmp_realloc
 434
 435           subroutine kmp_free(ptr)
 436             use omp_lib_kinds
 437             integer (kind=kmp_pointer_kind) ptr
 438           end subroutine kmp_free
 439
 440           subroutine kmp_set_warnings_on()
 441           end subroutine kmp_set_warnings_on
 442
 443           subroutine kmp_set_warnings_off()
 444           end subroutine kmp_set_warnings_off
 445
 446           function kmp_get_cancellation_status(cancelkind)
 447             use omp_lib_kinds
 448             integer (kind=kmp_cancel_kind) cancelkind
 449             logical (kind=omp_logical_kind) kmp_get_cancellation_status
 450           end function kmp_get_cancellation_status
 451
 452         end interface
 453
 454 !dec$ if defined(_WIN32)
 455 !dec$   if defined(_WIN64) .or. defined(_M_AMD64)
 456
 457 !***
 458 !*** The Fortran entry points must be in uppercase, even if the /Qlowercase
 459 !*** option is specified.  The alias attribute ensures that the specified
 460 !*** string is used as the entry point.
 461 !***
 462 !*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
 463 !*** underscore prepended.  On the Windows* OS Intel(R) 64
 464 !*** architecture, no underscore is prepended.
 465 !***
 466
 467 !dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads
 468 !dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic
 469 !dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested
 470 !dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads
 471 !dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads
 472 !dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num
 473 !dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs
 474 !dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel
 475 !dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic
 476 !dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested
 477 !dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
 478 !dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
 479 !dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
 480 !dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level
 481 !dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
 482 !dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
 483 !dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size
 484 !dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule
 485 !dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule
 486 !dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind
 487 !dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime
 488 !dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick
 489 !dec$ attributes alias:'OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
 490 !dec$ attributes alias:'OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
 491 !dec$ attributes alias:'OMP_GET_NUM_DEVICES' :: omp_get_num_devices
 492 !dec$ attributes alias:'OMP_GET_NUM_TEAMS' :: omp_get_num_teams
 493 !dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num
 494 !dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation
 495 !dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
 496
 497 !dec$ attributes alias:'omp_init_lock' :: omp_init_lock
 498 !dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock
 499 !dec$ attributes alias:'omp_set_lock' :: omp_set_lock
 500 !dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock
 501 !dec$ attributes alias:'omp_test_lock' :: omp_test_lock
 502 !dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock
 503 !dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock
 504 !dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock
 505 !dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock
 506 !dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock
 507
 508 !dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
 509 !dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
 510 !dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
 511 !dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
 512 !dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
 513 !dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
 514 !dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
 515 !dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
 516 !dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
 517 !dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
 518 !dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
 519 !dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
 520 !dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
 521 !dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
 522 !dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
 523 !dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
 524 !dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
 525 !dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
 526 !dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
 527 !dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
 528 !dec$ attributes alias:'KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
 529 !dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
 530 !dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
 531 !dec$ attributes alias:'KMP_FREE'::kmp_free
 532
 533 !dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
 534 !dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
 535
 536 !dec$ attributes alias:'KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
 537
 538 !dec$   else
 539
 540 !***
 541 !*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
 542 !***
 543
 544 !dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads
 545 !dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic
 546 !dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested
 547 !dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads
 548 !dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads
 549 !dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num
 550 !dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs
 551 !dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel
 552 !dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic
 553 !dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested
 554 !dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
 555 !dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
 556 !dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
 557 !dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level
 558 !dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
 559 !dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
 560 !dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size
 561 !dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule
 562 !dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule
 563 !dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind
 564 !dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime
 565 !dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick
 566 !dec$ attributes alias:'_OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
 567 !dec$ attributes alias:'_OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
 568 !dec$ attributes alias:'_OMP_GET_NUM_DEVICES' :: omp_get_num_devices
 569 !dec$ attributes alias:'_OMP_GET_NUM_TEAMS' :: omp_get_num_teams
 570 !dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num
 571 !dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation
 572 !dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
 573
 574 !dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
 575 !dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock
 576 !dec$ attributes alias:'_omp_set_lock' :: omp_set_lock
 577 !dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock
 578 !dec$ attributes alias:'_omp_test_lock' :: omp_test_lock
 579 !dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock
 580 !dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock
 581 !dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock
 582 !dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock
 583 !dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock
 584
 585 !dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
 586 !dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
 587 !dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
 588 !dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
 589 !dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
 590 !dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
 591 !dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
 592 !dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
 593 !dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
 594 !dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
 595 !dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
 596 !dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
 597 !dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
 598 !dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
 599 !dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
 600 !dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
 601 !dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
 602 !dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
 603 !dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
 604 !dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
 605 !dec$ attributes alias:'_KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
 606 !dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
 607 !dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
 608 !dec$ attributes alias:'_KMP_FREE'::kmp_free
 609
 610 !dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
 611 !dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
 612
 613 !dec$ attributes alias:'_KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
 614
 615 !dec$   endif
 616 !dec$ endif
 617
 618 !dec$ if defined(__linux)
 619
 620 !***
 621 !*** The Linux* OS entry points are in lowercase, with an underscore appended.
 622 !***
 623
 624 !dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
 625 !dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
 626 !dec$ attributes alias:'omp_set_nested_'::omp_set_nested
 627 !dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
 628 !dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
 629 !dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
 630 !dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
 631 !dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
 632 !dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
 633 !dec$ attributes alias:'omp_get_nested_'::omp_get_nested
 634 !dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
 635 !dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
 636 !dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
 637 !dec$ attributes alias:'omp_get_level_'::omp_get_level
 638 !dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
 639 !dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
 640 !dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
 641 !dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
 642 !dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
 643 !dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind
 644 !dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
 645 !dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
 646 !dec$ attributes alias:'omp_get_default_device_'::omp_get_default_device
 647 !dec$ attributes alias:'omp_set_default_device_'::omp_set_default_device
 648 !dec$ attributes alias:'omp_get_num_devices_'::omp_get_num_devices
 649 !dec$ attributes alias:'omp_get_num_teams_'::omp_get_num_teams
 650 !dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num
 651 !dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation
 652 !dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device
 653
 654 !dec$ attributes alias:'omp_init_lock_'::omp_init_lock
 655 !dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
 656 !dec$ attributes alias:'omp_set_lock_'::omp_set_lock
 657 !dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
 658 !dec$ attributes alias:'omp_test_lock_'::omp_test_lock
 659 !dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
 660 !dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
 661 !dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
 662 !dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
 663 !dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
 664
 665 !dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
 666 !dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
 667 !dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
 668 !dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
 669 !dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
 670 !dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
 671 !dec$ attributes alias:'kmp_set_library_'::kmp_set_library
 672 !dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
 673 !dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
 674 !dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
 675 !dec$ attributes alias:'kmp_get_library_'::kmp_get_library
 676 !dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
 677 !dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
 678 !dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
 679 !dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
 680 !dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
 681 !dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
 682 !dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
 683 !dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
 684 !dec$ attributes alias:'kmp_malloc_'::kmp_malloc
 685 !dec$ attributes alias:'kmp_aligned_malloc_'::kmp_aligned_malloc
 686 !dec$ attributes alias:'kmp_calloc_'::kmp_calloc
 687 !dec$ attributes alias:'kmp_realloc_'::kmp_realloc
 688 !dec$ attributes alias:'kmp_free_'::kmp_free
 689
 690 !dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
 691 !dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
 692 !dec$ attributes alias:'kmp_get_cancellation_status_'::kmp_get_cancellation_status
 693
 694 !dec$ endif
 695
 696 !dec$ if defined(__APPLE__)
 697
 698 !***
 699 !*** The Mac entry points are in lowercase, with an both an underscore
 700 !*** appended and an underscore prepended.
 701 !***
 702
 703 !dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
 704 !dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
 705 !dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
 706 !dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
 707 !dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
 708 !dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
 709 !dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
 710 !dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
 711 !dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
 712 !dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
 713 !dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
 714 !dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
 715 !dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
 716 !dec$ attributes alias:'_omp_get_level_'::omp_get_level
 717 !dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
 718 !dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
 719 !dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
 720 !dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
 721 !dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
 722 !dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind
 723 !dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
 724 !dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
 725 !dec$ attributes alias:'_omp_get_num_teams_'::omp_get_num_teams
 726 !dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num
 727 !dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation
 728 !dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device
 729
 730 !dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
 731 !dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
 732 !dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
 733 !dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
 734 !dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
 735 !dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
 736 !dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
 737 !dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
 738 !dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
 739 !dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
 740
 741 !dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
 742 !dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
 743 !dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
 744 !dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
 745 !dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
 746 !dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
 747 !dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
 748 !dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
 749 !dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
 750 !dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
 751 !dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
 752 !dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
 753 !dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
 754 !dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
 755 !dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
 756 !dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
 757 !dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
 758 !dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
 759 !dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
 760 !dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
 761 !dec$ attributes alias:'_kmp_aligned_malloc_'::kmp_aligned_malloc
 762 !dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
 763 !dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
 764 !dec$ attributes alias:'_kmp_free_'::kmp_free
 765
 766 !dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
 767 !dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
 768
 769 !dec$ attributes alias:'_kmp_get_cancellation_status_'::kmp_get_cancellation_status
 770
 771 !dec$ endif
 772
 773       end module omp_lib
 774