xref: /freebsd/contrib/llvm-project/openmp/runtime/src/include/omp_lib.h.var (revision 5956d97f4b3204318ceb6aa9c77bd0bc6ea87a41)
1! include/omp_lib.h.var
2
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-exception
9!//
10!//===----------------------------------------------------------------------===//
11!
12
13      integer omp_integer_kind
14      parameter(omp_integer_kind=4)
15      integer omp_logical_kind
16      parameter(omp_logical_kind=4)
17      integer omp_real_kind
18      parameter(omp_real_kind=4)
19      integer omp_lock_kind
20      parameter(omp_lock_kind=int_ptr_kind())
21      integer omp_nest_lock_kind
22      parameter(omp_nest_lock_kind=int_ptr_kind())
23      integer omp_sched_kind
24      parameter(omp_sched_kind=omp_integer_kind)
25      integer omp_proc_bind_kind
26      parameter(omp_proc_bind_kind=omp_integer_kind)
27      integer kmp_pointer_kind
28      parameter(kmp_pointer_kind=int_ptr_kind())
29      integer kmp_size_t_kind
30      parameter(kmp_size_t_kind=int_ptr_kind())
31      integer kmp_affinity_mask_kind
32      parameter(kmp_affinity_mask_kind=int_ptr_kind())
33      integer omp_sync_hint_kind
34      parameter(omp_sync_hint_kind=omp_integer_kind)
35      integer omp_lock_hint_kind
36      parameter(omp_lock_hint_kind=omp_sync_hint_kind)
37      integer omp_control_tool_kind
38      parameter(omp_control_tool_kind=omp_integer_kind)
39      integer omp_control_tool_result_kind
40      parameter(omp_control_tool_result_kind=omp_integer_kind)
41      integer omp_allocator_handle_kind
42      parameter(omp_allocator_handle_kind=int_ptr_kind())
43      integer omp_memspace_handle_kind
44      parameter(omp_memspace_handle_kind=int_ptr_kind())
45      integer omp_alloctrait_key_kind
46      parameter(omp_alloctrait_key_kind=omp_integer_kind)
47      integer omp_alloctrait_val_kind
48      parameter(omp_alloctrait_val_kind=int_ptr_kind())
49      integer omp_pause_resource_kind
50      parameter(omp_pause_resource_kind=omp_integer_kind)
51      integer omp_depend_kind
52      parameter(omp_depend_kind=int_ptr_kind())
53      integer omp_event_handle_kind
54      parameter(omp_event_handle_kind=int_ptr_kind())
55      integer omp_interop_kind
56      parameter(omp_interop_kind=int_ptr_kind())
57      integer omp_interop_fr_kind
58      parameter(omp_interop_fr_kind=omp_integer_kind)
59
60      integer(kind=omp_integer_kind)openmp_version
61      parameter(openmp_version=@LIBOMP_OMP_YEAR_MONTH@)
62      integer(kind=omp_integer_kind)kmp_version_major
63      parameter(kmp_version_major=@LIBOMP_VERSION_MAJOR@)
64      integer(kind=omp_integer_kind)kmp_version_minor
65      parameter(kmp_version_minor=@LIBOMP_VERSION_MINOR@)
66      integer(kind=omp_integer_kind)kmp_version_build
67      parameter(kmp_version_build=@LIBOMP_VERSION_BUILD@)
68      character(*)kmp_build_date
69      parameter(kmp_build_date='@LIBOMP_BUILD_DATE@')
70
71      integer(kind=omp_sched_kind)omp_sched_static
72      parameter(omp_sched_static=1)
73      integer(kind=omp_sched_kind)omp_sched_dynamic
74      parameter(omp_sched_dynamic=2)
75      integer(kind=omp_sched_kind)omp_sched_guided
76      parameter(omp_sched_guided=3)
77      integer(kind=omp_sched_kind)omp_sched_auto
78      parameter(omp_sched_auto=4)
79      integer(kind=omp_sched_kind)omp_sched_monotonic
80      parameter(omp_sched_monotonic=Z'80000000')
81
82      integer(kind=omp_proc_bind_kind)omp_proc_bind_false
83      parameter(omp_proc_bind_false=0)
84      integer(kind=omp_proc_bind_kind)omp_proc_bind_true
85      parameter(omp_proc_bind_true=1)
86      integer(kind=omp_proc_bind_kind)omp_proc_bind_master
87      parameter(omp_proc_bind_master=2)
88      integer(kind=omp_proc_bind_kind)omp_proc_bind_close
89      parameter(omp_proc_bind_close=3)
90      integer(kind=omp_proc_bind_kind)omp_proc_bind_spread
91      parameter(omp_proc_bind_spread=4)
92
93      integer(kind=omp_sync_hint_kind)omp_sync_hint_none
94      parameter(omp_sync_hint_none=0)
95      integer(kind=omp_sync_hint_kind)omp_sync_hint_uncontended
96      parameter(omp_sync_hint_uncontended=1)
97      integer(kind=omp_sync_hint_kind)omp_sync_hint_contended
98      parameter(omp_sync_hint_contended=2)
99      integer(kind=omp_sync_hint_kind)omp_sync_hint_nonspeculative
100      parameter(omp_sync_hint_nonspeculative=4)
101      integer(kind=omp_sync_hint_kind)omp_sync_hint_speculative
102      parameter(omp_sync_hint_speculative=8)
103      integer(kind=omp_lock_hint_kind)omp_lock_hint_none
104      parameter(omp_lock_hint_none=omp_sync_hint_none)
105      integer(kind=omp_lock_hint_kind)omp_lock_hint_uncontended
106      parameter(omp_lock_hint_uncontended=omp_sync_hint_uncontended)
107      integer(kind=omp_lock_hint_kind)omp_lock_hint_contended
108      parameter(omp_lock_hint_contended=omp_sync_hint_contended)
109      integer(kind=omp_lock_hint_kind)omp_lock_hint_nonspeculative
110      parameter(omp_lock_hint_nonspeculative=4)
111      integer(kind=omp_lock_hint_kind)omp_lock_hint_speculative
112      parameter(omp_lock_hint_speculative=omp_sync_hint_speculative)
113      integer(kind=omp_lock_hint_kind)kmp_lock_hint_hle
114      parameter(kmp_lock_hint_hle=65536)
115      integer(kind=omp_lock_hint_kind)kmp_lock_hint_rtm
116      parameter(kmp_lock_hint_rtm=131072)
117      integer(kind=omp_lock_hint_kind)kmp_lock_hint_adaptive
118      parameter(kmp_lock_hint_adaptive=262144)
119
120      integer(kind=omp_control_tool_kind)omp_control_tool_start
121      parameter(omp_control_tool_start=1)
122      integer(kind=omp_control_tool_kind)omp_control_tool_pause
123      parameter(omp_control_tool_pause=2)
124      integer(kind=omp_control_tool_kind)omp_control_tool_flush
125      parameter(omp_control_tool_flush=3)
126      integer(kind=omp_control_tool_kind)omp_control_tool_end
127      parameter(omp_control_tool_end=4)
128
129      integer(omp_control_tool_result_kind)omp_control_tool_notool
130      parameter(omp_control_tool_notool=-2)
131      integer(omp_control_tool_result_kind)omp_control_tool_nocallback
132      parameter(omp_control_tool_nocallback=-1)
133      integer(omp_control_tool_result_kind)omp_control_tool_success
134      parameter(omp_control_tool_success=0)
135      integer(omp_control_tool_result_kind)omp_control_tool_ignored
136      parameter(omp_control_tool_ignored=1)
137
138      integer(kind=omp_alloctrait_key_kind)omp_atk_sync_hint
139      parameter(omp_atk_sync_hint=1)
140      integer(kind=omp_alloctrait_key_kind)omp_atk_alignment
141      parameter(omp_atk_alignment=2)
142      integer(kind=omp_alloctrait_key_kind)omp_atk_access
143      parameter(omp_atk_access=3)
144      integer(kind=omp_alloctrait_key_kind)omp_atk_pool_size
145      parameter(omp_atk_pool_size=4)
146      integer(kind=omp_alloctrait_key_kind)omp_atk_fallback
147      parameter(omp_atk_fallback=5)
148      integer(kind=omp_alloctrait_key_kind)omp_atk_fb_data
149      parameter(omp_atk_fb_data=6)
150      integer(kind=omp_alloctrait_key_kind)omp_atk_pinned
151      parameter(omp_atk_pinned=7)
152      integer(kind=omp_alloctrait_key_kind)omp_atk_partition
153      parameter(omp_atk_partition=8)
154
155      integer(kind=omp_alloctrait_val_kind)omp_atv_default
156      parameter(omp_atv_default=-1)
157      ! Reserved for future use
158      integer(kind=omp_alloctrait_val_kind)omp_atv_false
159      parameter(omp_atv_false=0)
160      ! Reserved for future use
161      integer(kind=omp_alloctrait_val_kind)omp_atv_true
162      parameter(omp_atv_true=1)
163      integer(kind=omp_alloctrait_val_kind)omp_atv_contended
164      parameter(omp_atv_contended=3)
165      integer(kind=omp_alloctrait_val_kind)omp_atv_uncontended
166      parameter(omp_atv_uncontended=4)
167      integer(kind=omp_alloctrait_val_kind)omp_atv_serialized
168      parameter(omp_atv_serialized=5)
169      integer(kind=omp_alloctrait_val_kind)omp_atv_sequential
170      parameter(omp_atv_sequential=5)
171      integer(kind=omp_alloctrait_val_kind)omp_atv_private
172      parameter(omp_atv_private=6)
173      integer(kind=omp_alloctrait_val_kind)omp_atv_all
174      parameter(omp_atv_all=7)
175      integer(kind=omp_alloctrait_val_kind)omp_atv_thread
176      parameter(omp_atv_thread=8)
177      integer(kind=omp_alloctrait_val_kind)omp_atv_pteam
178      parameter(omp_atv_pteam=9)
179      integer(kind=omp_alloctrait_val_kind)omp_atv_cgroup
180      parameter(omp_atv_cgroup=10)
181      integer(kind=omp_alloctrait_val_kind)omp_atv_default_mem_fb
182      parameter(omp_atv_default_mem_fb=11)
183      integer(kind=omp_alloctrait_val_kind)omp_atv_null_fb
184      parameter(omp_atv_null_fb=12)
185      integer(kind=omp_alloctrait_val_kind)omp_atv_abort_fb
186      parameter(omp_atv_abort_fb=13)
187      integer(kind=omp_alloctrait_val_kind)omp_atv_allocator_fb
188      parameter(omp_atv_allocator_fb=14)
189      integer(kind=omp_alloctrait_val_kind)omp_atv_environment
190      parameter(omp_atv_environment=15)
191      integer(kind=omp_alloctrait_val_kind)omp_atv_nearest
192      parameter(omp_atv_nearest=16)
193      integer(kind=omp_alloctrait_val_kind)omp_atv_blocked
194      parameter(omp_atv_blocked=17)
195      integer(kind=omp_alloctrait_val_kind)omp_atv_interleaved
196      parameter(omp_atv_interleaved=18)
197
198      type omp_alloctrait
199        integer (kind=omp_alloctrait_key_kind) key
200        integer (kind=omp_alloctrait_val_kind) value
201      end type omp_alloctrait
202
203      integer(kind=omp_allocator_handle_kind)omp_null_allocator
204      parameter(omp_null_allocator=0)
205      integer(kind=omp_allocator_handle_kind)omp_default_mem_alloc
206      parameter(omp_default_mem_alloc=1)
207      integer(kind=omp_allocator_handle_kind)omp_large_cap_mem_alloc
208      parameter(omp_large_cap_mem_alloc=2)
209      integer(kind=omp_allocator_handle_kind)omp_const_mem_alloc
210      parameter(omp_const_mem_alloc=3)
211      integer(kind=omp_allocator_handle_kind)omp_high_bw_mem_alloc
212      parameter(omp_high_bw_mem_alloc=4)
213      integer(kind=omp_allocator_handle_kind)omp_low_lat_mem_alloc
214      parameter(omp_low_lat_mem_alloc=5)
215      integer(kind=omp_allocator_handle_kind)omp_cgroup_mem_alloc
216      parameter(omp_cgroup_mem_alloc=6)
217      integer(kind=omp_allocator_handle_kind)omp_pteam_mem_alloc
218      parameter(omp_pteam_mem_alloc=7)
219      integer(kind=omp_allocator_handle_kind)omp_thread_mem_alloc
220      parameter(omp_thread_mem_alloc=8)
221      ! Preview of target memory support
222      integer(omp_allocator_handle_kind)llvm_omp_target_host_mem_alloc
223      parameter(llvm_omp_target_host_mem_alloc=100)
224      integer(omp_allocator_handle_kind)llvm_omp_target_shared_mem_alloc
225      parameter(llvm_omp_target_shared_mem_alloc=101)
226      integer(omp_allocator_handle_kind)llvm_omp_target_device_mem_alloc
227      parameter(llvm_omp_target_device_mem_alloc=102)
228
229      integer(kind=omp_memspace_handle_kind)omp_default_mem_space
230      parameter(omp_default_mem_space=0)
231      integer(kind=omp_memspace_handle_kind)omp_large_cap_mem_space
232      parameter(omp_large_cap_mem_space=1)
233      integer(kind=omp_memspace_handle_kind)omp_const_mem_space
234      parameter(omp_const_mem_space=2)
235      integer(kind=omp_memspace_handle_kind)omp_high_bw_mem_space
236      parameter(omp_high_bw_mem_space=3)
237      integer(kind=omp_memspace_handle_kind)omp_low_lat_mem_space
238      parameter(omp_low_lat_mem_space=4)
239      ! Preview of target memory support
240      integer(omp_memspace_handle_kind)llvm_omp_target_host_mem_space
241      parameter(llvm_omp_target_host_mem_space=100)
242      integer(omp_memspace_handle_kind)llvm_omp_target_shared_mem_space
243      parameter(llvm_omp_target_shared_mem_space=101)
244      integer(omp_memspace_handle_kind)llvm_omp_target_device_mem_space
245      parameter(llvm_omp_target_device_mem_space=102)
246
247      integer(kind=omp_pause_resource_kind)omp_pause_resume
248      parameter(omp_pause_resume=0)
249      integer(kind=omp_pause_resource_kind)omp_pause_soft
250      parameter(omp_pause_soft=1)
251      integer(kind=omp_pause_resource_kind)omp_pause_hard
252      parameter(omp_pause_hard=2)
253
254      integer(kind=omp_interop_fr_kind)omp_ifr_cuda
255      parameter(omp_ifr_cuda=1)
256      integer(kind=omp_interop_fr_kind)omp_ifr_cuda_driver
257      parameter(omp_ifr_cuda_driver=2)
258      integer(kind=omp_interop_fr_kind)omp_ifr_opencl
259      parameter(omp_ifr_opencl=3)
260      integer(kind=omp_interop_fr_kind)omp_ifr_sycl
261      parameter(omp_ifr_sycl=4)
262      integer(kind=omp_interop_fr_kind)omp_ifr_hip
263      parameter(omp_ifr_hip=5)
264      integer(kind=omp_interop_fr_kind)omp_ifr_level_zero
265      parameter(omp_ifr_level_zero=6)
266      integer(kind=omp_interop_fr_kind)omp_ifr_last
267      parameter(omp_ifr_last=7)
268
269      integer(kind=omp_interop_kind)omp_interop_none
270      parameter(omp_interop_none=0)
271
272      interface
273
274!       ***
275!       *** omp_* entry points
276!       ***
277
278        subroutine omp_set_num_threads(num_threads) bind(c)
279          import
280          integer (kind=omp_integer_kind), value :: num_threads
281        end subroutine omp_set_num_threads
282
283        subroutine omp_set_dynamic(dynamic_threads) bind(c)
284          import
285          logical (kind=omp_logical_kind), value :: dynamic_threads
286        end subroutine omp_set_dynamic
287
288        subroutine omp_set_nested(nested) bind(c)
289          import
290          logical (kind=omp_logical_kind), value :: nested
291        end subroutine omp_set_nested
292
293        function omp_get_num_threads() bind(c)
294          import
295          integer (kind=omp_integer_kind) omp_get_num_threads
296        end function omp_get_num_threads
297
298        function omp_get_max_threads() bind(c)
299          import
300          integer (kind=omp_integer_kind) omp_get_max_threads
301        end function omp_get_max_threads
302
303        function omp_get_thread_num() bind(c)
304          import
305          integer (kind=omp_integer_kind) omp_get_thread_num
306        end function omp_get_thread_num
307
308        function omp_get_num_procs() bind(c)
309          import
310          integer (kind=omp_integer_kind) omp_get_num_procs
311        end function omp_get_num_procs
312
313        function omp_in_parallel() bind(c)
314          import
315          logical (kind=omp_logical_kind) omp_in_parallel
316        end function omp_in_parallel
317
318        function omp_in_final() bind(c)
319          import
320          logical (kind=omp_logical_kind) omp_in_final
321        end function omp_in_final
322
323        function omp_get_dynamic() bind(c)
324          import
325          logical (kind=omp_logical_kind) omp_get_dynamic
326        end function omp_get_dynamic
327
328        function omp_get_nested() bind(c)
329          import
330          logical (kind=omp_logical_kind) omp_get_nested
331        end function omp_get_nested
332
333        function omp_get_thread_limit() bind(c)
334          import
335          integer (kind=omp_integer_kind) omp_get_thread_limit
336        end function omp_get_thread_limit
337
338        subroutine omp_set_max_active_levels(max_levels) bind(c)
339          import
340          integer (kind=omp_integer_kind), value :: max_levels
341        end subroutine omp_set_max_active_levels
342
343        function omp_get_max_active_levels() bind(c)
344          import
345          integer (kind=omp_integer_kind) omp_get_max_active_levels
346        end function omp_get_max_active_levels
347
348        function omp_get_level() bind(c)
349          import
350          integer (kind=omp_integer_kind) omp_get_level
351        end function omp_get_level
352
353        function omp_get_active_level() bind(c)
354          import
355          integer (kind=omp_integer_kind) omp_get_active_level
356        end function omp_get_active_level
357
358        function omp_get_ancestor_thread_num(level) bind(c)
359          import
360          integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
361          integer (kind=omp_integer_kind), value :: level
362        end function omp_get_ancestor_thread_num
363
364        function omp_get_team_size(level) bind(c)
365          import
366          integer (kind=omp_integer_kind) omp_get_team_size
367          integer (kind=omp_integer_kind), value :: level
368        end function omp_get_team_size
369
370        subroutine omp_set_schedule(kind, chunk_size) bind(c)
371          import
372          integer (kind=omp_sched_kind), value :: kind
373          integer (kind=omp_integer_kind), value :: chunk_size
374        end subroutine omp_set_schedule
375
376        subroutine omp_get_schedule(kind, chunk_size) bind(c)
377          import
378          integer (kind=omp_sched_kind) kind
379          integer (kind=omp_integer_kind) chunk_size
380        end subroutine omp_get_schedule
381
382        function omp_get_proc_bind() bind(c)
383          import
384          integer (kind=omp_proc_bind_kind) omp_get_proc_bind
385        end function omp_get_proc_bind
386
387        function omp_get_num_places() bind(c)
388          import
389          integer (kind=omp_integer_kind) omp_get_num_places
390        end function omp_get_num_places
391
392        function omp_get_place_num_procs(place_num) bind(c)
393          import
394          integer (kind=omp_integer_kind), value :: place_num
395          integer (kind=omp_integer_kind) omp_get_place_num_procs
396        end function omp_get_place_num_procs
397
398        subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
399          import
400          integer (kind=omp_integer_kind), value :: place_num
401          integer (kind=omp_integer_kind) ids(*)
402        end subroutine omp_get_place_proc_ids
403
404        function omp_get_place_num() bind(c)
405          import
406          integer (kind=omp_integer_kind) omp_get_place_num
407        end function omp_get_place_num
408
409        function omp_get_partition_num_places() bind(c)
410          import
411          integer (kind=omp_integer_kind) omp_get_partition_num_places
412        end function omp_get_partition_num_places
413
414        subroutine omp_get_partition_place_nums(place_nums) bind(c)
415          import
416          integer (kind=omp_integer_kind) place_nums(*)
417        end subroutine omp_get_partition_place_nums
418
419        function omp_get_wtime() bind(c)
420          double precision omp_get_wtime
421        end function omp_get_wtime
422
423        function omp_get_wtick() bind(c)
424          double precision omp_get_wtick
425        end function omp_get_wtick
426
427        function omp_get_default_device() bind(c)
428          import
429          integer (kind=omp_integer_kind) omp_get_default_device
430        end function omp_get_default_device
431
432        subroutine omp_set_default_device(device_num) bind(c)
433          import
434          integer (kind=omp_integer_kind), value :: device_num
435        end subroutine omp_set_default_device
436
437        function omp_get_num_devices() bind(c)
438          import
439          integer (kind=omp_integer_kind) omp_get_num_devices
440        end function omp_get_num_devices
441
442        function omp_get_num_teams() bind(c)
443          import
444          integer (kind=omp_integer_kind) omp_get_num_teams
445        end function omp_get_num_teams
446
447        function omp_get_team_num() bind(c)
448          import
449          integer (kind=omp_integer_kind) omp_get_team_num
450        end function omp_get_team_num
451
452        function omp_is_initial_device() bind(c)
453          import
454          logical (kind=omp_logical_kind) omp_is_initial_device
455        end function omp_is_initial_device
456
457        function omp_get_initial_device() bind(c)
458          import
459          integer (kind=omp_integer_kind) omp_get_initial_device
460        end function omp_get_initial_device
461
462        function omp_get_device_num() bind(c)
463          import
464          integer (kind=omp_integer_kind) omp_get_device_num
465        end function omp_get_device_num
466
467        function omp_pause_resource(kind, device_num) bind(c)
468          import
469          integer (kind=omp_pause_resource_kind), value :: kind
470          integer (kind=omp_integer_kind), value :: device_num
471          integer (kind=omp_integer_kind) omp_pause_resource
472        end function omp_pause_resource
473
474        function omp_pause_resource_all(kind) bind(c)
475          import
476          integer (kind=omp_pause_resource_kind), value :: kind
477          integer (kind=omp_integer_kind) omp_pause_resource_all
478        end function omp_pause_resource_all
479
480        function omp_get_supported_active_levels() bind(c)
481          import
482          integer(kind=omp_integer_kind)omp_get_supported_active_levels
483        end function omp_get_supported_active_levels
484
485        subroutine omp_fulfill_event(event) bind(c)
486          import
487          integer (kind=omp_event_handle_kind), value :: event
488        end subroutine omp_fulfill_event
489
490        subroutine omp_init_lock(svar) bind(c)
491!DIR$ IF(__INTEL_COMPILER.GE.1400)
492!DIR$ attributes known_intrinsic :: omp_init_lock
493!DIR$ ENDIF
494          import
495          integer (kind=omp_lock_kind) svar
496        end subroutine omp_init_lock
497
498        subroutine omp_destroy_lock(svar) bind(c)
499!DIR$ IF(__INTEL_COMPILER.GE.1400)
500!DIR$ attributes known_intrinsic :: omp_destroy_lock
501!DIR$ ENDIF
502          import
503          integer (kind=omp_lock_kind) svar
504        end subroutine omp_destroy_lock
505
506        subroutine omp_set_lock(svar) bind(c)
507!DIR$ IF(__INTEL_COMPILER.GE.1400)
508!DIR$ attributes known_intrinsic :: omp_set_lock
509!DIR$ ENDIF
510          import
511          integer (kind=omp_lock_kind) svar
512        end subroutine omp_set_lock
513
514        subroutine omp_unset_lock(svar) bind(c)
515!DIR$ IF(__INTEL_COMPILER.GE.1400)
516!DIR$ attributes known_intrinsic :: omp_unset_lock
517!DIR$ ENDIF
518          import
519          integer (kind=omp_lock_kind) svar
520        end subroutine omp_unset_lock
521
522        function omp_test_lock(svar) bind(c)
523!DIR$ IF(__INTEL_COMPILER.GE.1400)
524!DIR$ attributes known_intrinsic :: omp_test_lock
525!DIR$ ENDIF
526          import
527          logical (kind=omp_logical_kind) omp_test_lock
528          integer (kind=omp_lock_kind) svar
529        end function omp_test_lock
530
531        subroutine omp_init_nest_lock(nvar) bind(c)
532!DIR$ IF(__INTEL_COMPILER.GE.1400)
533!DIR$ attributes known_intrinsic :: omp_init_nest_lock
534!DIR$ ENDIF
535          import
536          integer (kind=omp_nest_lock_kind) nvar
537        end subroutine omp_init_nest_lock
538
539        subroutine omp_destroy_nest_lock(nvar) bind(c)
540!DIR$ IF(__INTEL_COMPILER.GE.1400)
541!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
542!DIR$ ENDIF
543          import
544          integer (kind=omp_nest_lock_kind) nvar
545        end subroutine omp_destroy_nest_lock
546
547        subroutine omp_set_nest_lock(nvar) bind(c)
548!DIR$ IF(__INTEL_COMPILER.GE.1400)
549!DIR$ attributes known_intrinsic :: omp_set_nest_lock
550!DIR$ ENDIF
551          import
552          integer (kind=omp_nest_lock_kind) nvar
553        end subroutine omp_set_nest_lock
554
555        subroutine omp_unset_nest_lock(nvar) bind(c)
556!DIR$ IF(__INTEL_COMPILER.GE.1400)
557!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
558!DIR$ ENDIF
559          import
560          integer (kind=omp_nest_lock_kind) nvar
561        end subroutine omp_unset_nest_lock
562
563        function omp_test_nest_lock(nvar) bind(c)
564!DIR$ IF(__INTEL_COMPILER.GE.1400)
565!DIR$ attributes known_intrinsic :: omp_test_nest_lock
566!DIR$ ENDIF
567          import
568          integer (kind=omp_integer_kind) omp_test_nest_lock
569          integer (kind=omp_nest_lock_kind) nvar
570        end function omp_test_nest_lock
571
572        function omp_get_max_task_priority() bind(c)
573          import
574          integer (kind=omp_integer_kind) omp_get_max_task_priority
575        end function omp_get_max_task_priority
576
577        function omp_init_allocator(memspace, ntraits, traits)
578          import
579          integer (omp_allocator_handle_kind) omp_init_allocator
580          integer (omp_memspace_handle_kind) :: memspace
581          integer (omp_integer_kind) :: ntraits
582          type(omp_alloctrait), intent(in) :: traits(*)
583        end function omp_init_allocator
584
585        subroutine omp_destroy_allocator(allocator) bind(c)
586          import
587          integer (omp_allocator_handle_kind), value :: allocator
588        end subroutine omp_destroy_allocator
589
590        subroutine omp_set_default_allocator(allocator) bind(c)
591          import
592          integer (omp_allocator_handle_kind), value :: allocator
593        end subroutine omp_set_default_allocator
594
595        function omp_get_default_allocator() bind(c)
596          import
597          integer (omp_allocator_handle_kind) omp_get_default_allocator
598        end function omp_get_default_allocator
599
600        subroutine omp_set_affinity_format(format)
601          character (len=*) :: format
602        end subroutine omp_set_affinity_format
603
604        function omp_get_affinity_format(buffer)
605          import
606          character (len=*) :: buffer
607          integer (kind=kmp_size_t_kind) :: omp_get_affinity_format
608        end function omp_get_affinity_format
609
610        subroutine omp_display_affinity(format)
611          character (len=*) :: format
612        end subroutine omp_display_affinity
613
614        function omp_capture_affinity(buffer, format)
615          import
616          character (len=*) :: format
617          character (len=*) :: buffer
618          integer (kind=kmp_size_t_kind) :: omp_capture_affinity
619        end function omp_capture_affinity
620
621        subroutine omp_set_num_teams(num_teams) bind(c)
622          import
623          integer (kind=omp_integer_kind), value :: num_teams
624        end subroutine omp_set_num_teams
625
626        function omp_get_max_teams() bind(c)
627          import
628          integer (kind=omp_integer_kind) omp_get_max_teams
629        end function omp_get_max_teams
630
631        subroutine omp_set_teams_thread_limit(thread_limit) bind(c)
632          import
633          integer (kind=omp_integer_kind), value :: thread_limit
634        end subroutine omp_set_teams_thread_limit
635
636        function omp_get_teams_thread_limit() bind(c)
637          import
638          integer (kind=omp_integer_kind) omp_get_teams_thread_limit
639        end function omp_get_teams_thread_limit
640
641        subroutine omp_display_env(verbose) bind(c)
642          import
643          logical (kind=omp_logical_kind), value :: verbose
644        end subroutine omp_display_env
645
646        function omp_target_alloc(size, device_num) bind(c)
647          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t, c_int
648          type(c_ptr) omp_target_alloc
649          integer(c_size_t), value :: size
650          integer(c_int), value :: device_num
651        end function omp_target_alloc
652
653        subroutine omp_target_free(device_ptr, device_num) bind(c)
654          use, intrinsic :: iso_c_binding, only : c_ptr, c_int
655          type(c_ptr), value :: device_ptr
656          integer(c_int), value :: device_num
657        end subroutine omp_target_free
658
659        function omp_target_is_present(ptr, device_num) bind(c)
660          use, intrinsic :: iso_c_binding, only : c_ptr, c_int
661          integer(c_int) omp_target_is_present
662          type(c_ptr), value :: ptr
663          integer(c_int), value :: device_num
664        end function omp_target_is_present
665
666        function omp_target_memcpy(dst, src, length, dst_offset,                                                                    &
667     &      src_offset, dst_device_num, src_device_num) bind(c)
668          use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t
669          integer(c_int) omp_target_memcpy
670          type(c_ptr), value :: dst, src
671          integer(c_size_t), value :: length, dst_offset, src_offset
672          integer(c_int), value :: dst_device_num, src_device_num
673        end function omp_target_memcpy
674
675        function omp_target_memcpy_rect(dst, src, element_size,                                                                     &
676     &      num_dims, volume, dst_offsets, src_offsets, dst_dimensions,                                                             &
677     &      src_dimensions, dst_device_num, src_device_num) bind(c)
678          use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t
679          integer(c_int) omp_target_memcpy_rect
680          type(c_ptr), value :: dst, src
681          integer(c_size_t), value :: element_size
682          integer(c_int), value :: num_dims, dst_device_num,                                                                        &
683     &        src_device_num
684          integer(c_size_t), intent(in) :: volume(*), dst_offsets(*),                                                               &
685     &        src_offsets(*), dst_dimensions(*), src_dimensions(*)
686        end function omp_target_memcpy_rect
687
688        function omp_target_memcpy_async(dst, src, length, dst_offset,                                                              &
689     &      src_offset, dst_device_num, src_device_num, depobj_count,                                                               &
690     &      depobj_list) bind(c)
691          use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t
692          import
693          integer(c_int) omp_target_memcpy_async
694          type(c_ptr), value :: dst, src
695          integer(c_size_t), value :: length, dst_offset, src_offset
696          integer(c_int), value :: dst_device_num, src_device_num,                                                                  &
697     &        depobj_count
698          integer(omp_depend_kind), optional :: depobj_list(*)
699        end function omp_target_memcpy_async
700
701        function omp_target_memcpy_rect_async(dst, src, element_size,                                                               &
702     &      num_dims, volume, dst_offsets, src_offsets, dst_dimensions,                                                             &
703     &      src_dimensions, dst_device_num, src_device_num,                                                                         &
704     &      depobj_count, depobj_list) bind(c)
705          use, intrinsic :: iso_c_binding, only : c_ptr, c_int, c_size_t
706          import
707          integer(c_int) omp_target_memcpy_rect_async
708          type(c_ptr), value :: dst, src
709          integer(c_size_t), value :: element_size
710          integer(c_int), value :: num_dims, dst_device_num,                                                                        &
711     &        src_device_num, depobj_count
712          integer(c_size_t), intent(in) :: volume(*), dst_offsets(*),                                                               &
713     &        src_offsets(*), dst_dimensions(*), src_dimensions(*)
714          integer(omp_depend_kind), optional :: depobj_list(*)
715        end function omp_target_memcpy_rect_async
716
717        function omp_target_associate_ptr(host_ptr, device_ptr, size,                                                               &
718     &      device_offset, device_num) bind(c)
719          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t, c_int
720          integer(c_int) omp_target_associate_ptr
721          type(c_ptr), value :: host_ptr, device_ptr
722          integer(c_size_t), value :: size, device_offset
723          integer(c_int), value :: device_num
724        end function omp_target_associate_ptr
725
726        function omp_get_mapped_ptr(ptr, device_num) bind(c)
727          use, intrinsic :: iso_c_binding, only : c_ptr, c_int
728          type(c_ptr) omp_get_mapped_ptr
729          type(c_ptr), value :: ptr
730          integer(c_int), value :: device_num
731        end function omp_get_mapped_ptr
732
733        function omp_target_disassociate_ptr(ptr, device_num) bind(c)
734          use, intrinsic :: iso_c_binding, only : c_ptr, c_int
735          integer(c_int) omp_target_disassociate_ptr
736          type(c_ptr), value :: ptr
737          integer(c_int), value :: device_num
738        end function omp_target_disassociate_ptr
739
740        function omp_target_is_accessible(ptr, size, device_num) bind(c)
741          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t, c_int
742          integer(c_int) omp_target_is_accessible
743          type(c_ptr), value :: ptr
744          integer(c_size_t), value :: size
745          integer(c_int), value :: device_num
746        end function omp_target_is_accessible
747
748        function omp_alloc(size, allocator) bind(c)
749          use omp_lib_kinds
750          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t
751          type(c_ptr) omp_alloc
752          integer(c_size_t), value :: size
753          integer(omp_allocator_handle_kind), value :: allocator
754        end function omp_alloc
755
756        function omp_aligned_alloc(alignment, size, allocator) bind(c)
757          use omp_lib_kinds
758          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t
759          type(c_ptr) omp_aligned_alloc
760          integer(c_size_t), value :: alignment, size
761          integer(omp_allocator_handle_kind), value :: allocator
762        end function omp_aligned_alloc
763
764        function omp_calloc(nmemb, size, allocator) bind(c)
765          use omp_lib_kinds
766          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t
767          type(c_ptr) omp_calloc
768          integer(c_size_t), value :: nmemb, size
769          integer(omp_allocator_handle_kind), value :: allocator
770        end function omp_calloc
771
772        function omp_aligned_calloc(alignment, nmemb, size,                                                                         &
773     &      allocator) bind(c)
774          use omp_lib_kinds
775          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t
776          type(c_ptr) omp_aligned_calloc
777          integer(c_size_t), value :: alignment, nmemb, size
778          integer(omp_allocator_handle_kind), value :: allocator
779        end function omp_aligned_calloc
780
781        function omp_realloc(ptr, size, allocator,                                                                                  &
782     &      free_allocator) bind(c)
783          use omp_lib_kinds
784          use, intrinsic :: iso_c_binding, only : c_ptr, c_size_t
785          type(c_ptr) omp_realloc
786          type(c_ptr), value :: ptr
787          integer(c_size_t), value :: size
788          integer(omp_allocator_handle_kind), value :: allocator
789          integer(omp_allocator_handle_kind), value :: free_allocator
790        end function omp_realloc
791
792        subroutine omp_free(ptr, allocator) bind(c)
793          use omp_lib_kinds
794          use, intrinsic :: iso_c_binding, only : c_ptr
795          type(c_ptr), value :: ptr
796          integer(omp_allocator_handle_kind), value :: allocator
797        end subroutine omp_free
798
799!       ***
800!       *** kmp_* entry points
801!       ***
802
803        subroutine kmp_set_stacksize(size) bind(c)
804          import
805          integer (kind=omp_integer_kind), value :: size
806        end subroutine kmp_set_stacksize
807
808        subroutine kmp_set_stacksize_s(size) bind(c)
809          import
810          integer (kind=kmp_size_t_kind), value :: size
811        end subroutine kmp_set_stacksize_s
812
813        subroutine kmp_set_blocktime(msec) bind(c)
814          import
815          integer (kind=omp_integer_kind), value :: msec
816        end subroutine kmp_set_blocktime
817
818        subroutine kmp_set_library_serial() bind(c)
819        end subroutine kmp_set_library_serial
820
821        subroutine kmp_set_library_turnaround() bind(c)
822        end subroutine kmp_set_library_turnaround
823
824        subroutine kmp_set_library_throughput() bind(c)
825        end subroutine kmp_set_library_throughput
826
827        subroutine kmp_set_library(libnum) bind(c)
828          import
829          integer (kind=omp_integer_kind), value :: libnum
830        end subroutine kmp_set_library
831
832        subroutine kmp_set_defaults(string) bind(c)
833          character string(*)
834        end subroutine kmp_set_defaults
835
836        function kmp_get_stacksize() bind(c)
837          import
838          integer (kind=omp_integer_kind) kmp_get_stacksize
839        end function kmp_get_stacksize
840
841        function kmp_get_stacksize_s() bind(c)
842          import
843          integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
844        end function kmp_get_stacksize_s
845
846        function kmp_get_blocktime() bind(c)
847          import
848          integer (kind=omp_integer_kind) kmp_get_blocktime
849        end function kmp_get_blocktime
850
851        function kmp_get_library() bind(c)
852          import
853          integer (kind=omp_integer_kind) kmp_get_library
854        end function kmp_get_library
855
856        subroutine kmp_set_disp_num_buffers(num) bind(c)
857          import
858          integer (kind=omp_integer_kind), value :: num
859        end subroutine kmp_set_disp_num_buffers
860
861        function kmp_set_affinity(mask) bind(c)
862          import
863          integer (kind=omp_integer_kind) kmp_set_affinity
864          integer (kind=kmp_affinity_mask_kind) mask
865        end function kmp_set_affinity
866
867        function kmp_get_affinity(mask) bind(c)
868          import
869          integer (kind=omp_integer_kind) kmp_get_affinity
870          integer (kind=kmp_affinity_mask_kind) mask
871        end function kmp_get_affinity
872
873        function kmp_get_affinity_max_proc() bind(c)
874          import
875          integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
876        end function kmp_get_affinity_max_proc
877
878        subroutine kmp_create_affinity_mask(mask) bind(c)
879          import
880          integer (kind=kmp_affinity_mask_kind) mask
881        end subroutine kmp_create_affinity_mask
882
883        subroutine kmp_destroy_affinity_mask(mask) bind(c)
884          import
885          integer (kind=kmp_affinity_mask_kind) mask
886        end subroutine kmp_destroy_affinity_mask
887
888        function kmp_set_affinity_mask_proc(proc, mask) bind(c)
889          import
890          integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
891          integer (kind=omp_integer_kind), value :: proc
892          integer (kind=kmp_affinity_mask_kind) mask
893        end function kmp_set_affinity_mask_proc
894
895        function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
896          import
897          integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
898          integer (kind=omp_integer_kind), value :: proc
899          integer (kind=kmp_affinity_mask_kind) mask
900        end function kmp_unset_affinity_mask_proc
901
902        function kmp_get_affinity_mask_proc(proc, mask) bind(c)
903          import
904          integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
905          integer (kind=omp_integer_kind), value :: proc
906          integer (kind=kmp_affinity_mask_kind) mask
907        end function kmp_get_affinity_mask_proc
908
909        function kmp_malloc(size) bind(c)
910          import
911          integer (kind=kmp_pointer_kind) kmp_malloc
912          integer (kind=kmp_size_t_kind), value :: size
913        end function kmp_malloc
914
915        function kmp_aligned_malloc(size, alignment) bind(c)
916          import
917          integer (kind=kmp_pointer_kind) kmp_aligned_malloc
918          integer (kind=kmp_size_t_kind), value :: size
919          integer (kind=kmp_size_t_kind), value :: alignment
920        end function kmp_aligned_malloc
921
922        function kmp_calloc(nelem, elsize) bind(c)
923          import
924          integer (kind=kmp_pointer_kind) kmp_calloc
925          integer (kind=kmp_size_t_kind), value :: nelem
926          integer (kind=kmp_size_t_kind), value :: elsize
927        end function kmp_calloc
928
929        function kmp_realloc(ptr, size) bind(c)
930          import
931          integer (kind=kmp_pointer_kind) kmp_realloc
932          integer (kind=kmp_pointer_kind), value :: ptr
933          integer (kind=kmp_size_t_kind), value :: size
934        end function kmp_realloc
935
936        subroutine kmp_free(ptr) bind(c)
937          import
938          integer (kind=kmp_pointer_kind), value :: ptr
939        end subroutine kmp_free
940
941        subroutine kmp_set_warnings_on() bind(c)
942        end subroutine kmp_set_warnings_on
943
944        subroutine kmp_set_warnings_off() bind(c)
945        end subroutine kmp_set_warnings_off
946
947        subroutine omp_init_lock_with_hint(svar, hint) bind(c)
948          import
949          integer (kind=omp_lock_kind) svar
950          integer (kind=omp_lock_hint_kind), value :: hint
951        end subroutine omp_init_lock_with_hint
952
953        subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
954          import
955          integer (kind=omp_nest_lock_kind) nvar
956          integer (kind=omp_lock_hint_kind), value :: hint
957        end subroutine omp_init_nest_lock_with_hint
958
959        function omp_control_tool(command, modifier, arg) bind(c)
960          import
961          integer (kind=omp_integer_kind) omp_control_tool
962          integer (kind=omp_control_tool_kind), value :: command
963          integer (kind=omp_control_tool_kind), value :: modifier
964          integer (kind=kmp_pointer_kind), optional :: arg
965        end function omp_control_tool
966
967      end interface
968
969!DIR$ IF DEFINED (__INTEL_OFFLOAD)
970
971!DIR$ IF(__INTEL_COMPILER.LT.1900)
972!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
973!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
974!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested
975!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads
976!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads
977!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num
978!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs
979!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel
980!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final
981!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic
982!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested
983!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit
984!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels
985!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels
986!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level
987!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level
988!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num
989!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size
990!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule
991!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule
992!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind
993!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime
994!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick
995!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device
996!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device
997!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device
998!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_initial_device
999!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices
1000!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_device_num
1001!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource
1002!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource_all
1003!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_supported_active_levels
1004!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_fulfill_event
1005!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams
1006!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num
1007!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock
1008!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock
1009!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock
1010!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock
1011!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock
1012!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock
1013!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock
1014!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock
1015!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock
1016!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock
1017!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_task_priority
1018!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_affinity_format
1019!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_affinity_format
1020!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_display_affinity
1021!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_capture_affinity
1022!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize
1023!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s
1024!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime
1025!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial
1026!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround
1027!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput
1028!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library
1029!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults
1030!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize
1031!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s
1032!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime
1033!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library
1034!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_disp_num_buffers
1035!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity
1036!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity
1037!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc
1038!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask
1039!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask
1040!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc
1041!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc
1042!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc
1043!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc
1044!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_aligned_malloc
1045!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc
1046!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc
1047!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free
1048!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on
1049!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off
1050!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock_with_hint
1051!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock_with_hint
1052!DIR$ ENDIF
1053
1054!DIR$ IF(__INTEL_COMPILER.GE.1400)
1055!$omp declare target(omp_set_num_threads )
1056!$omp declare target(omp_set_dynamic )
1057!$omp declare target(omp_set_nested )
1058!$omp declare target(omp_get_num_threads )
1059!$omp declare target(omp_get_max_threads )
1060!$omp declare target(omp_get_thread_num )
1061!$omp declare target(omp_get_num_procs )
1062!$omp declare target(omp_in_parallel )
1063!$omp declare target(omp_in_final )
1064!$omp declare target(omp_get_dynamic )
1065!$omp declare target(omp_get_nested )
1066!$omp declare target(omp_get_thread_limit )
1067!$omp declare target(omp_set_max_active_levels )
1068!$omp declare target(omp_get_max_active_levels )
1069!$omp declare target(omp_get_level )
1070!$omp declare target(omp_get_active_level )
1071!$omp declare target(omp_get_ancestor_thread_num )
1072!$omp declare target(omp_get_team_size )
1073!$omp declare target(omp_set_schedule )
1074!$omp declare target(omp_get_schedule )
1075!$omp declare target(omp_get_proc_bind )
1076!$omp declare target(omp_get_wtime )
1077!$omp declare target(omp_get_wtick )
1078!$omp declare target(omp_get_default_device )
1079!$omp declare target(omp_set_default_device )
1080!$omp declare target(omp_is_initial_device )
1081!$omp declare target(omp_get_initial_device )
1082!$omp declare target(omp_get_num_devices )
1083!$omp declare target(omp_get_device_num )
1084!$omp declare target(omp_pause_resource )
1085!$omp declare target(omp_pause_resource_all )
1086!$omp declare target(omp_get_supported_active_levels )
1087!$omp declare target(omp_fulfill_event)
1088!$omp declare target(omp_get_num_teams )
1089!$omp declare target(omp_get_team_num )
1090!$omp declare target(omp_init_lock )
1091!$omp declare target(omp_destroy_lock )
1092!$omp declare target(omp_set_lock )
1093!$omp declare target(omp_unset_lock )
1094!$omp declare target(omp_test_lock )
1095!$omp declare target(omp_init_nest_lock )
1096!$omp declare target(omp_destroy_nest_lock )
1097!$omp declare target(omp_set_nest_lock )
1098!$omp declare target(omp_unset_nest_lock )
1099!$omp declare target(omp_test_nest_lock )
1100!$omp declare target(omp_get_max_task_priority )
1101!$omp declare target(omp_set_affinity_format )
1102!$omp declare target(omp_get_affinity_format )
1103!$omp declare target(omp_display_affinity )
1104!$omp declare target(omp_capture_affinity )
1105!$omp declare target(kmp_set_stacksize )
1106!$omp declare target(kmp_set_stacksize_s )
1107!$omp declare target(kmp_set_blocktime )
1108!$omp declare target(kmp_set_library_serial )
1109!$omp declare target(kmp_set_library_turnaround )
1110!$omp declare target(kmp_set_library_throughput )
1111!$omp declare target(kmp_set_library )
1112!$omp declare target(kmp_set_defaults )
1113!$omp declare target(kmp_get_stacksize )
1114!$omp declare target(kmp_get_stacksize_s )
1115!$omp declare target(kmp_get_blocktime )
1116!$omp declare target(kmp_get_library )
1117!$omp declare target(kmp_set_disp_num_buffers )
1118!$omp declare target(kmp_set_affinity )
1119!$omp declare target(kmp_get_affinity )
1120!$omp declare target(kmp_get_affinity_max_proc )
1121!$omp declare target(kmp_create_affinity_mask )
1122!$omp declare target(kmp_destroy_affinity_mask )
1123!$omp declare target(kmp_set_affinity_mask_proc )
1124!$omp declare target(kmp_unset_affinity_mask_proc )
1125!$omp declare target(kmp_get_affinity_mask_proc )
1126!$omp declare target(kmp_malloc )
1127!$omp declare target(kmp_aligned_malloc )
1128!$omp declare target(kmp_calloc )
1129!$omp declare target(kmp_realloc )
1130!$omp declare target(kmp_free )
1131!$omp declare target(kmp_set_warnings_on )
1132!$omp declare target(kmp_set_warnings_off )
1133!$omp declare target(omp_init_lock_with_hint )
1134!$omp declare target(omp_init_nest_lock_with_hint )
1135!DIR$ ENDIF
1136!DIR$ ENDIF
1137