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

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