contrib/openmp/runtime/src/include/30/omp_lib.h.var

   1 ! include/30/omp_lib.h.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       integer, parameter :: omp_integer_kind       = 4
  22       integer, parameter :: omp_logical_kind       = 4
  23       integer, parameter :: omp_real_kind          = 4
  24       integer, parameter :: omp_lock_kind          = int_ptr_kind()
  25       integer, parameter :: omp_nest_lock_kind     = int_ptr_kind()
  26       integer, parameter :: omp_sched_kind         = omp_integer_kind
  27       integer, parameter :: kmp_pointer_kind       = int_ptr_kind()
  28       integer, parameter :: kmp_size_t_kind        = int_ptr_kind()
  29       integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
  30
  31       integer(kind=omp_sched_kind), parameter :: omp_sched_static  = 1
  32       integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
  33       integer(kind=omp_sched_kind), parameter :: omp_sched_guided  = 3
  34       integer(kind=omp_sched_kind), parameter :: omp_sched_auto    = 4
  35
  36       integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
  37       integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
  38       integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
  39       character(*)               kmp_build_date
  40       parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
  41       integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@
  42
  43       interface
  44
  45 !       ***
  46 !       *** omp_* entry points
  47 !       ***
  48
  49         subroutine omp_set_num_threads(nthreads)
  50           import
  51           integer (kind=omp_integer_kind) nthreads
  52         end subroutine omp_set_num_threads
  53
  54         subroutine omp_set_dynamic(enable)
  55           import
  56           logical (kind=omp_logical_kind) enable
  57         end subroutine omp_set_dynamic
  58
  59         subroutine omp_set_nested(enable)
  60           import
  61           logical (kind=omp_logical_kind) enable
  62         end subroutine omp_set_nested
  63
  64         function omp_get_num_threads()
  65           import
  66           integer (kind=omp_integer_kind) omp_get_num_threads
  67         end function omp_get_num_threads
  68
  69         function omp_get_max_threads()
  70           import
  71           integer (kind=omp_integer_kind) omp_get_max_threads
  72         end function omp_get_max_threads
  73
  74         function omp_get_thread_num()
  75           import
  76           integer (kind=omp_integer_kind) omp_get_thread_num
  77         end function omp_get_thread_num
  78
  79         function omp_get_num_procs()
  80           import
  81           integer (kind=omp_integer_kind) omp_get_num_procs
  82         end function omp_get_num_procs
  83
  84         function omp_in_parallel()
  85           import
  86           logical (kind=omp_logical_kind) omp_in_parallel
  87         end function omp_in_parallel
  88
  89         function omp_in_final()
  90           import
  91           logical (kind=omp_logical_kind) omp_in_final
  92         end function omp_in_final
  93
  94         function omp_get_dynamic()
  95           import
  96           logical (kind=omp_logical_kind) omp_get_dynamic
  97         end function omp_get_dynamic
  98
  99         function omp_get_nested()
 100           import
 101           logical (kind=omp_logical_kind) omp_get_nested
 102         end function omp_get_nested
 103
 104         function omp_get_thread_limit()
 105           import
 106           integer (kind=omp_integer_kind) omp_get_thread_limit
 107         end function omp_get_thread_limit
 108
 109         subroutine omp_set_max_active_levels(max_levels)
 110           import
 111           integer (kind=omp_integer_kind) max_levels
 112         end subroutine omp_set_max_active_levels
 113
 114         function omp_get_max_active_levels()
 115           import
 116           integer (kind=omp_integer_kind) omp_get_max_active_levels
 117         end function omp_get_max_active_levels
 118
 119         function omp_get_level()
 120           import
 121           integer (kind=omp_integer_kind) omp_get_level
 122         end function omp_get_level
 123
 124         function omp_get_active_level()
 125           import
 126           integer (kind=omp_integer_kind) omp_get_active_level
 127         end function omp_get_active_level
 128
 129         function omp_get_ancestor_thread_num(level)
 130           import
 131           integer (kind=omp_integer_kind) level
 132           integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
 133         end function omp_get_ancestor_thread_num
 134
 135         function omp_get_team_size(level)
 136           import
 137           integer (kind=omp_integer_kind) level
 138           integer (kind=omp_integer_kind) omp_get_team_size
 139         end function omp_get_team_size
 140
 141         subroutine omp_set_schedule(kind, modifier)
 142           import
 143           integer (kind=omp_sched_kind) kind
 144           integer (kind=omp_integer_kind) modifier
 145         end subroutine omp_set_schedule
 146
 147         subroutine omp_get_schedule(kind, modifier)
 148           import
 149           integer (kind=omp_sched_kind) kind
 150           integer (kind=omp_integer_kind) modifier
 151         end subroutine omp_get_schedule
 152
 153         function omp_get_wtime()
 154           double precision omp_get_wtime
 155         end function omp_get_wtime
 156
 157         function omp_get_wtick ()
 158           double precision omp_get_wtick
 159         end function omp_get_wtick
 160
 161         subroutine omp_init_lock(lockvar)
 162           import
 163           integer (kind=omp_lock_kind) lockvar
 164         end subroutine omp_init_lock
 165
 166         subroutine omp_destroy_lock(lockvar)
 167           import
 168           integer (kind=omp_lock_kind) lockvar
 169         end subroutine omp_destroy_lock
 170
 171         subroutine omp_set_lock(lockvar)
 172           import
 173           integer (kind=omp_lock_kind) lockvar
 174         end subroutine omp_set_lock
 175
 176         subroutine omp_unset_lock(lockvar)
 177           import
 178           integer (kind=omp_lock_kind) lockvar
 179         end subroutine omp_unset_lock
 180
 181         function omp_test_lock(lockvar)
 182           import
 183           logical (kind=omp_logical_kind) omp_test_lock
 184           integer (kind=omp_lock_kind) lockvar
 185         end function omp_test_lock
 186
 187         subroutine omp_init_nest_lock(lockvar)
 188           import
 189           integer (kind=omp_nest_lock_kind) lockvar
 190         end subroutine omp_init_nest_lock
 191
 192         subroutine omp_destroy_nest_lock(lockvar)
 193           import
 194           integer (kind=omp_nest_lock_kind) lockvar
 195         end subroutine omp_destroy_nest_lock
 196
 197         subroutine omp_set_nest_lock(lockvar)
 198           import
 199           integer (kind=omp_nest_lock_kind) lockvar
 200         end subroutine omp_set_nest_lock
 201
 202         subroutine omp_unset_nest_lock(lockvar)
 203           import
 204           integer (kind=omp_nest_lock_kind) lockvar
 205         end subroutine omp_unset_nest_lock
 206
 207         function omp_test_nest_lock(lockvar)
 208           import
 209           integer (kind=omp_integer_kind) omp_test_nest_lock
 210           integer (kind=omp_nest_lock_kind) lockvar
 211         end function omp_test_nest_lock
 212
 213 !       ***
 214 !       *** kmp_* entry points
 215 !       ***
 216
 217         subroutine kmp_set_stacksize(size)
 218           import
 219           integer (kind=omp_integer_kind) size
 220         end subroutine kmp_set_stacksize
 221
 222         subroutine kmp_set_stacksize_s(size)
 223           import
 224           integer (kind=kmp_size_t_kind) size
 225         end subroutine kmp_set_stacksize_s
 226
 227         subroutine kmp_set_blocktime(msec)
 228           import
 229           integer (kind=omp_integer_kind) msec
 230         end subroutine kmp_set_blocktime
 231
 232         subroutine kmp_set_library_serial()
 233         end subroutine kmp_set_library_serial
 234
 235         subroutine kmp_set_library_turnaround()
 236         end subroutine kmp_set_library_turnaround
 237
 238         subroutine kmp_set_library_throughput()
 239         end subroutine kmp_set_library_throughput
 240
 241         subroutine kmp_set_library(libnum)
 242           import
 243           integer (kind=omp_integer_kind) libnum
 244         end subroutine kmp_set_library
 245
 246         subroutine kmp_set_defaults(string)
 247           character*(*) string
 248         end subroutine kmp_set_defaults
 249
 250         function kmp_get_stacksize()
 251           import
 252           integer (kind=omp_integer_kind) kmp_get_stacksize
 253         end function kmp_get_stacksize
 254
 255         function kmp_get_stacksize_s()
 256           import
 257           integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
 258         end function kmp_get_stacksize_s
 259
 260         function kmp_get_blocktime()
 261           import
 262           integer (kind=omp_integer_kind) kmp_get_blocktime
 263         end function kmp_get_blocktime
 264
 265         function kmp_get_library()
 266           import
 267           integer (kind=omp_integer_kind) kmp_get_library
 268         end function kmp_get_library
 269
 270         function kmp_set_affinity(mask)
 271           import
 272           integer (kind=omp_integer_kind) kmp_set_affinity
 273           integer (kind=kmp_affinity_mask_kind) mask
 274         end function kmp_set_affinity
 275
 276         function kmp_get_affinity(mask)
 277           import
 278           integer (kind=omp_integer_kind) kmp_get_affinity
 279           integer (kind=kmp_affinity_mask_kind) mask
 280         end function kmp_get_affinity
 281
 282         function kmp_get_affinity_max_proc()
 283           import
 284           integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
 285         end function kmp_get_affinity_max_proc
 286
 287         subroutine kmp_create_affinity_mask(mask)
 288           import
 289           integer (kind=kmp_affinity_mask_kind) mask
 290         end subroutine kmp_create_affinity_mask
 291
 292         subroutine kmp_destroy_affinity_mask(mask)
 293           import
 294           integer (kind=kmp_affinity_mask_kind) mask
 295         end subroutine kmp_destroy_affinity_mask
 296
 297         function kmp_set_affinity_mask_proc(proc, mask)
 298           import
 299           integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
 300           integer (kind=omp_integer_kind) proc
 301           integer (kind=kmp_affinity_mask_kind) mask
 302         end function kmp_set_affinity_mask_proc
 303
 304         function kmp_unset_affinity_mask_proc(proc, mask)
 305           import
 306           integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
 307           integer (kind=omp_integer_kind) proc
 308           integer (kind=kmp_affinity_mask_kind) mask
 309         end function kmp_unset_affinity_mask_proc
 310
 311         function kmp_get_affinity_mask_proc(proc, mask)
 312           import
 313           integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
 314           integer (kind=omp_integer_kind) proc
 315           integer (kind=kmp_affinity_mask_kind) mask
 316         end function kmp_get_affinity_mask_proc
 317
 318         function kmp_malloc(size)
 319           import
 320           integer (kind=kmp_pointer_kind) kmp_malloc
 321           integer (kind=kmp_size_t_kind) size
 322         end function kmp_malloc
 323
 324         function kmp_aligned_malloc(size, alignment)
 325           import
 326           integer (kind=kmp_pointer_kind) kmp_aligned_malloc
 327           integer (kind=kmp_size_t_kind) size
 328           integer (kind=kmp_size_t_kind) alignment
 329         end function kmp_aligned_malloc
 330
 331         function kmp_calloc(nelem, elsize)
 332           import
 333           integer (kind=kmp_pointer_kind) kmp_calloc
 334           integer (kind=kmp_size_t_kind) nelem
 335           integer (kind=kmp_size_t_kind) elsize
 336         end function kmp_calloc
 337
 338         function kmp_realloc(ptr, size)
 339           import
 340           integer (kind=kmp_pointer_kind) kmp_realloc
 341           integer (kind=kmp_pointer_kind) ptr
 342           integer (kind=kmp_size_t_kind) size
 343         end function kmp_realloc
 344
 345         subroutine kmp_free(ptr)
 346           import
 347           integer (kind=kmp_pointer_kind) ptr
 348         end subroutine kmp_free
 349
 350         subroutine kmp_set_warnings_on()
 351         end subroutine kmp_set_warnings_on
 352
 353         subroutine kmp_set_warnings_off()
 354         end subroutine kmp_set_warnings_off
 355
 356       end interface
 357
 358 !dec$ if defined(_WIN32)
 359 !dec$   if defined(_WIN64) .or. defined(_M_AMD64)
 360
 361 !***
 362 !*** The Fortran entry points must be in uppercase, even if the /Qlowercase
 363 !*** option is specified.  The alias attribute ensures that the specified
 364 !*** string is used as the entry point.
 365 !***
 366 !*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
 367 !*** underscore prepended.  On the Windows* OS Intel(R) 64
 368 !*** architecture, no underscore is prepended.
 369 !***
 370
 371 !dec$ attributes alias:'OMP_SET_NUM_THREADS'::omp_set_num_threads
 372 !dec$ attributes alias:'OMP_SET_DYNAMIC'::omp_set_dynamic
 373 !dec$ attributes alias:'OMP_SET_NESTED'::omp_set_nested
 374 !dec$ attributes alias:'OMP_GET_NUM_THREADS'::omp_get_num_threads
 375 !dec$ attributes alias:'OMP_GET_MAX_THREADS'::omp_get_max_threads
 376 !dec$ attributes alias:'OMP_GET_THREAD_NUM'::omp_get_thread_num
 377 !dec$ attributes alias:'OMP_GET_NUM_PROCS'::omp_get_num_procs
 378 !dec$ attributes alias:'OMP_IN_PARALLEL'::omp_in_parallel
 379 !dec$ attributes alias:'OMP_IN_FINAL'::omp_in_final
 380 !dec$ attributes alias:'OMP_GET_DYNAMIC'::omp_get_dynamic
 381 !dec$ attributes alias:'OMP_GET_NESTED'::omp_get_nested
 382 !dec$ attributes alias:'OMP_GET_THREAD_LIMIT'::omp_get_thread_limit
 383 !dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS'::omp_set_max_active_levels
 384 !dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS'::omp_get_max_active_levels
 385 !dec$ attributes alias:'OMP_GET_LEVEL'::omp_get_level
 386 !dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL'::omp_get_active_level
 387 !dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM'::omp_get_ancestor_thread_num
 388 !dec$ attributes alias:'OMP_GET_TEAM_SIZE'::omp_get_team_size
 389 !dec$ attributes alias:'OMP_SET_SCHEDULE'::omp_set_schedule
 390 !dec$ attributes alias:'OMP_GET_SCHEDULE'::omp_get_schedule
 391 !dec$ attributes alias:'OMP_GET_WTIME'::omp_get_wtime
 392 !dec$ attributes alias:'OMP_GET_WTICK'::omp_get_wtick
 393
 394 !dec$ attributes alias:'omp_init_lock'::omp_init_lock
 395 !dec$ attributes alias:'omp_destroy_lock'::omp_destroy_lock
 396 !dec$ attributes alias:'omp_set_lock'::omp_set_lock
 397 !dec$ attributes alias:'omp_unset_lock'::omp_unset_lock
 398 !dec$ attributes alias:'omp_test_lock'::omp_test_lock
 399 !dec$ attributes alias:'omp_init_nest_lock'::omp_init_nest_lock
 400 !dec$ attributes alias:'omp_destroy_nest_lock'::omp_destroy_nest_lock
 401 !dec$ attributes alias:'omp_set_nest_lock'::omp_set_nest_lock
 402 !dec$ attributes alias:'omp_unset_nest_lock'::omp_unset_nest_lock
 403 !dec$ attributes alias:'omp_test_nest_lock'::omp_test_nest_lock
 404
 405 !dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
 406 !dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
 407 !dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
 408 !dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
 409 !dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
 410 !dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
 411 !dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
 412 !dec$ attributes alias:'KMP_SET_DEFAULTS'::kmp_set_defaults
 413 !dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
 414 !dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
 415 !dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
 416 !dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
 417 !dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
 418 !dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
 419 !dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
 420 !dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
 421 !dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
 422 !dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
 423 !dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
 424 !dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
 425 !dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
 426 !dec$ attributes alias:'KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
 427 !dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
 428 !dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
 429 !dec$ attributes alias:'KMP_FREE'::kmp_free
 430
 431 !dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
 432 !dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
 433
 434 !dec$   else
 435
 436 !***
 437 !*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
 438 !***
 439
 440 !dec$ attributes alias:'_OMP_SET_NUM_THREADS'::omp_set_num_threads
 441 !dec$ attributes alias:'_OMP_SET_DYNAMIC'::omp_set_dynamic
 442 !dec$ attributes alias:'_OMP_SET_NESTED'::omp_set_nested
 443 !dec$ attributes alias:'_OMP_GET_NUM_THREADS'::omp_get_num_threads
 444 !dec$ attributes alias:'_OMP_GET_MAX_THREADS'::omp_get_max_threads
 445 !dec$ attributes alias:'_OMP_GET_THREAD_NUM'::omp_get_thread_num
 446 !dec$ attributes alias:'_OMP_GET_NUM_PROCS'::omp_get_num_procs
 447 !dec$ attributes alias:'_OMP_IN_PARALLEL'::omp_in_parallel
 448 !dec$ attributes alias:'_OMP_IN_FINAL'::omp_in_final
 449 !dec$ attributes alias:'_OMP_GET_DYNAMIC'::omp_get_dynamic
 450 !dec$ attributes alias:'_OMP_GET_NESTED'::omp_get_nested
 451 !dec$ attributes alias:'_OMP_GET_THREAD_LIMIT'::omp_get_thread_limit
 452 !dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS'::omp_set_max_active_levels
 453 !dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS'::omp_get_max_active_levels
 454 !dec$ attributes alias:'_OMP_GET_LEVEL'::omp_get_level
 455 !dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL'::omp_get_active_level
 456 !dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM'::omp_get_ancestor_thread_num
 457 !dec$ attributes alias:'_OMP_GET_TEAM_SIZE'::omp_get_team_size
 458 !dec$ attributes alias:'_OMP_SET_SCHEDULE'::omp_set_schedule
 459 !dec$ attributes alias:'_OMP_GET_SCHEDULE'::omp_get_schedule
 460 !dec$ attributes alias:'_OMP_GET_WTIME'::omp_get_wtime
 461 !dec$ attributes alias:'_OMP_GET_WTICK'::omp_get_wtick
 462
 463 !dec$ attributes alias:'_omp_init_lock'::omp_init_lock
 464 !dec$ attributes alias:'_omp_destroy_lock'::omp_destroy_lock
 465 !dec$ attributes alias:'_omp_set_lock'::omp_set_lock
 466 !dec$ attributes alias:'_omp_unset_lock'::omp_unset_lock
 467 !dec$ attributes alias:'_omp_test_lock'::omp_test_lock
 468 !dec$ attributes alias:'_omp_init_nest_lock'::omp_init_nest_lock
 469 !dec$ attributes alias:'_omp_destroy_nest_lock'::omp_destroy_nest_lock
 470 !dec$ attributes alias:'_omp_set_nest_lock'::omp_set_nest_lock
 471 !dec$ attributes alias:'_omp_unset_nest_lock'::omp_unset_nest_lock
 472 !dec$ attributes alias:'_omp_test_nest_lock'::omp_test_nest_lock
 473
 474 !dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
 475 !dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
 476 !dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
 477 !dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
 478 !dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
 479 !dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
 480 !dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
 481 !dec$ attributes alias:'_KMP_SET_DEFAULTS'::kmp_set_defaults
 482 !dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
 483 !dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
 484 !dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
 485 !dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
 486 !dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
 487 !dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
 488 !dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
 489 !dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
 490 !dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
 491 !dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
 492 !dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
 493 !dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
 494 !dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
 495 !dec$ attributes alias:'_KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
 496 !dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
 497 !dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
 498 !dec$ attributes alias:'_KMP_FREE'::kmp_free
 499
 500 !dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
 501 !dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
 502
 503 !dec$   endif
 504 !dec$ endif
 505
 506 !dec$ if defined(__linux)
 507
 508 !***
 509 !*** The Linux* OS entry points are in lowercase, with an underscore appended.
 510 !***
 511
 512 !dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
 513 !dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
 514 !dec$ attributes alias:'omp_set_nested_'::omp_set_nested
 515 !dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
 516 !dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
 517 !dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
 518 !dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
 519 !dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
 520 !dec$ attributes alias:'omp_in_final_'::omp_in_final
 521 !dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
 522 !dec$ attributes alias:'omp_get_nested_'::omp_get_nested
 523 !dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
 524 !dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
 525 !dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
 526 !dec$ attributes alias:'omp_get_level_'::omp_get_level
 527 !dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
 528 !dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
 529 !dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
 530 !dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
 531 !dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
 532 !dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
 533 !dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
 534
 535 !dec$ attributes alias:'omp_init_lock_'::omp_init_lock
 536 !dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
 537 !dec$ attributes alias:'omp_set_lock_'::omp_set_lock
 538 !dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
 539 !dec$ attributes alias:'omp_test_lock_'::omp_test_lock
 540 !dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
 541 !dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
 542 !dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
 543 !dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
 544 !dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
 545
 546 !dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
 547 !dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
 548 !dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
 549 !dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
 550 !dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
 551 !dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
 552 !dec$ attributes alias:'kmp_set_library_'::kmp_set_library
 553 !dec$ attributes alias:'kmp_set_defaults_'::kmp_set_defaults
 554 !dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
 555 !dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
 556 !dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
 557 !dec$ attributes alias:'kmp_get_library_'::kmp_get_library
 558 !dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
 559 !dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
 560 !dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
 561 !dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
 562 !dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
 563 !dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
 564 !dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
 565 !dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
 566 !dec$ attributes alias:'kmp_malloc_'::kmp_malloc
 567 !dec$ attributes alias:'kmp_aligned_malloc_'::kmp_aligned_malloc
 568 !dec$ attributes alias:'kmp_calloc_'::kmp_calloc
 569 !dec$ attributes alias:'kmp_realloc_'::kmp_realloc
 570 !dec$ attributes alias:'kmp_free_'::kmp_free
 571
 572 !dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
 573 !dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
 574
 575 !dec$ endif
 576
 577 !dec$ if defined(__APPLE__)
 578
 579 !***
 580 !*** The Mac entry points are in lowercase, with an both an underscore
 581 !*** appended and an underscore prepended.
 582 !***
 583
 584 !dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
 585 !dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
 586 !dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
 587 !dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
 588 !dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
 589 !dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
 590 !dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
 591 !dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
 592 !dec$ attributes alias:'_omp_in_final_'::omp_in_final
 593 !dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
 594 !dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
 595 !dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
 596 !dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
 597 !dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
 598 !dec$ attributes alias:'_omp_get_level_'::omp_get_level
 599 !dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
 600 !dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
 601 !dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
 602 !dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
 603 !dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
 604 !dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
 605 !dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
 606
 607 !dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
 608 !dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
 609 !dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
 610 !dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
 611 !dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
 612 !dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
 613 !dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
 614 !dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
 615 !dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
 616 !dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
 617
 618 !dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
 619 !dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
 620 !dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
 621 !dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
 622 !dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
 623 !dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
 624 !dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
 625 !dec$ attributes alias:'_kmp_set_defaults_'::kmp_set_defaults
 626 !dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
 627 !dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
 628 !dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
 629 !dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
 630 !dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
 631 !dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
 632 !dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
 633 !dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
 634 !dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
 635 !dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
 636 !dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
 637 !dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
 638 !dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
 639 !dec$ attributes alias:'_kmp_aligned_malloc_'::kmp_aligned_malloc
 640 !dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
 641 !dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
 642 !dec$ attributes alias:'_kmp_free_'::kmp_free
 643
 644 !dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
 645 !dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
 646
 647 !dec$ endif
 648
 649