1299 lines · plain
1! include/omp_lib.h.var2 3!4!//===----------------------------------------------------------------------===//5!//6!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.7!// See https://llvm.org/LICENSE.txt for license information.8!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception9!//10!//===----------------------------------------------------------------------===//11!12 13 integer omp_integer_kind14 parameter(omp_integer_kind=4)15 integer omp_logical_kind16 parameter(omp_logical_kind=4)17 integer omp_real_kind18 parameter(omp_real_kind=4)19 integer omp_lock_kind20 parameter(omp_lock_kind=int_ptr_kind())21 integer omp_nest_lock_kind22 parameter(omp_nest_lock_kind=int_ptr_kind())23 integer omp_sched_kind24 parameter(omp_sched_kind=omp_integer_kind)25 integer omp_proc_bind_kind26 parameter(omp_proc_bind_kind=omp_integer_kind)27 integer kmp_pointer_kind28 parameter(kmp_pointer_kind=int_ptr_kind())29 integer kmp_size_t_kind30 parameter(kmp_size_t_kind=int_ptr_kind())31 integer kmp_affinity_mask_kind32 parameter(kmp_affinity_mask_kind=int_ptr_kind())33 integer omp_sync_hint_kind34 parameter(omp_sync_hint_kind=omp_integer_kind)35 integer omp_lock_hint_kind36 parameter(omp_lock_hint_kind=omp_sync_hint_kind)37 integer omp_control_tool_kind38 parameter(omp_control_tool_kind=omp_integer_kind)39 integer omp_control_tool_result_kind40 parameter(omp_control_tool_result_kind=omp_integer_kind)41 integer omp_allocator_handle_kind42 parameter(omp_allocator_handle_kind=int_ptr_kind())43 integer omp_memspace_handle_kind44 parameter(omp_memspace_handle_kind=int_ptr_kind())45 integer omp_alloctrait_key_kind46 parameter(omp_alloctrait_key_kind=omp_integer_kind)47 integer omp_alloctrait_val_kind48 parameter(omp_alloctrait_val_kind=int_ptr_kind())49 integer omp_pause_resource_kind50 parameter(omp_pause_resource_kind=omp_integer_kind)51 integer omp_depend_kind52 parameter(omp_depend_kind=int_ptr_kind())53 integer omp_event_handle_kind54 parameter(omp_event_handle_kind=int_ptr_kind())55 integer omp_interop_kind56 parameter(omp_interop_kind=int_ptr_kind())57 integer omp_interop_fr_kind58 parameter(omp_interop_fr_kind=omp_integer_kind)59 60 integer(kind=omp_integer_kind)openmp_version61 parameter(openmp_version=@LIBOMP_OMP_YEAR_MONTH@)62 integer(kind=omp_integer_kind)kmp_version_major63 parameter(kmp_version_major=@LIBOMP_VERSION_MAJOR@)64 integer(kind=omp_integer_kind)kmp_version_minor65 parameter(kmp_version_minor=@LIBOMP_VERSION_MINOR@)66 integer(kind=omp_integer_kind)kmp_version_build67 parameter(kmp_version_build=@LIBOMP_VERSION_BUILD@)68 character(*)kmp_build_date69 parameter(kmp_build_date='@LIBOMP_BUILD_DATE@')70 71 integer(kind=omp_sched_kind)omp_sched_static72 parameter(omp_sched_static=1)73 integer(kind=omp_sched_kind)omp_sched_dynamic74 parameter(omp_sched_dynamic=2)75 integer(kind=omp_sched_kind)omp_sched_guided76 parameter(omp_sched_guided=3)77 integer(kind=omp_sched_kind)omp_sched_auto78 parameter(omp_sched_auto=4)79 integer(kind=omp_sched_kind)omp_sched_monotonic80 parameter(omp_sched_monotonic=Z'80000000')81 82 integer(kind=omp_proc_bind_kind)omp_proc_bind_false83 parameter(omp_proc_bind_false=0)84 integer(kind=omp_proc_bind_kind)omp_proc_bind_true85 parameter(omp_proc_bind_true=1)86 integer(kind=omp_proc_bind_kind)omp_proc_bind_master87 parameter(omp_proc_bind_master=2)88 integer(kind=omp_proc_bind_kind)omp_proc_bind_close89 parameter(omp_proc_bind_close=3)90 integer(kind=omp_proc_bind_kind)omp_proc_bind_spread91 parameter(omp_proc_bind_spread=4)92 93 integer(kind=omp_sync_hint_kind)omp_sync_hint_none94 parameter(omp_sync_hint_none=0)95 integer(kind=omp_sync_hint_kind)omp_sync_hint_uncontended96 parameter(omp_sync_hint_uncontended=1)97 integer(kind=omp_sync_hint_kind)omp_sync_hint_contended98 parameter(omp_sync_hint_contended=2)99 integer(kind=omp_sync_hint_kind)omp_sync_hint_nonspeculative100 parameter(omp_sync_hint_nonspeculative=4)101 integer(kind=omp_sync_hint_kind)omp_sync_hint_speculative102 parameter(omp_sync_hint_speculative=8)103 integer(kind=omp_lock_hint_kind)omp_lock_hint_none104 parameter(omp_lock_hint_none=omp_sync_hint_none)105 integer(kind=omp_lock_hint_kind)omp_lock_hint_uncontended106 parameter(omp_lock_hint_uncontended=omp_sync_hint_uncontended)107 integer(kind=omp_lock_hint_kind)omp_lock_hint_contended108 parameter(omp_lock_hint_contended=omp_sync_hint_contended)109 integer(kind=omp_lock_hint_kind)omp_lock_hint_nonspeculative110 parameter(omp_lock_hint_nonspeculative=4)111 integer(kind=omp_lock_hint_kind)omp_lock_hint_speculative112 parameter(omp_lock_hint_speculative=omp_sync_hint_speculative)113 integer(kind=omp_lock_hint_kind)kmp_lock_hint_hle114 parameter(kmp_lock_hint_hle=65536)115 integer(kind=omp_lock_hint_kind)kmp_lock_hint_rtm116 parameter(kmp_lock_hint_rtm=131072)117 integer(kind=omp_lock_hint_kind)kmp_lock_hint_adaptive118 parameter(kmp_lock_hint_adaptive=262144)119 120 integer(kind=omp_control_tool_kind)omp_control_tool_start121 parameter(omp_control_tool_start=1)122 integer(kind=omp_control_tool_kind)omp_control_tool_pause123 parameter(omp_control_tool_pause=2)124 integer(kind=omp_control_tool_kind)omp_control_tool_flush125 parameter(omp_control_tool_flush=3)126 integer(kind=omp_control_tool_kind)omp_control_tool_end127 parameter(omp_control_tool_end=4)128 129 integer(omp_control_tool_result_kind)omp_control_tool_notool130 parameter(omp_control_tool_notool=-2)131 integer(omp_control_tool_result_kind)omp_control_tool_nocallback132 parameter(omp_control_tool_nocallback=-1)133 integer(omp_control_tool_result_kind)omp_control_tool_success134 parameter(omp_control_tool_success=0)135 integer(omp_control_tool_result_kind)omp_control_tool_ignored136 parameter(omp_control_tool_ignored=1)137 138 integer(kind=omp_alloctrait_key_kind)omp_atk_sync_hint139 parameter(omp_atk_sync_hint=1)140 integer(kind=omp_alloctrait_key_kind)omp_atk_alignment141 parameter(omp_atk_alignment=2)142 integer(kind=omp_alloctrait_key_kind)omp_atk_access143 parameter(omp_atk_access=3)144 integer(kind=omp_alloctrait_key_kind)omp_atk_pool_size145 parameter(omp_atk_pool_size=4)146 integer(kind=omp_alloctrait_key_kind)omp_atk_fallback147 parameter(omp_atk_fallback=5)148 integer(kind=omp_alloctrait_key_kind)omp_atk_fb_data149 parameter(omp_atk_fb_data=6)150 integer(kind=omp_alloctrait_key_kind)omp_atk_pinned151 parameter(omp_atk_pinned=7)152 integer(kind=omp_alloctrait_key_kind)omp_atk_partition153 parameter(omp_atk_partition=8)154 integer(kind=omp_alloctrait_key_kind)omp_atk_pin_device155 parameter(omp_atk_pin_device=9)156 integer(kind=omp_alloctrait_key_kind)omp_atk_preferred_device157 parameter(omp_atk_preferred_device=10)158 integer(kind=omp_alloctrait_key_kind)omp_atk_device_access159 parameter(omp_atk_device_access=11)160 integer(kind=omp_alloctrait_key_kind)omp_atk_target_access161 parameter(omp_atk_target_access=12)162 integer(kind=omp_alloctrait_key_kind)omp_atk_atomic_scope163 parameter(omp_atk_atomic_scope=13)164 integer(kind=omp_alloctrait_key_kind)omp_atk_part_size165 parameter(omp_atk_part_size=14)166 167 integer(kind=omp_alloctrait_val_kind)omp_atv_default168 parameter(omp_atv_default=-1)169 ! Reserved for future use170 integer(kind=omp_alloctrait_val_kind)omp_atv_false171 parameter(omp_atv_false=0)172 ! Reserved for future use173 integer(kind=omp_alloctrait_val_kind)omp_atv_true174 parameter(omp_atv_true=1)175 integer(kind=omp_alloctrait_val_kind)omp_atv_contended176 parameter(omp_atv_contended=3)177 integer(kind=omp_alloctrait_val_kind)omp_atv_uncontended178 parameter(omp_atv_uncontended=4)179 integer(kind=omp_alloctrait_val_kind)omp_atv_serialized180 parameter(omp_atv_serialized=5)181 integer(kind=omp_alloctrait_val_kind)omp_atv_sequential182 parameter(omp_atv_sequential=5)183 integer(kind=omp_alloctrait_val_kind)omp_atv_private184 parameter(omp_atv_private=6)185 integer(kind=omp_alloctrait_val_kind)omp_atv_device186 parameter(omp_atv_device=7)187 integer(kind=omp_alloctrait_val_kind)omp_atv_thread188 parameter(omp_atv_thread=8)189 integer(kind=omp_alloctrait_val_kind)omp_atv_pteam190 parameter(omp_atv_pteam=9)191 integer(kind=omp_alloctrait_val_kind)omp_atv_cgroup192 parameter(omp_atv_cgroup=10)193 integer(kind=omp_alloctrait_val_kind)omp_atv_default_mem_fb194 parameter(omp_atv_default_mem_fb=11)195 integer(kind=omp_alloctrait_val_kind)omp_atv_null_fb196 parameter(omp_atv_null_fb=12)197 integer(kind=omp_alloctrait_val_kind)omp_atv_abort_fb198 parameter(omp_atv_abort_fb=13)199 integer(kind=omp_alloctrait_val_kind)omp_atv_allocator_fb200 parameter(omp_atv_allocator_fb=14)201 integer(kind=omp_alloctrait_val_kind)omp_atv_environment202 parameter(omp_atv_environment=15)203 integer(kind=omp_alloctrait_val_kind)omp_atv_nearest204 parameter(omp_atv_nearest=16)205 integer(kind=omp_alloctrait_val_kind)omp_atv_blocked206 parameter(omp_atv_blocked=17)207 integer(kind=omp_alloctrait_val_kind)omp_atv_interleaved208 parameter(omp_atv_interleaved=18)209 integer(kind=omp_alloctrait_val_kind)omp_atv_all210 parameter(omp_atv_all=19)211 integer(kind=omp_alloctrait_val_kind)omp_atv_single212 parameter(omp_atv_single=20)213 integer(kind=omp_alloctrait_val_kind)omp_atv_multiple214 parameter(omp_atv_multiple=21)215 integer(kind=omp_alloctrait_val_kind)omp_atv_memspace216 parameter(omp_atv_memspace=22)217 218 type omp_alloctrait219 integer (kind=omp_alloctrait_key_kind) key220 integer (kind=omp_alloctrait_val_kind) value221 end type omp_alloctrait222 223 integer(kind=omp_allocator_handle_kind)omp_null_allocator224 parameter(omp_null_allocator=0)225 integer(kind=omp_allocator_handle_kind)omp_default_mem_alloc226 parameter(omp_default_mem_alloc=1)227 integer(kind=omp_allocator_handle_kind)omp_large_cap_mem_alloc228 parameter(omp_large_cap_mem_alloc=2)229 integer(kind=omp_allocator_handle_kind)omp_const_mem_alloc230 parameter(omp_const_mem_alloc=3)231 integer(kind=omp_allocator_handle_kind)omp_high_bw_mem_alloc232 parameter(omp_high_bw_mem_alloc=4)233 integer(kind=omp_allocator_handle_kind)omp_low_lat_mem_alloc234 parameter(omp_low_lat_mem_alloc=5)235 integer(kind=omp_allocator_handle_kind)omp_cgroup_mem_alloc236 parameter(omp_cgroup_mem_alloc=6)237 integer(kind=omp_allocator_handle_kind)omp_pteam_mem_alloc238 parameter(omp_pteam_mem_alloc=7)239 integer(kind=omp_allocator_handle_kind)omp_thread_mem_alloc240 parameter(omp_thread_mem_alloc=8)241 integer(omp_allocator_handle_kind)llvm_omp_target_host_mem_alloc242 parameter(llvm_omp_target_host_mem_alloc=100)243 integer(omp_allocator_handle_kind)llvm_omp_target_shared_mem_alloc244 parameter(llvm_omp_target_shared_mem_alloc=101)245 integer(omp_allocator_handle_kind)llvm_omp_target_device_mem_alloc246 parameter(llvm_omp_target_device_mem_alloc=102)247 248 integer(kind=omp_memspace_handle_kind)omp_null_mem_space249 parameter(omp_null_mem_space=0)250 integer(kind=omp_memspace_handle_kind)omp_default_mem_space251 parameter(omp_default_mem_space=99)252 integer(kind=omp_memspace_handle_kind)omp_large_cap_mem_space253 parameter(omp_large_cap_mem_space=1)254 integer(kind=omp_memspace_handle_kind)omp_const_mem_space255 parameter(omp_const_mem_space=2)256 integer(kind=omp_memspace_handle_kind)omp_high_bw_mem_space257 parameter(omp_high_bw_mem_space=3)258 integer(kind=omp_memspace_handle_kind)omp_low_lat_mem_space259 parameter(omp_low_lat_mem_space=4)260 integer(omp_memspace_handle_kind)llvm_omp_target_host_mem_space261 parameter(llvm_omp_target_host_mem_space=100)262 integer(omp_memspace_handle_kind)llvm_omp_target_shared_mem_space263 parameter(llvm_omp_target_shared_mem_space=101)264 integer(omp_memspace_handle_kind)llvm_omp_target_device_mem_space265 parameter(llvm_omp_target_device_mem_space=102)266 267 integer(kind=omp_pause_resource_kind)omp_pause_resume268 parameter(omp_pause_resume=0)269 integer(kind=omp_pause_resource_kind)omp_pause_soft270 parameter(omp_pause_soft=1)271 integer(kind=omp_pause_resource_kind)omp_pause_hard272 parameter(omp_pause_hard=2)273 integer(kind=omp_pause_resource_kind)omp_pause_stop_tool274 parameter(omp_pause_stop_tool=3)275 276 integer(kind=omp_interop_fr_kind)omp_ifr_cuda277 parameter(omp_ifr_cuda=1)278 integer(kind=omp_interop_fr_kind)omp_ifr_cuda_driver279 parameter(omp_ifr_cuda_driver=2)280 integer(kind=omp_interop_fr_kind)omp_ifr_opencl281 parameter(omp_ifr_opencl=3)282 integer(kind=omp_interop_fr_kind)omp_ifr_sycl283 parameter(omp_ifr_sycl=4)284 integer(kind=omp_interop_fr_kind)omp_ifr_hip285 parameter(omp_ifr_hip=5)286 integer(kind=omp_interop_fr_kind)omp_ifr_level_zero287 parameter(omp_ifr_level_zero=6)288 integer(kind=omp_interop_fr_kind)omp_ifr_last289 parameter(omp_ifr_last=7)290 291 integer(kind=omp_interop_kind)omp_interop_none292 parameter(omp_interop_none=0)293 294 interface295 296! ***297! *** omp_* entry points298! ***299 300 subroutine omp_set_num_threads(num_threads) bind(c)301 import302 integer (kind=omp_integer_kind), value :: num_threads303 end subroutine omp_set_num_threads304 305 subroutine omp_set_dynamic(dynamic_threads) bind(c)306 import307 logical (kind=omp_logical_kind), value :: dynamic_threads308 end subroutine omp_set_dynamic309 310 subroutine omp_set_nested(nested) bind(c)311 import312 logical (kind=omp_logical_kind), value :: nested313 end subroutine omp_set_nested314 315 function omp_get_num_threads() bind(c)316 import317 integer (kind=omp_integer_kind) omp_get_num_threads318 end function omp_get_num_threads319 320 function omp_get_max_threads() bind(c)321 import322 integer (kind=omp_integer_kind) omp_get_max_threads323 end function omp_get_max_threads324 325 function omp_get_thread_num() bind(c)326 import327 integer (kind=omp_integer_kind) omp_get_thread_num328 end function omp_get_thread_num329 330 function omp_get_num_procs() bind(c)331 import332 integer (kind=omp_integer_kind) omp_get_num_procs333 end function omp_get_num_procs334 335 function omp_in_parallel() bind(c)336 import337 logical (kind=omp_logical_kind) omp_in_parallel338 end function omp_in_parallel339 340 function omp_in_final() bind(c)341 import342 logical (kind=omp_logical_kind) omp_in_final343 end function omp_in_final344 345 function omp_get_dynamic() bind(c)346 import347 logical (kind=omp_logical_kind) omp_get_dynamic348 end function omp_get_dynamic349 350 function omp_get_nested() bind(c)351 import352 logical (kind=omp_logical_kind) omp_get_nested353 end function omp_get_nested354 355 function omp_get_thread_limit() bind(c)356 import357 integer (kind=omp_integer_kind) omp_get_thread_limit358 end function omp_get_thread_limit359 360 subroutine omp_set_max_active_levels(max_levels) bind(c)361 import362 integer (kind=omp_integer_kind), value :: max_levels363 end subroutine omp_set_max_active_levels364 365 function omp_get_max_active_levels() bind(c)366 import367 integer (kind=omp_integer_kind) omp_get_max_active_levels368 end function omp_get_max_active_levels369 370 function omp_get_level() bind(c)371 import372 integer (kind=omp_integer_kind) omp_get_level373 end function omp_get_level374 375 function omp_get_active_level() bind(c)376 import377 integer (kind=omp_integer_kind) omp_get_active_level378 end function omp_get_active_level379 380 function omp_get_ancestor_thread_num(level) bind(c)381 import382 integer (kind=omp_integer_kind) omp_get_ancestor_thread_num383 integer (kind=omp_integer_kind), value :: level384 end function omp_get_ancestor_thread_num385 386 function omp_get_team_size(level) bind(c)387 import388 integer (kind=omp_integer_kind) omp_get_team_size389 integer (kind=omp_integer_kind), value :: level390 end function omp_get_team_size391 392 subroutine omp_set_schedule(kind, chunk_size) bind(c)393 import394 integer (kind=omp_sched_kind), value :: kind395 integer (kind=omp_integer_kind), value :: chunk_size396 end subroutine omp_set_schedule397 398 subroutine omp_get_schedule(kind, chunk_size) bind(c)399 import400 integer (kind=omp_sched_kind) kind401 integer (kind=omp_integer_kind) chunk_size402 end subroutine omp_get_schedule403 404 function omp_get_proc_bind() bind(c)405 import406 integer (kind=omp_proc_bind_kind) omp_get_proc_bind407 end function omp_get_proc_bind408 409 function omp_get_num_places() bind(c)410 import411 integer (kind=omp_integer_kind) omp_get_num_places412 end function omp_get_num_places413 414 function omp_get_place_num_procs(place_num) bind(c)415 import416 integer (kind=omp_integer_kind), value :: place_num417 integer (kind=omp_integer_kind) omp_get_place_num_procs418 end function omp_get_place_num_procs419 420 subroutine omp_get_place_proc_ids(place_num, ids) bind(c)421 import422 integer (kind=omp_integer_kind), value :: place_num423 integer (kind=omp_integer_kind) ids(*)424 end subroutine omp_get_place_proc_ids425 426 function omp_get_place_num() bind(c)427 import428 integer (kind=omp_integer_kind) omp_get_place_num429 end function omp_get_place_num430 431 function omp_get_partition_num_places() bind(c)432 import433 integer (kind=omp_integer_kind) omp_get_partition_num_places434 end function omp_get_partition_num_places435 436 subroutine omp_get_partition_place_nums(place_nums) bind(c)437 import438 integer (kind=omp_integer_kind) place_nums(*)439 end subroutine omp_get_partition_place_nums440 441 function omp_get_wtime() bind(c)442 double precision omp_get_wtime443 end function omp_get_wtime444 445 function omp_get_wtick() bind(c)446 double precision omp_get_wtick447 end function omp_get_wtick448 449 function omp_get_default_device() bind(c)450 import451 integer (kind=omp_integer_kind) omp_get_default_device452 end function omp_get_default_device453 454 subroutine omp_set_default_device(device_num) bind(c)455 import456 integer (kind=omp_integer_kind), value :: device_num457 end subroutine omp_set_default_device458 459 function omp_get_num_devices() bind(c)460 import461 integer (kind=omp_integer_kind) omp_get_num_devices462 end function omp_get_num_devices463 464 function omp_get_num_teams() bind(c)465 import466 integer (kind=omp_integer_kind) omp_get_num_teams467 end function omp_get_num_teams468 469 function omp_get_team_num() bind(c)470 import471 integer (kind=omp_integer_kind) omp_get_team_num472 end function omp_get_team_num473 474 function omp_is_initial_device() bind(c)475 import476 logical (kind=omp_logical_kind) omp_is_initial_device477 end function omp_is_initial_device478 479 function omp_get_initial_device() bind(c)480 import481 integer (kind=omp_integer_kind) omp_get_initial_device482 end function omp_get_initial_device483 484 function omp_get_device_num() bind(c)485 import486 integer (kind=omp_integer_kind) omp_get_device_num487 end function omp_get_device_num488 489 function omp_pause_resource(kind, device_num) bind(c)490 import491 integer (kind=omp_pause_resource_kind), value :: kind492 integer (kind=omp_integer_kind), value :: device_num493 integer (kind=omp_integer_kind) omp_pause_resource494 end function omp_pause_resource495 496 function omp_pause_resource_all(kind) bind(c)497 import498 integer (kind=omp_pause_resource_kind), value :: kind499 integer (kind=omp_integer_kind) omp_pause_resource_all500 end function omp_pause_resource_all501 502 function omp_get_supported_active_levels() bind(c)503 import504 integer(kind=omp_integer_kind)omp_get_supported_active_levels505 end function omp_get_supported_active_levels506 507 subroutine omp_fulfill_event(event) bind(c)508 import509 integer (kind=omp_event_handle_kind), value :: event510 end subroutine omp_fulfill_event511 512 subroutine omp_init_lock(svar) bind(c)513#ifdef __INTEL_COMPILER514!DIR$ IF(__INTEL_COMPILER.GE.1400)515!DIR$ attributes known_intrinsic :: omp_init_lock516!DIR$ ENDIF517#endif518 import519 integer (kind=omp_lock_kind) svar520 end subroutine omp_init_lock521 522 subroutine omp_destroy_lock(svar) bind(c)523#ifdef __INTEL_COMPILER524!DIR$ IF(__INTEL_COMPILER.GE.1400)525!DIR$ attributes known_intrinsic :: omp_destroy_lock526!DIR$ ENDIF527#endif528 import529 integer (kind=omp_lock_kind) svar530 end subroutine omp_destroy_lock531 532 subroutine omp_set_lock(svar) bind(c)533#ifdef __INTEL_COMPILER534!DIR$ IF(__INTEL_COMPILER.GE.1400)535!DIR$ attributes known_intrinsic :: omp_set_lock536!DIR$ ENDIF537#endif538 import539 integer (kind=omp_lock_kind) svar540 end subroutine omp_set_lock541 542 subroutine omp_unset_lock(svar) bind(c)543#ifdef __INTEL_COMPILER544!DIR$ IF(__INTEL_COMPILER.GE.1400)545!DIR$ attributes known_intrinsic :: omp_unset_lock546!DIR$ ENDIF547#endif548 import549 integer (kind=omp_lock_kind) svar550 end subroutine omp_unset_lock551 552 function omp_test_lock(svar) bind(c)553#ifdef __INTEL_COMPILER554!DIR$ IF(__INTEL_COMPILER.GE.1400)555!DIR$ attributes known_intrinsic :: omp_test_lock556!DIR$ ENDIF557#endif558 import559 logical (kind=omp_logical_kind) omp_test_lock560 integer (kind=omp_lock_kind) svar561 end function omp_test_lock562 563 subroutine omp_init_nest_lock(nvar) bind(c)564#ifdef __INTEL_COMPILER565!DIR$ IF(__INTEL_COMPILER.GE.1400)566!DIR$ attributes known_intrinsic :: omp_init_nest_lock567!DIR$ ENDIF568#endif569 import570 integer (kind=omp_nest_lock_kind) nvar571 end subroutine omp_init_nest_lock572 573 subroutine omp_destroy_nest_lock(nvar) bind(c)574#ifdef __INTEL_COMPILER575!DIR$ IF(__INTEL_COMPILER.GE.1400)576!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock577!DIR$ ENDIF578#endif579 import580 integer (kind=omp_nest_lock_kind) nvar581 end subroutine omp_destroy_nest_lock582 583 subroutine omp_set_nest_lock(nvar) bind(c)584#ifdef __INTEL_COMPILER585!DIR$ IF(__INTEL_COMPILER.GE.1400)586!DIR$ attributes known_intrinsic :: omp_set_nest_lock587!DIR$ ENDIF588#endif589 import590 integer (kind=omp_nest_lock_kind) nvar591 end subroutine omp_set_nest_lock592 593 subroutine omp_unset_nest_lock(nvar) bind(c)594#ifdef __INTEL_COMPILER595!DIR$ IF(__INTEL_COMPILER.GE.1400)596!DIR$ attributes known_intrinsic :: omp_unset_nest_lock597!DIR$ ENDIF598#endif599 import600 integer (kind=omp_nest_lock_kind) nvar601 end subroutine omp_unset_nest_lock602 603 function omp_test_nest_lock(nvar) bind(c)604#ifdef __INTEL_COMPILER605!DIR$ IF(__INTEL_COMPILER.GE.1400)606!DIR$ attributes known_intrinsic :: omp_test_nest_lock607!DIR$ ENDIF608#endif609 import610 integer (kind=omp_integer_kind) omp_test_nest_lock611 integer (kind=omp_nest_lock_kind) nvar612 end function omp_test_nest_lock613 614 function omp_get_max_task_priority() bind(c)615 import616 integer (kind=omp_integer_kind) omp_get_max_task_priority617 end function omp_get_max_task_priority618 619 subroutine omp_init_lock_with_hint(svar, hint) bind(c)620 import621 integer (kind=omp_lock_kind) svar622 integer (kind=omp_lock_hint_kind), value :: hint623 end subroutine omp_init_lock_with_hint624 625 subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)626 import627 integer (kind=omp_nest_lock_kind) nvar628 integer (kind=omp_lock_hint_kind), value :: hint629 end subroutine omp_init_nest_lock_with_hint630 631 function omp_control_tool(command, modifier, arg) bind(c)632 import633 integer (kind=omp_integer_kind) omp_control_tool634 integer (kind=omp_control_tool_kind), value :: command635 integer (kind=omp_control_tool_kind), value :: modifier636 integer (kind=kmp_pointer_kind), optional :: arg637 end function omp_control_tool638 639 function omp_init_allocator(memspace, ntraits, traits)640 import641 integer (omp_allocator_handle_kind) omp_init_allocator642 integer (omp_memspace_handle_kind) :: memspace643 integer (omp_integer_kind) :: ntraits644 type(omp_alloctrait), intent(in) :: traits(*)645 end function omp_init_allocator646 647 subroutine omp_destroy_allocator(allocator) bind(c)648 import649 integer (omp_allocator_handle_kind), value :: allocator650 end subroutine omp_destroy_allocator651 652 subroutine omp_set_default_allocator(allocator) bind(c)653 import654 integer (omp_allocator_handle_kind), value :: allocator655 end subroutine omp_set_default_allocator656 657 function omp_get_default_allocator() bind(c)658 import659 integer (omp_allocator_handle_kind) omp_get_default_allocator660 end function omp_get_default_allocator661 662 subroutine omp_set_affinity_format(format)663 character (len=*) :: format664 end subroutine omp_set_affinity_format665 666 function omp_get_affinity_format(buffer)667 import668 character (len=*) :: buffer669 integer (kind=kmp_size_t_kind) :: omp_get_affinity_format670 end function omp_get_affinity_format671 672 subroutine omp_display_affinity(format)673 character (len=*) :: format674 end subroutine omp_display_affinity675 676 function omp_capture_affinity(buffer, format)677 import678 character (len=*) :: format679 character (len=*) :: buffer680 integer (kind=kmp_size_t_kind) :: omp_capture_affinity681 end function omp_capture_affinity682 683 subroutine omp_set_num_teams(num_teams) bind(c)684 import685 integer (kind=omp_integer_kind), value :: num_teams686 end subroutine omp_set_num_teams687 688 function omp_get_max_teams() bind(c)689 import690 integer (kind=omp_integer_kind) omp_get_max_teams691 end function omp_get_max_teams692 693 subroutine omp_set_teams_thread_limit(thread_limit) bind(c)694 import695 integer (kind=omp_integer_kind), value :: thread_limit696 end subroutine omp_set_teams_thread_limit697 698 function omp_get_teams_thread_limit() bind(c)699 import700 integer (kind=omp_integer_kind) omp_get_teams_thread_limit701 end function omp_get_teams_thread_limit702 703 subroutine omp_display_env(verbose) bind(c)704 import705 logical (kind=omp_logical_kind), value :: verbose706 end subroutine omp_display_env707 708 function omp_target_alloc(size, device_num) bind(c)709 use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t, c_int710 type(c_ptr) omp_target_alloc711 integer(c_size_t), value :: size712 integer(c_int), value :: device_num713 end function omp_target_alloc714 715 subroutine omp_target_free(device_ptr, device_num) bind(c)716 use, intrinsic :: iso_c_binding, only : c_ptr, c_int717 type(c_ptr), value :: device_ptr718 integer(c_int), value :: device_num719 end subroutine omp_target_free720 721 function omp_target_is_present(ptr, device_num) bind(c)722 use, intrinsic :: iso_c_binding, only : c_ptr, c_int723 integer(c_int) omp_target_is_present724 type(c_ptr), value :: ptr725 integer(c_int), value :: device_num726 end function omp_target_is_present727 728 function omp_target_memcpy(dst, src, length, dst_offset, &729 & src_offset, dst_device_num, src_device_num) bind(c)730 use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t731 integer(c_int) omp_target_memcpy732 type(c_ptr), value :: dst, src733 integer(c_size_t), value :: length, dst_offset, src_offset734 integer(c_int), value :: dst_device_num, src_device_num735 end function omp_target_memcpy736 737 function omp_target_memcpy_rect(dst, src, element_size, &738 & num_dims, volume, dst_offsets, src_offsets, dst_dimensions, &739 & src_dimensions, dst_device_num, src_device_num) bind(c)740 use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t741 integer(c_int) omp_target_memcpy_rect742 type(c_ptr), value :: dst, src743 integer(c_size_t), value :: element_size744 integer(c_int), value :: num_dims, dst_device_num, &745 & src_device_num746 integer(c_size_t), intent(in) :: volume(*), dst_offsets(*), &747 & src_offsets(*), dst_dimensions(*), src_dimensions(*)748 end function omp_target_memcpy_rect749 750 function omp_target_memcpy_async(dst, src, length, dst_offset, &751 & src_offset, dst_device_num, src_device_num, depobj_count, &752 & depobj_list) bind(c)753 use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t754 import755 integer(c_int) omp_target_memcpy_async756 type(c_ptr), value :: dst, src757 integer(c_size_t), value :: length, dst_offset, src_offset758 integer(c_int), value :: dst_device_num, src_device_num, &759 & depobj_count760 integer(omp_depend_kind), optional :: depobj_list(*)761 end function omp_target_memcpy_async762 763 function omp_target_memcpy_rect_async(dst, src, element_size, &764 & num_dims, volume, dst_offsets, src_offsets, dst_dimensions, &765 & src_dimensions, dst_device_num, src_device_num, &766 & depobj_count, depobj_list) bind(c)767 use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t768 import769 integer(c_int) omp_target_memcpy_rect_async770 type(c_ptr), value :: dst, src771 integer(c_size_t), value :: element_size772 integer(c_int), value :: num_dims, dst_device_num, &773 & src_device_num, depobj_count774 integer(c_size_t), intent(in) :: volume(*), dst_offsets(*), &775 & src_offsets(*), dst_dimensions(*), src_dimensions(*)776 integer(omp_depend_kind), optional :: depobj_list(*)777 end function omp_target_memcpy_rect_async778 779 function omp_target_memset(ptr, val, count, device_num) bind(c)780 use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t781 type(c_ptr) :: omp_target_memset782 type(c_ptr), value :: ptr783 integer(c_int), value :: val784 integer(c_size_t), value :: count785 integer(c_int), value :: device_num786 end function787 788 function omp_target_memset_async(ptr, val, count, device_num, &789 & depobj_count, depobj_list) bind(c)790 use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t791 import792 type(c_ptr) :: omp_target_memset_async793 type(c_ptr), value :: ptr794 integer(c_int), value :: val795 integer(c_size_t), value :: count796 integer(c_int), value :: device_num797 integer(c_int), value :: depobj_count798 integer(omp_depend_kind), optional :: depobj_list(*)799 end function800 801 function omp_target_associate_ptr(host_ptr, device_ptr, size, &802 & device_offset, device_num) bind(c)803 use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t, c_int804 integer(c_int) omp_target_associate_ptr805 type(c_ptr), value :: host_ptr, device_ptr806 integer(c_size_t), value :: size, device_offset807 integer(c_int), value :: device_num808 end function omp_target_associate_ptr809 810 function omp_get_mapped_ptr(ptr, device_num) bind(c)811 use, intrinsic :: iso_c_binding, only : c_ptr, c_int812 type(c_ptr) omp_get_mapped_ptr813 type(c_ptr), value :: ptr814 integer(c_int), value :: device_num815 end function omp_get_mapped_ptr816 817 function omp_target_disassociate_ptr(ptr, device_num) bind(c)818 use, intrinsic :: iso_c_binding, only : c_ptr, c_int819 integer(c_int) omp_target_disassociate_ptr820 type(c_ptr), value :: ptr821 integer(c_int), value :: device_num822 end function omp_target_disassociate_ptr823 824 function omp_target_is_accessible(ptr, size, device_num) bind(c)825 use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t, c_int826 integer(c_int) omp_target_is_accessible827 type(c_ptr), value :: ptr828 integer(c_size_t), value :: size829 integer(c_int), value :: device_num830 end function omp_target_is_accessible831 832 function omp_alloc(size, allocator) bind(c)833 use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t834 import :: omp_allocator_handle_kind835 type(c_ptr) omp_alloc836 integer(c_size_t), value :: size837 integer(omp_allocator_handle_kind), value :: allocator838 end function omp_alloc839 840 function omp_aligned_alloc(alignment, size, allocator) bind(c)841 use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t842 import :: omp_allocator_handle_kind843 type(c_ptr) omp_aligned_alloc844 integer(c_size_t), value :: alignment, size845 integer(omp_allocator_handle_kind), value :: allocator846 end function omp_aligned_alloc847 848 function omp_calloc(nmemb, size, allocator) bind(c)849 use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t850 import :: omp_allocator_handle_kind851 type(c_ptr) omp_calloc852 integer(c_size_t), value :: nmemb, size853 integer(omp_allocator_handle_kind), value :: allocator854 end function omp_calloc855 856 function omp_aligned_calloc(alignment, nmemb, size, &857 & allocator) bind(c)858 use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t859 import :: omp_allocator_handle_kind860 type(c_ptr) omp_aligned_calloc861 integer(c_size_t), value :: alignment, nmemb, size862 integer(omp_allocator_handle_kind), value :: allocator863 end function omp_aligned_calloc864 865 function omp_realloc(ptr, size, allocator, &866 & free_allocator) bind(c)867 use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t868 import :: omp_allocator_handle_kind869 type(c_ptr) omp_realloc870 type(c_ptr), value :: ptr871 integer(c_size_t), value :: size872 integer(omp_allocator_handle_kind), value :: allocator873 integer(omp_allocator_handle_kind), value :: free_allocator874 end function omp_realloc875 876 subroutine omp_free(ptr, allocator) bind(c)877 use, intrinsic :: iso_c_binding, only : c_ptr878 import :: omp_allocator_handle_kind879 type(c_ptr), value :: ptr880 integer(omp_allocator_handle_kind), value :: allocator881 end subroutine omp_free882 883 function omp_in_explicit_task() bind(c)884 import885 logical (kind=omp_logical_kind) omp_in_explicit_task886 end function omp_in_explicit_task887 888 function omp_get_devices_memspace(ndevs, devs, memspace)889 import890 integer(omp_memspace_handle_kind) :: omp_get_devices_memspace891 integer, intent(in) :: ndevs892 integer, intent(in) :: devs(*)893 integer(omp_memspace_handle_kind), intent(in) :: memspace894 end function omp_get_devices_memspace895 896 function omp_get_device_memspace(dev, memspace)897 import898 integer(omp_memspace_handle_kind) :: omp_get_device_memspace899 integer, intent(in) :: dev900 integer(omp_memspace_handle_kind), intent(in) :: memspace901 end function omp_get_device_memspace902 903 function omp_get_devices_and_host_memspace(ndevs,devs,memspace)904 import905 integer(omp_memspace_handle_kind) :: &906 & omp_get_devices_and_host_memspace907 integer, intent(in) :: ndevs908 integer, intent(in) :: devs(*)909 integer(omp_memspace_handle_kind), intent(in) :: memspace910 end function omp_get_devices_and_host_memspace911 912 function omp_get_device_and_host_memspace(dev, memspace)913 import914 integer(omp_memspace_handle_kind) :: &915 & omp_get_device_and_host_memspace916 integer, intent(in) :: dev917 integer(omp_memspace_handle_kind), intent(in) :: memspace918 end function omp_get_device_and_host_memspace919 920 function omp_get_devices_all_memspace(memspace)921 import922 integer(omp_memspace_handle_kind)::omp_get_devices_all_memspace923 integer(omp_memspace_handle_kind), intent(in) :: memspace924 end function omp_get_devices_all_memspace925 926 function omp_get_devices_allocator(ndevs, devs, memspace)927 import928 integer(omp_allocator_handle_kind)::omp_get_devices_allocator929 integer, intent(in) :: ndevs930 integer, intent(in) :: devs(*)931 integer(omp_memspace_handle_kind), intent(in) :: memspace932 end function omp_get_devices_allocator933 934 function omp_get_device_allocator(dev, memspace)935 import936 integer(omp_allocator_handle_kind) :: omp_get_device_allocator937 integer, intent(in) :: dev938 integer(omp_memspace_handle_kind), intent(in) :: memspace939 end function omp_get_device_allocator940 941 function omp_get_devices_and_host_allocator(ndevs,devs,memspace)942 import943 integer(omp_allocator_handle_kind) :: &944 & omp_get_devices_and_host_allocator945 integer, intent(in) :: ndevs946 integer, intent(in) :: devs(*)947 integer(omp_memspace_handle_kind), intent(in) :: memspace948 end function omp_get_devices_and_host_allocator949 950 function omp_get_device_and_host_allocator(dev, memspace)951 import952 integer(omp_allocator_handle_kind) :: &953 & omp_get_device_and_host_allocator954 integer, intent(in) :: dev955 integer(omp_memspace_handle_kind), intent(in) :: memspace956 end function omp_get_device_and_host_allocator957 958 function omp_get_devices_all_allocator(memspace)959 import960 integer(omp_allocator_handle_kind) :: &961 & omp_get_devices_all_allocator962 integer(omp_memspace_handle_kind), intent(in) :: memspace963 end function omp_get_devices_all_allocator964 965 function omp_get_memspace_num_resources(memspace)966 import967 integer omp_get_memspace_num_resources968 integer(omp_memspace_handle_kind), intent(in) :: memspace969 end function omp_get_memspace_num_resources970 971 function omp_get_submemspace(memspace, num_resources, resources)972 import973 integer(omp_memspace_handle_kind) omp_get_submemspace974 integer(omp_memspace_handle_kind), intent(in) :: memspace975 integer, intent(in) :: num_resources976 integer, intent(in) :: resources(*)977 end function omp_get_submemspace978 979 980! ***981! *** kmp_* entry points982! ***983 984 subroutine kmp_set_stacksize(size) bind(c)985 import986 integer (kind=omp_integer_kind), value :: size987 end subroutine kmp_set_stacksize988 989 subroutine kmp_set_stacksize_s(size) bind(c)990 import991 integer (kind=kmp_size_t_kind), value :: size992 end subroutine kmp_set_stacksize_s993 994 subroutine kmp_set_blocktime(msec) bind(c)995 import996 integer (kind=omp_integer_kind), value :: msec997 end subroutine kmp_set_blocktime998 999 subroutine kmp_set_library_serial() bind(c)1000 end subroutine kmp_set_library_serial1001 1002 subroutine kmp_set_library_turnaround() bind(c)1003 end subroutine kmp_set_library_turnaround1004 1005 subroutine kmp_set_library_throughput() bind(c)1006 end subroutine kmp_set_library_throughput1007 1008 subroutine kmp_set_library(libnum) bind(c)1009 import1010 integer (kind=omp_integer_kind), value :: libnum1011 end subroutine kmp_set_library1012 1013 subroutine kmp_set_defaults(string)1014 character (len=*) :: string1015 end subroutine kmp_set_defaults1016 1017 function kmp_get_stacksize() bind(c)1018 import1019 integer (kind=omp_integer_kind) kmp_get_stacksize1020 end function kmp_get_stacksize1021 1022 function kmp_get_stacksize_s() bind(c)1023 import1024 integer (kind=kmp_size_t_kind) kmp_get_stacksize_s1025 end function kmp_get_stacksize_s1026 1027 function kmp_get_blocktime() bind(c)1028 import1029 integer (kind=omp_integer_kind) kmp_get_blocktime1030 end function kmp_get_blocktime1031 1032 function kmp_get_library() bind(c)1033 import1034 integer (kind=omp_integer_kind) kmp_get_library1035 end function kmp_get_library1036 1037 subroutine kmp_set_disp_num_buffers(num) bind(c)1038 import1039 integer (kind=omp_integer_kind), value :: num1040 end subroutine kmp_set_disp_num_buffers1041 1042 function kmp_set_affinity(mask) bind(c)1043 import1044 integer (kind=omp_integer_kind) kmp_set_affinity1045 integer (kind=kmp_affinity_mask_kind) mask1046 end function kmp_set_affinity1047 1048 function kmp_get_affinity(mask) bind(c)1049 import1050 integer (kind=omp_integer_kind) kmp_get_affinity1051 integer (kind=kmp_affinity_mask_kind) mask1052 end function kmp_get_affinity1053 1054 function kmp_get_affinity_max_proc() bind(c)1055 import1056 integer (kind=omp_integer_kind) kmp_get_affinity_max_proc1057 end function kmp_get_affinity_max_proc1058 1059 subroutine kmp_create_affinity_mask(mask) bind(c)1060 import1061 integer (kind=kmp_affinity_mask_kind) mask1062 end subroutine kmp_create_affinity_mask1063 1064 subroutine kmp_destroy_affinity_mask(mask) bind(c)1065 import1066 integer (kind=kmp_affinity_mask_kind) mask1067 end subroutine kmp_destroy_affinity_mask1068 1069 function kmp_set_affinity_mask_proc(proc, mask) bind(c)1070 import1071 integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc1072 integer (kind=omp_integer_kind), value :: proc1073 integer (kind=kmp_affinity_mask_kind) mask1074 end function kmp_set_affinity_mask_proc1075 1076 function kmp_unset_affinity_mask_proc(proc, mask) bind(c)1077 import1078 integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc1079 integer (kind=omp_integer_kind), value :: proc1080 integer (kind=kmp_affinity_mask_kind) mask1081 end function kmp_unset_affinity_mask_proc1082 1083 function kmp_get_affinity_mask_proc(proc, mask) bind(c)1084 import1085 integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc1086 integer (kind=omp_integer_kind), value :: proc1087 integer (kind=kmp_affinity_mask_kind) mask1088 end function kmp_get_affinity_mask_proc1089 1090 function kmp_malloc(size) bind(c)1091 import1092 integer (kind=kmp_pointer_kind) kmp_malloc1093 integer (kind=kmp_size_t_kind), value :: size1094 end function kmp_malloc1095 1096 function kmp_aligned_malloc(size, alignment) bind(c)1097 import1098 integer (kind=kmp_pointer_kind) kmp_aligned_malloc1099 integer (kind=kmp_size_t_kind), value :: size1100 integer (kind=kmp_size_t_kind), value :: alignment1101 end function kmp_aligned_malloc1102 1103 function kmp_calloc(nelem, elsize) bind(c)1104 import1105 integer (kind=kmp_pointer_kind) kmp_calloc1106 integer (kind=kmp_size_t_kind), value :: nelem1107 integer (kind=kmp_size_t_kind), value :: elsize1108 end function kmp_calloc1109 1110 function kmp_realloc(ptr, size) bind(c)1111 import1112 integer (kind=kmp_pointer_kind) kmp_realloc1113 integer (kind=kmp_pointer_kind), value :: ptr1114 integer (kind=kmp_size_t_kind), value :: size1115 end function kmp_realloc1116 1117 subroutine kmp_free(ptr) bind(c)1118 import1119 integer (kind=kmp_pointer_kind), value :: ptr1120 end subroutine kmp_free1121 1122 subroutine kmp_set_warnings_on() bind(c)1123 end subroutine kmp_set_warnings_on1124 1125 subroutine kmp_set_warnings_off() bind(c)1126 end subroutine kmp_set_warnings_off1127 end interface1128 1129#ifdef __INTEL_COMPILER1130!DIR$ IF DEFINED (__INTEL_OFFLOAD)1131 1132!DIR$ IF(__INTEL_COMPILER.LT.1900)1133!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads1134!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic1135!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested1136!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads1137!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads1138!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num1139!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs1140!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel1141!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final1142!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic1143!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested1144!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit1145!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels1146!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels1147!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level1148!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level1149!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num1150!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size1151!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule1152!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule1153!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind1154!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime1155!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick1156!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device1157!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device1158!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device1159!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_initial_device1160!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices1161!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_device_num1162!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource1163!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource_all1164!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_supported_active_levels1165!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_fulfill_event1166!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams1167!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num1168!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock1169!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock1170!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock1171!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock1172!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock1173!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock1174!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock1175!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock1176!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock1177!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock1178!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_task_priority1179!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_affinity_format1180!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_affinity_format1181!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_display_affinity1182!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_capture_affinity1183!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize1184!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s1185!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime1186!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial1187!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround1188!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput1189!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library1190!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults1191!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize1192!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s1193!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime1194!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library1195!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_disp_num_buffers1196!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity1197!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity1198!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc1199!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask1200!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask1201!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc1202!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc1203!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc1204!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc1205!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_aligned_malloc1206!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc1207!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc1208!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free1209!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on1210!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off1211!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock_with_hint1212!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock_with_hint1213!DIR$ ENDIF1214 1215!DIR$ IF(__INTEL_COMPILER.GE.1400)1216!$omp declare target(omp_set_num_threads )1217!$omp declare target(omp_set_dynamic )1218!$omp declare target(omp_set_nested )1219!$omp declare target(omp_get_num_threads )1220!$omp declare target(omp_get_max_threads )1221!$omp declare target(omp_get_thread_num )1222!$omp declare target(omp_get_num_procs )1223!$omp declare target(omp_in_parallel )1224!$omp declare target(omp_in_final )1225!$omp declare target(omp_get_dynamic )1226!$omp declare target(omp_get_nested )1227!$omp declare target(omp_get_thread_limit )1228!$omp declare target(omp_set_max_active_levels )1229!$omp declare target(omp_get_max_active_levels )1230!$omp declare target(omp_get_level )1231!$omp declare target(omp_get_active_level )1232!$omp declare target(omp_get_ancestor_thread_num )1233!$omp declare target(omp_get_team_size )1234!$omp declare target(omp_set_schedule )1235!$omp declare target(omp_get_schedule )1236!$omp declare target(omp_get_proc_bind )1237!$omp declare target(omp_get_wtime )1238!$omp declare target(omp_get_wtick )1239!$omp declare target(omp_get_default_device )1240!$omp declare target(omp_set_default_device )1241!$omp declare target(omp_is_initial_device )1242!$omp declare target(omp_get_initial_device )1243!$omp declare target(omp_get_num_devices )1244!$omp declare target(omp_get_device_num )1245!$omp declare target(omp_pause_resource )1246!$omp declare target(omp_pause_resource_all )1247!$omp declare target(omp_get_supported_active_levels )1248!$omp declare target(omp_fulfill_event)1249!$omp declare target(omp_get_num_teams )1250!$omp declare target(omp_get_team_num )1251!$omp declare target(omp_init_lock )1252!$omp declare target(omp_destroy_lock )1253!$omp declare target(omp_set_lock )1254!$omp declare target(omp_unset_lock )1255!$omp declare target(omp_test_lock )1256!$omp declare target(omp_init_nest_lock )1257!$omp declare target(omp_destroy_nest_lock )1258!$omp declare target(omp_set_nest_lock )1259!$omp declare target(omp_unset_nest_lock )1260!$omp declare target(omp_test_nest_lock )1261!$omp declare target(omp_get_max_task_priority )1262!$omp declare target(omp_set_affinity_format )1263!$omp declare target(omp_get_affinity_format )1264!$omp declare target(omp_display_affinity )1265!$omp declare target(omp_capture_affinity )1266!$omp declare target(kmp_set_stacksize )1267!$omp declare target(kmp_set_stacksize_s )1268!$omp declare target(kmp_set_blocktime )1269!$omp declare target(kmp_set_library_serial )1270!$omp declare target(kmp_set_library_turnaround )1271!$omp declare target(kmp_set_library_throughput )1272!$omp declare target(kmp_set_library )1273!$omp declare target(kmp_set_defaults )1274!$omp declare target(kmp_get_stacksize )1275!$omp declare target(kmp_get_stacksize_s )1276!$omp declare target(kmp_get_blocktime )1277!$omp declare target(kmp_get_library )1278!$omp declare target(kmp_set_disp_num_buffers )1279!$omp declare target(kmp_set_affinity )1280!$omp declare target(kmp_get_affinity )1281!$omp declare target(kmp_get_affinity_max_proc )1282!$omp declare target(kmp_create_affinity_mask )1283!$omp declare target(kmp_destroy_affinity_mask )1284!$omp declare target(kmp_set_affinity_mask_proc )1285!$omp declare target(kmp_unset_affinity_mask_proc )1286!$omp declare target(kmp_get_affinity_mask_proc )1287!$omp declare target(kmp_malloc )1288!$omp declare target(kmp_aligned_malloc )1289!$omp declare target(kmp_calloc )1290!$omp declare target(kmp_realloc )1291!$omp declare target(kmp_free )1292!$omp declare target(kmp_set_warnings_on )1293!$omp declare target(kmp_set_warnings_off )1294!$omp declare target(omp_init_lock_with_hint )1295!$omp declare target(omp_init_nest_lock_with_hint )1296!DIR$ ENDIF1297!DIR$ ENDIF1298#endif1299