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

   1 ! include/45/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 !DIR$ 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 :: omp_proc_bind_kind     = omp_integer_kind
  28       integer, parameter :: kmp_pointer_kind       = int_ptr_kind()
  29       integer, parameter :: kmp_size_t_kind        = int_ptr_kind()
  30       integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
  31       integer, parameter :: omp_lock_hint_kind     = omp_integer_kind
  32
  33       integer (kind=omp_integer_kind), parameter :: openmp_version    = @LIBOMP_OMP_YEAR_MONTH@
  34       integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
  35       integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
  36       integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
  37       character(*)               kmp_build_date
  38       parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
  39
  40       integer(kind=omp_sched_kind), parameter :: omp_sched_static  = 1
  41       integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
  42       integer(kind=omp_sched_kind), parameter :: omp_sched_guided  = 3
  43       integer(kind=omp_sched_kind), parameter :: omp_sched_auto    = 4
  44
  45       integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
  46       integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
  47       integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
  48       integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
  49       integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
  50
  51       integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none           = 0
  52       integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended    = 1
  53       integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended      = 2
  54       integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = 4
  55       integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative    = 8
  56       integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle            = 65536
  57       integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm            = 131072
  58       integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive       = 262144
  59
  60       interface
  61
  62 !       ***
  63 !       *** omp_* entry points
  64 !       ***
  65
  66         subroutine omp_set_num_threads(num_threads) bind(c)
  67           import
  68           integer (kind=omp_integer_kind), value :: num_threads
  69         end subroutine omp_set_num_threads
  70
  71         subroutine omp_set_dynamic(dynamic_threads) bind(c)
  72           import
  73           logical (kind=omp_logical_kind), value :: dynamic_threads
  74         end subroutine omp_set_dynamic
  75
  76         subroutine omp_set_nested(nested) bind(c)
  77           import
  78           logical (kind=omp_logical_kind), value :: nested
  79         end subroutine omp_set_nested
  80
  81         function omp_get_num_threads() bind(c)
  82           import
  83           integer (kind=omp_integer_kind) omp_get_num_threads
  84         end function omp_get_num_threads
  85
  86         function omp_get_max_threads() bind(c)
  87           import
  88           integer (kind=omp_integer_kind) omp_get_max_threads
  89         end function omp_get_max_threads
  90
  91         function omp_get_thread_num() bind(c)
  92           import
  93           integer (kind=omp_integer_kind) omp_get_thread_num
  94         end function omp_get_thread_num
  95
  96         function omp_get_num_procs() bind(c)
  97           import
  98           integer (kind=omp_integer_kind) omp_get_num_procs
  99         end function omp_get_num_procs
 100
 101         function omp_in_parallel() bind(c)
 102           import
 103           logical (kind=omp_logical_kind) omp_in_parallel
 104         end function omp_in_parallel
 105
 106         function omp_in_final() bind(c)
 107           import
 108           logical (kind=omp_logical_kind) omp_in_final
 109         end function omp_in_final
 110
 111         function omp_get_dynamic() bind(c)
 112           import
 113           logical (kind=omp_logical_kind) omp_get_dynamic
 114         end function omp_get_dynamic
 115
 116         function omp_get_nested() bind(c)
 117           import
 118           logical (kind=omp_logical_kind) omp_get_nested
 119         end function omp_get_nested
 120
 121         function omp_get_thread_limit() bind(c)
 122           import
 123           integer (kind=omp_integer_kind) omp_get_thread_limit
 124         end function omp_get_thread_limit
 125
 126         subroutine omp_set_max_active_levels(max_levels) bind(c)
 127           import
 128           integer (kind=omp_integer_kind), value :: max_levels
 129         end subroutine omp_set_max_active_levels
 130
 131         function omp_get_max_active_levels() bind(c)
 132           import
 133           integer (kind=omp_integer_kind) omp_get_max_active_levels
 134         end function omp_get_max_active_levels
 135
 136         function omp_get_level() bind(c)
 137           import
 138           integer (kind=omp_integer_kind) omp_get_level
 139         end function omp_get_level
 140
 141         function omp_get_active_level() bind(c)
 142           import
 143           integer (kind=omp_integer_kind) omp_get_active_level
 144         end function omp_get_active_level
 145
 146         function omp_get_ancestor_thread_num(level) bind(c)
 147           import
 148           integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
 149           integer (kind=omp_integer_kind), value :: level
 150         end function omp_get_ancestor_thread_num
 151
 152         function omp_get_team_size(level) bind(c)
 153           import
 154           integer (kind=omp_integer_kind) omp_get_team_size
 155           integer (kind=omp_integer_kind), value :: level
 156         end function omp_get_team_size
 157
 158         subroutine omp_set_schedule(kind, chunk_size) bind(c)
 159           import
 160           integer (kind=omp_sched_kind), value :: kind
 161           integer (kind=omp_integer_kind), value :: chunk_size
 162         end subroutine omp_set_schedule
 163
 164         subroutine omp_get_schedule(kind, chunk_size) bind(c)
 165           import
 166           integer (kind=omp_sched_kind) kind
 167           integer (kind=omp_integer_kind) chunk_size
 168         end subroutine omp_get_schedule
 169
 170         function omp_get_proc_bind() bind(c)
 171           import
 172           integer (kind=omp_proc_bind_kind) omp_get_proc_bind
 173         end function omp_get_proc_bind
 174
 175         function omp_get_num_places() bind(c)
 176           import
 177           integer (kind=omp_integer_kind) omp_get_num_places
 178         end function omp_get_num_places
 179
 180         function omp_get_place_num_procs(place_num) bind(c)
 181           import
 182           integer (kind=omp_integer_kind), value :: place_num
 183           integer (kind=omp_integer_kind) omp_get_place_num_procs
 184         end function omp_get_place_num_procs
 185
 186         subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
 187           import
 188           integer (kind=omp_integer_kind), value :: place_num
 189           integer (kind=omp_integer_kind) ids(*)
 190         end subroutine omp_get_place_proc_ids
 191
 192         function omp_get_place_num() bind(c)
 193           import
 194           integer (kind=omp_integer_kind) omp_get_place_num
 195         end function omp_get_place_num
 196
 197         function omp_get_partition_num_places() bind(c)
 198           import
 199           integer (kind=omp_integer_kind) omp_get_partition_num_places
 200         end function omp_get_partition_num_places
 201
 202         subroutine omp_get_partition_place_nums(place_nums) bind(c)
 203           import
 204           integer (kind=omp_integer_kind) place_nums(*)
 205         end subroutine omp_get_partition_place_nums
 206
 207         function omp_get_wtime() bind(c)
 208           double precision omp_get_wtime
 209         end function omp_get_wtime
 210
 211         function omp_get_wtick() bind(c)
 212           double precision omp_get_wtick
 213         end function omp_get_wtick
 214
 215         function omp_get_default_device() bind(c)
 216           import
 217           integer (kind=omp_integer_kind) omp_get_default_device
 218         end function omp_get_default_device
 219
 220         subroutine omp_set_default_device(device_num) bind(c)
 221           import
 222           integer (kind=omp_integer_kind), value :: device_num
 223         end subroutine omp_set_default_device
 224
 225         function omp_get_num_devices() bind(c)
 226           import
 227           integer (kind=omp_integer_kind) omp_get_num_devices
 228         end function omp_get_num_devices
 229
 230         function omp_get_num_teams() bind(c)
 231           import
 232           integer (kind=omp_integer_kind) omp_get_num_teams
 233         end function omp_get_num_teams
 234
 235         function omp_get_team_num() bind(c)
 236           import
 237           integer (kind=omp_integer_kind) omp_get_team_num
 238         end function omp_get_team_num
 239
 240         function omp_is_initial_device() bind(c)
 241           import
 242           logical (kind=omp_logical_kind) omp_is_initial_device
 243         end function omp_is_initial_device
 244
 245         function omp_get_initial_device() bind(c)
 246           import
 247           integer (kind=omp_integer_kind) omp_get_initial_device
 248         end function omp_get_initial_device
 249
 250         subroutine omp_init_lock(svar) bind(c)
 251 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 252 !DIR$ attributes known_intrinsic :: omp_init_lock
 253 !DIR$ ENDIF
 254           import
 255           integer (kind=omp_lock_kind) svar
 256         end subroutine omp_init_lock
 257
 258         subroutine omp_destroy_lock(svar) bind(c)
 259 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 260 !DIR$ attributes known_intrinsic :: omp_destroy_lock
 261 !DIR$ ENDIF
 262           import
 263           integer (kind=omp_lock_kind) svar
 264         end subroutine omp_destroy_lock
 265
 266         subroutine omp_set_lock(svar) bind(c)
 267 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 268 !DIR$ attributes known_intrinsic :: omp_set_lock
 269 !DIR$ ENDIF
 270           import
 271           integer (kind=omp_lock_kind) svar
 272         end subroutine omp_set_lock
 273
 274         subroutine omp_unset_lock(svar) bind(c)
 275 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 276 !DIR$ attributes known_intrinsic :: omp_unset_lock
 277 !DIR$ ENDIF
 278           import
 279           integer (kind=omp_lock_kind) svar
 280         end subroutine omp_unset_lock
 281
 282         function omp_test_lock(svar) bind(c)
 283 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 284 !DIR$ attributes known_intrinsic :: omp_test_lock
 285 !DIR$ ENDIF
 286           import
 287           logical (kind=omp_logical_kind) omp_test_lock
 288           integer (kind=omp_lock_kind) svar
 289         end function omp_test_lock
 290
 291         subroutine omp_init_nest_lock(nvar) bind(c)
 292 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 293 !DIR$ attributes known_intrinsic :: omp_init_nest_lock
 294 !DIR$ ENDIF
 295           import
 296           integer (kind=omp_nest_lock_kind) nvar
 297         end subroutine omp_init_nest_lock
 298
 299         subroutine omp_destroy_nest_lock(nvar) bind(c)
 300 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 301 !DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
 302 !DIR$ ENDIF
 303           import
 304           integer (kind=omp_nest_lock_kind) nvar
 305         end subroutine omp_destroy_nest_lock
 306
 307         subroutine omp_set_nest_lock(nvar) bind(c)
 308 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 309 !DIR$ attributes known_intrinsic :: omp_set_nest_lock
 310 !DIR$ ENDIF
 311           import
 312           integer (kind=omp_nest_lock_kind) nvar
 313         end subroutine omp_set_nest_lock
 314
 315         subroutine omp_unset_nest_lock(nvar) bind(c)
 316 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 317 !DIR$ attributes known_intrinsic :: omp_unset_nest_lock
 318 !DIR$ ENDIF
 319           import
 320           integer (kind=omp_nest_lock_kind) nvar
 321         end subroutine omp_unset_nest_lock
 322
 323         function omp_test_nest_lock(nvar) bind(c)
 324 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 325 !DIR$ attributes known_intrinsic :: omp_test_nest_lock
 326 !DIR$ ENDIF
 327           import
 328           integer (kind=omp_integer_kind) omp_test_nest_lock
 329           integer (kind=omp_nest_lock_kind) nvar
 330         end function omp_test_nest_lock
 331
 332         function omp_get_max_task_priority() bind(c)
 333           import
 334           integer (kind=omp_integer_kind) omp_get_max_task_priority
 335         end function omp_get_max_task_priority
 336
 337 !       ***
 338 !       *** kmp_* entry points
 339 !       ***
 340
 341         subroutine kmp_set_stacksize(size) bind(c)
 342           import
 343           integer (kind=omp_integer_kind), value :: size
 344         end subroutine kmp_set_stacksize
 345
 346         subroutine kmp_set_stacksize_s(size) bind(c)
 347           import
 348           integer (kind=kmp_size_t_kind), value :: size
 349         end subroutine kmp_set_stacksize_s
 350
 351         subroutine kmp_set_blocktime(msec) bind(c)
 352           import
 353           integer (kind=omp_integer_kind), value :: msec
 354         end subroutine kmp_set_blocktime
 355
 356         subroutine kmp_set_library_serial() bind(c)
 357         end subroutine kmp_set_library_serial
 358
 359         subroutine kmp_set_library_turnaround() bind(c)
 360         end subroutine kmp_set_library_turnaround
 361
 362         subroutine kmp_set_library_throughput() bind(c)
 363         end subroutine kmp_set_library_throughput
 364
 365         subroutine kmp_set_library(libnum) bind(c)
 366           import
 367           integer (kind=omp_integer_kind), value :: libnum
 368         end subroutine kmp_set_library
 369
 370         subroutine kmp_set_defaults(string) bind(c)
 371           character string(*)
 372         end subroutine kmp_set_defaults
 373
 374         function kmp_get_stacksize() bind(c)
 375           import
 376           integer (kind=omp_integer_kind) kmp_get_stacksize
 377         end function kmp_get_stacksize
 378
 379         function kmp_get_stacksize_s() bind(c)
 380           import
 381           integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
 382         end function kmp_get_stacksize_s
 383
 384         function kmp_get_blocktime() bind(c)
 385           import
 386           integer (kind=omp_integer_kind) kmp_get_blocktime
 387         end function kmp_get_blocktime
 388
 389         function kmp_get_library() bind(c)
 390           import
 391           integer (kind=omp_integer_kind) kmp_get_library
 392         end function kmp_get_library
 393
 394         subroutine kmp_set_disp_num_buffers(num) bind(c)
 395           import
 396           integer (kind=omp_integer_kind), value :: num
 397         end subroutine kmp_set_disp_num_buffers
 398
 399         function kmp_set_affinity(mask) bind(c)
 400           import
 401           integer (kind=omp_integer_kind) kmp_set_affinity
 402           integer (kind=kmp_affinity_mask_kind) mask
 403         end function kmp_set_affinity
 404
 405         function kmp_get_affinity(mask) bind(c)
 406           import
 407           integer (kind=omp_integer_kind) kmp_get_affinity
 408           integer (kind=kmp_affinity_mask_kind) mask
 409         end function kmp_get_affinity
 410
 411         function kmp_get_affinity_max_proc() bind(c)
 412           import
 413           integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
 414         end function kmp_get_affinity_max_proc
 415
 416         subroutine kmp_create_affinity_mask(mask) bind(c)
 417           import
 418           integer (kind=kmp_affinity_mask_kind) mask
 419         end subroutine kmp_create_affinity_mask
 420
 421         subroutine kmp_destroy_affinity_mask(mask) bind(c)
 422           import
 423           integer (kind=kmp_affinity_mask_kind) mask
 424         end subroutine kmp_destroy_affinity_mask
 425
 426         function kmp_set_affinity_mask_proc(proc, mask) bind(c)
 427           import
 428           integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
 429           integer (kind=omp_integer_kind), value :: proc
 430           integer (kind=kmp_affinity_mask_kind) mask
 431         end function kmp_set_affinity_mask_proc
 432
 433         function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
 434           import
 435           integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
 436           integer (kind=omp_integer_kind), value :: proc
 437           integer (kind=kmp_affinity_mask_kind) mask
 438         end function kmp_unset_affinity_mask_proc
 439
 440         function kmp_get_affinity_mask_proc(proc, mask) bind(c)
 441           import
 442           integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
 443           integer (kind=omp_integer_kind), value :: proc
 444           integer (kind=kmp_affinity_mask_kind) mask
 445         end function kmp_get_affinity_mask_proc
 446
 447         function kmp_malloc(size) bind(c)
 448           import
 449           integer (kind=kmp_pointer_kind) kmp_malloc
 450           integer (kind=kmp_size_t_kind), value :: size
 451         end function kmp_malloc
 452
 453         function kmp_aligned_malloc(size, alignment) bind(c)
 454           import
 455           integer (kind=kmp_pointer_kind) kmp_aligned_malloc
 456           integer (kind=kmp_size_t_kind), value :: size
 457           integer (kind=kmp_size_t_kind), value :: alignment
 458         end function kmp_aligned_malloc
 459
 460         function kmp_calloc(nelem, elsize) bind(c)
 461           import
 462           integer (kind=kmp_pointer_kind) kmp_calloc
 463           integer (kind=kmp_size_t_kind), value :: nelem
 464           integer (kind=kmp_size_t_kind), value :: elsize
 465         end function kmp_calloc
 466
 467         function kmp_realloc(ptr, size) bind(c)
 468           import
 469           integer (kind=kmp_pointer_kind) kmp_realloc
 470           integer (kind=kmp_pointer_kind), value :: ptr
 471           integer (kind=kmp_size_t_kind), value :: size
 472         end function kmp_realloc
 473
 474         subroutine kmp_free(ptr) bind(c)
 475           import
 476           integer (kind=kmp_pointer_kind), value :: ptr
 477         end subroutine kmp_free
 478
 479         subroutine kmp_set_warnings_on() bind(c)
 480         end subroutine kmp_set_warnings_on
 481
 482         subroutine kmp_set_warnings_off() bind(c)
 483         end subroutine kmp_set_warnings_off
 484
 485         subroutine omp_init_lock_with_hint(svar, hint) bind(c)
 486           import
 487           integer (kind=omp_lock_kind) svar
 488           integer (kind=omp_lock_hint_kind), value :: hint
 489         end subroutine omp_init_lock_with_hint
 490
 491         subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
 492           import
 493           integer (kind=omp_nest_lock_kind) nvar
 494           integer (kind=omp_lock_hint_kind), value :: hint
 495         end subroutine omp_init_nest_lock_with_hint
 496
 497       end interface
 498
 499 !DIR$ IF DEFINED (__INTEL_OFFLOAD)
 500 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
 501 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
 502 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested
 503 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads
 504 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads
 505 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num
 506 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs
 507 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel
 508 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final
 509 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic
 510 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested
 511 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit
 512 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels
 513 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels
 514 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level
 515 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level
 516 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num
 517 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size
 518 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule
 519 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule
 520 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind
 521 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime
 522 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick
 523 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device
 524 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device
 525 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device
 526 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_initial_device
 527 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices
 528 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams
 529 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num
 530 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock
 531 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock
 532 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock
 533 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock
 534 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock
 535 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock
 536 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock
 537 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock
 538 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock
 539 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock
 540 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_task_priority
 541 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize
 542 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s
 543 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime
 544 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial
 545 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround
 546 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput
 547 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library
 548 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults
 549 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize
 550 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s
 551 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime
 552 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library
 553 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_disp_num_buffers
 554 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity
 555 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity
 556 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc
 557 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask
 558 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask
 559 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc
 560 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc
 561 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc
 562 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc
 563 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_aligned_malloc
 564 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc
 565 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc
 566 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free
 567 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on
 568 !DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off
 569 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock_with_hint
 570 !DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock_with_hint
 571
 572 !DIR$ IF(__INTEL_COMPILER.GE.1400)
 573 !$omp declare target(omp_set_num_threads )
 574 !$omp declare target(omp_set_dynamic )
 575 !$omp declare target(omp_set_nested )
 576 !$omp declare target(omp_get_num_threads )
 577 !$omp declare target(omp_get_max_threads )
 578 !$omp declare target(omp_get_thread_num )
 579 !$omp declare target(omp_get_num_procs )
 580 !$omp declare target(omp_in_parallel )
 581 !$omp declare target(omp_in_final )
 582 !$omp declare target(omp_get_dynamic )
 583 !$omp declare target(omp_get_nested )
 584 !$omp declare target(omp_get_thread_limit )
 585 !$omp declare target(omp_set_max_active_levels )
 586 !$omp declare target(omp_get_max_active_levels )
 587 !$omp declare target(omp_get_level )
 588 !$omp declare target(omp_get_active_level )
 589 !$omp declare target(omp_get_ancestor_thread_num )
 590 !$omp declare target(omp_get_team_size )
 591 !$omp declare target(omp_set_schedule )
 592 !$omp declare target(omp_get_schedule )
 593 !$omp declare target(omp_get_proc_bind )
 594 !$omp declare target(omp_get_wtime )
 595 !$omp declare target(omp_get_wtick )
 596 !$omp declare target(omp_get_default_device )
 597 !$omp declare target(omp_set_default_device )
 598 !$omp declare target(omp_is_initial_device )
 599 !$omp declare target(omp_get_initial_device )
 600 !$omp declare target(omp_get_num_devices )
 601 !$omp declare target(omp_get_num_teams )
 602 !$omp declare target(omp_get_team_num )
 603 !$omp declare target(omp_init_lock )
 604 !$omp declare target(omp_destroy_lock )
 605 !$omp declare target(omp_set_lock )
 606 !$omp declare target(omp_unset_lock )
 607 !$omp declare target(omp_test_lock )
 608 !$omp declare target(omp_init_nest_lock )
 609 !$omp declare target(omp_destroy_nest_lock )
 610 !$omp declare target(omp_set_nest_lock )
 611 !$omp declare target(omp_unset_nest_lock )
 612 !$omp declare target(omp_test_nest_lock )
 613 !$omp declare target(omp_get_max_task_priority )
 614 !$omp declare target(kmp_set_stacksize )
 615 !$omp declare target(kmp_set_stacksize_s )
 616 !$omp declare target(kmp_set_blocktime )
 617 !$omp declare target(kmp_set_library_serial )
 618 !$omp declare target(kmp_set_library_turnaround )
 619 !$omp declare target(kmp_set_library_throughput )
 620 !$omp declare target(kmp_set_library )
 621 !$omp declare target(kmp_set_defaults )
 622 !$omp declare target(kmp_get_stacksize )
 623 !$omp declare target(kmp_get_stacksize_s )
 624 !$omp declare target(kmp_get_blocktime )
 625 !$omp declare target(kmp_get_library )
 626 !$omp declare target(kmp_set_disp_num_buffers )
 627 !$omp declare target(kmp_set_affinity )
 628 !$omp declare target(kmp_get_affinity )
 629 !$omp declare target(kmp_get_affinity_max_proc )
 630 !$omp declare target(kmp_create_affinity_mask )
 631 !$omp declare target(kmp_destroy_affinity_mask )
 632 !$omp declare target(kmp_set_affinity_mask_proc )
 633 !$omp declare target(kmp_unset_affinity_mask_proc )
 634 !$omp declare target(kmp_get_affinity_mask_proc )
 635 !$omp declare target(kmp_malloc )
 636 !$omp declare target(kmp_aligned_malloc )
 637 !$omp declare target(kmp_calloc )
 638 !$omp declare target(kmp_realloc )
 639 !$omp declare target(kmp_free )
 640 !$omp declare target(kmp_set_warnings_on )
 641 !$omp declare target(kmp_set_warnings_off )
 642 !$omp declare target(omp_init_lock_with_hint )
 643 !$omp declare target(omp_init_nest_lock_with_hint )
 644 !DIR$ ENDIF
 645 !DIR$ ENDIF