1 ! Copyright (C
) 2005-2024 Free Software Foundation
, Inc
.
2 ! Contributed by Jakub Jelinek
<jakub@redhat
.com
>.
4 ! This file is part of the GNU Offloading
and Multi Processing Library
7 ! Libgomp is free software
; you can redistribute it
and/or modify it
8 ! under the terms of the GNU General Public License as published by
9 ! the Free Software Foundation
; either version
3, or (at your option
)
12 ! Libgomp is distributed in the hope that it will be useful
, but WITHOUT ANY
13 ! WARRANTY
; without even the implied warranty of MERCHANTABILITY
or FITNESS
14 ! FOR A PARTICULAR PURPOSE
. See the GNU General Public License
for
17 ! Under Section
7 of GPL version
3, you are granted additional
18 ! permissions described in the GCC Runtime Library Exception
, version
19 ! 3.1, as published by the Free Software Foundation
.
21 ! You should have received a copy of the GNU General Public License
and
22 ! a copy of the GCC Runtime Library Exception along with
this program
;
23 ! see the files COPYING3
and COPYING
.RUNTIME respectively
. If
not, see
24 ! <http
://www.gnu.org/licenses/>.
26 integer omp_lock_kind
, omp_nest_lock_kind
, openmp_version
27 parameter (omp_lock_kind
= @OMP_LOCK_KIND@
)
28 parameter (omp_nest_lock_kind
= @OMP_NEST_LOCK_KIND@
)
29 integer omp_depend_kind
30 parameter (omp_depend_kind
= @OMP_DEPEND_KIND@
)
31 integer omp_sched_kind
32 parameter (omp_sched_kind
= 4)
33 integer (omp_sched_kind
) omp_sched_static
, omp_sched_dynamic
34 integer (omp_sched_kind
) omp_sched_guided
, omp_sched_auto
35 parameter (omp_sched_static
= 1)
36 parameter (omp_sched_dynamic
= 2)
37 parameter (omp_sched_guided
= 3)
38 parameter (omp_sched_auto
= 4)
39 integer omp_proc_bind_kind
40 parameter (omp_proc_bind_kind
= 4)
41 integer (omp_proc_bind_kind
) omp_proc_bind_false
42 integer (omp_proc_bind_kind
) omp_proc_bind_true
43 integer (omp_proc_bind_kind
) omp_proc_bind_primary
44 integer (omp_proc_bind_kind
) omp_proc_bind_master
45 integer (omp_proc_bind_kind
) omp_proc_bind_close
46 integer (omp_proc_bind_kind
) omp_proc_bind_spread
47 parameter (omp_proc_bind_false
= 0)
48 parameter (omp_proc_bind_true
= 1)
49 parameter (omp_proc_bind_primary
= 2)
50 parameter (omp_proc_bind_master
= 2)
51 parameter (omp_proc_bind_close
= 3)
52 parameter (omp_proc_bind_spread
= 4)
53 integer omp_sync_hint_kind
54 integer omp_lock_hint_kind
55 parameter (omp_sync_hint_kind
= 4)
56 parameter (omp_lock_hint_kind
= omp_sync_hint_kind
)
57 integer (omp_sync_hint_kind
) omp_sync_hint_none
58 integer (omp_lock_hint_kind
) omp_lock_hint_none
59 integer (omp_sync_hint_kind
) omp_sync_hint_uncontended
60 integer (omp_lock_hint_kind
) omp_lock_hint_uncontended
61 integer (omp_sync_hint_kind
) omp_sync_hint_contended
62 integer (omp_sync_hint_kind
) omp_lock_hint_contended
63 integer (omp_lock_hint_kind
) omp_sync_hint_nonspeculative
64 integer (omp_lock_hint_kind
) omp_lock_hint_nonspeculative
65 integer (omp_sync_hint_kind
) omp_sync_hint_speculative
66 integer (omp_lock_hint_kind
) omp_lock_hint_speculative
67 parameter (omp_sync_hint_none
= 0)
68 parameter (omp_lock_hint_none
= 0)
69 parameter (omp_sync_hint_uncontended
= 1)
70 parameter (omp_lock_hint_uncontended
= 1)
71 parameter (omp_sync_hint_contended
= 2)
72 parameter (omp_lock_hint_contended
= 2)
73 parameter (omp_sync_hint_nonspeculative
= 4)
74 parameter (omp_lock_hint_nonspeculative
= 4)
75 parameter (omp_sync_hint_speculative
= 8)
76 parameter (omp_lock_hint_speculative
= 8)
77 parameter (openmp_version
= 201511)
78 integer omp_pause_resource_kind
79 parameter (omp_pause_resource_kind
= 4)
80 integer (omp_pause_resource_kind
) omp_pause_soft
81 integer (omp_pause_resource_kind
) omp_pause_hard
82 parameter (omp_pause_soft
= 1)
83 parameter (omp_pause_hard
= 2)
85 integer omp_allocator_handle_kind
, omp_alloctrait_key_kind
86 integer omp_alloctrait_val_kind
, omp_memspace_handle_kind
87 integer omp_event_handle_kind
88 parameter (omp_allocator_handle_kind
= @INTPTR_T_KIND@
)
89 parameter (omp_alloctrait_key_kind
= 4)
90 parameter (omp_alloctrait_val_kind
= @INTPTR_T_KIND@
)
91 parameter (omp_memspace_handle_kind
= @INTPTR_T_KIND@
)
92 parameter (omp_event_handle_kind
= @INTPTR_T_KIND@
)
93 integer (omp_alloctrait_key_kind
) omp_atk_sync_hint
94 integer (omp_alloctrait_key_kind
) omp_atk_alignment
95 integer (omp_alloctrait_key_kind
) omp_atk_access
96 integer (omp_alloctrait_key_kind
) omp_atk_pool_size
97 integer (omp_alloctrait_key_kind
) omp_atk_fallback
98 integer (omp_alloctrait_key_kind
) omp_atk_fb_data
99 integer (omp_alloctrait_key_kind
) omp_atk_pinned
100 integer (omp_alloctrait_key_kind
) omp_atk_partition
101 parameter (omp_atk_sync_hint
= 1)
102 parameter (omp_atk_alignment
= 2)
103 parameter (omp_atk_access
= 3)
104 parameter (omp_atk_pool_size
= 4)
105 parameter (omp_atk_fallback
= 5)
106 parameter (omp_atk_fb_data
= 6)
107 parameter (omp_atk_pinned
= 7)
108 parameter (omp_atk_partition
= 8)
109 integer (omp_alloctrait_val_kind
) omp_atv_false
110 integer (omp_alloctrait_val_kind
) omp_atv_true
111 integer (omp_alloctrait_val_kind
) omp_atv_default
112 integer (omp_alloctrait_val_kind
) omp_atv_contended
113 integer (omp_alloctrait_val_kind
) omp_atv_uncontended
114 integer (omp_alloctrait_val_kind
) omp_atv_serialized
115 integer (omp_alloctrait_val_kind
) omp_atv_sequential
116 integer (omp_alloctrait_val_kind
) omp_atv_private
117 integer (omp_alloctrait_val_kind
) omp_atv_all
118 integer (omp_alloctrait_val_kind
) omp_atv_thread
119 integer (omp_alloctrait_val_kind
) omp_atv_pteam
120 integer (omp_alloctrait_val_kind
) omp_atv_cgroup
121 integer (omp_alloctrait_val_kind
) omp_atv_default_mem_fb
122 integer (omp_alloctrait_val_kind
) omp_atv_null_fb
123 integer (omp_alloctrait_val_kind
) omp_atv_abort_fb
124 integer (omp_alloctrait_val_kind
) omp_atv_allocator_fb
125 integer (omp_alloctrait_val_kind
) omp_atv_environment
126 integer (omp_alloctrait_val_kind
) omp_atv_nearest
127 integer (omp_alloctrait_val_kind
) omp_atv_blocked
128 integer (omp_alloctrait_val_kind
) omp_atv_interleaved
129 parameter (omp_atv_default
= -1)
130 parameter (omp_atv_false
= 0)
131 parameter (omp_atv_true
= 1)
132 parameter (omp_atv_contended
= 3)
133 parameter (omp_atv_uncontended
= 4)
134 parameter (omp_atv_serialized
= 5)
135 parameter (omp_atv_sequential
= omp_atv_serialized
)
136 parameter (omp_atv_private
= 6)
137 parameter (omp_atv_all
= 7)
138 parameter (omp_atv_thread
= 8)
139 parameter (omp_atv_pteam
= 9)
140 parameter (omp_atv_cgroup
= 10)
141 parameter (omp_atv_default_mem_fb
= 11)
142 parameter (omp_atv_null_fb
= 12)
143 parameter (omp_atv_abort_fb
= 13)
144 parameter (omp_atv_allocator_fb
= 14)
145 parameter (omp_atv_environment
= 15)
146 parameter (omp_atv_nearest
= 16)
147 parameter (omp_atv_blocked
= 17)
148 parameter (omp_atv_interleaved
= 18)
149 integer (omp_allocator_handle_kind
) omp_null_allocator
150 integer (omp_allocator_handle_kind
) omp_default_mem_alloc
151 integer (omp_allocator_handle_kind
) omp_large_cap_mem_alloc
152 integer (omp_allocator_handle_kind
) omp_const_mem_alloc
153 integer (omp_allocator_handle_kind
) omp_high_bw_mem_alloc
154 integer (omp_allocator_handle_kind
) omp_low_lat_mem_alloc
155 integer (omp_allocator_handle_kind
) omp_cgroup_mem_alloc
156 integer (omp_allocator_handle_kind
) omp_pteam_mem_alloc
157 integer (omp_allocator_handle_kind
) omp_thread_mem_alloc
158 integer (omp_allocator_handle_kind
) ompx_gnu_pinned_mem_alloc
159 parameter (omp_null_allocator
= 0)
160 parameter (omp_default_mem_alloc
= 1)
161 parameter (omp_large_cap_mem_alloc
= 2)
162 parameter (omp_const_mem_alloc
= 3)
163 parameter (omp_high_bw_mem_alloc
= 4)
164 parameter (omp_low_lat_mem_alloc
= 5)
165 parameter (omp_cgroup_mem_alloc
= 6)
166 parameter (omp_pteam_mem_alloc
= 7)
167 parameter (omp_thread_mem_alloc
= 8)
168 parameter (ompx_gnu_pinned_mem_alloc
= 200)
169 integer (omp_memspace_handle_kind
) omp_default_mem_space
170 integer (omp_memspace_handle_kind
) omp_large_cap_mem_space
171 integer (omp_memspace_handle_kind
) omp_const_mem_space
172 integer (omp_memspace_handle_kind
) omp_high_bw_mem_space
173 integer (omp_memspace_handle_kind
) omp_low_lat_mem_space
174 parameter (omp_default_mem_space
= 0)
175 parameter (omp_large_cap_mem_space
= 1)
176 parameter (omp_const_mem_space
= 2)
177 parameter (omp_high_bw_mem_space
= 3)
178 parameter (omp_low_lat_mem_space
= 4)
179 integer omp_initial_device
, omp_invalid_device
180 parameter (omp_initial_device
= -1)
181 parameter (omp_invalid_device
= -4)
184 integer (omp_alloctrait_key_kind
) key
185 integer (omp_alloctrait_val_kind
) value
186 end type omp_alloctrait
188 external omp_init_lock
, omp_init_nest_lock
189 external omp_init_lock_with_hint
190 external omp_init_nest_lock_with_hint
191 external omp_destroy_lock
, omp_destroy_nest_lock
192 external omp_set_lock
, omp_set_nest_lock
193 external omp_unset_lock
, omp_unset_nest_lock
194 external omp_set_dynamic
, omp_set_nested
195 external omp_set_num_threads
197 external omp_get_dynamic
, omp_get_nested
198 logical(4) omp_get_dynamic
, omp_get_nested
199 external omp_test_lock
, omp_in_parallel
200 logical(4) omp_test_lock
, omp_in_parallel
202 external omp_get_max_threads
, omp_get_num_procs
203 integer(4) omp_get_max_threads
, omp_get_num_procs
204 external omp_get_num_threads
, omp_get_thread_num
205 integer(4) omp_get_num_threads
, omp_get_thread_num
206 external omp_test_nest_lock
207 integer(4) omp_test_nest_lock
209 external omp_get_wtick
, omp_get_wtime
210 double precision omp_get_wtick
, omp_get_wtime
212 external omp_set_schedule
, omp_get_schedule
213 external omp_get_thread_limit
, omp_set_max_active_levels
214 external omp_get_max_active_levels
, omp_get_level
215 external omp_get_ancestor_thread_num
, omp_get_team_size
216 external omp_get_active_level
217 external omp_get_supported_active_levels
218 integer(4) omp_get_thread_limit
, omp_get_max_active_levels
219 integer(4) omp_get_level
, omp_get_ancestor_thread_num
220 integer(4) omp_get_team_size
, omp_get_active_level
221 integer(4) omp_get_supported_active_levels
223 external omp_in_final
224 logical(4) omp_in_final
225 external omp_in_explicit_task
226 logical(4) omp_in_explicit_task
228 external omp_get_cancellation
229 logical(4) omp_get_cancellation
231 external omp_get_proc_bind
232 integer(omp_proc_bind_kind
) omp_get_proc_bind
234 integer(4) omp_get_num_places
235 external omp_get_num_places
236 integer(4) omp_get_place_num_procs
237 external omp_get_place_num_procs
238 external omp_get_place_proc_ids
239 integer(4) omp_get_place_num
240 external omp_get_place_num
241 integer(4) omp_get_partition_num_places
242 external omp_get_partition_num_places
243 external omp_get_partition_place_nums
245 external omp_set_default_device
, omp_get_default_device
246 external omp_get_num_devices
, omp_get_num_teams
247 external omp_get_team_num
248 integer(4) omp_get_default_device
, omp_get_num_devices
249 integer(4) omp_get_num_teams
, omp_get_team_num
251 external omp_is_initial_device
252 logical(4) omp_is_initial_device
253 external omp_get_initial_device
254 integer(4) omp_get_initial_device
256 external omp_get_device_num
257 integer(4) omp_get_device_num
259 external omp_get_max_task_priority
260 integer(4) omp_get_max_task_priority
262 external omp_set_num_teams
, omp_set_teams_thread_limit
263 external omp_get_max_teams
, omp_get_teams_thread_limit
264 integer(4) omp_get_max_teams
, omp_get_teams_thread_limit
266 external omp_fulfill_event
268 external omp_set_affinity_format
, omp_get_affinity_format
269 external omp_display_affinity
, omp_capture_affinity
270 integer(4) omp_get_affinity_format
271 integer(4) omp_capture_affinity
273 external omp_pause_resource
, omp_pause_resource_all
274 integer(4) omp_pause_resource
275 integer(4) omp_pause_resource_all
277 external omp_init_allocator
278 integer (omp_allocator_handle_kind
) omp_init_allocator
279 external omp_destroy_allocator
280 external omp_set_default_allocator
281 external omp_get_default_allocator
282 integer (omp_allocator_handle_kind
) omp_get_default_allocator
284 external omp_display_env
287 function
omp_alloc (size
, allocator
) bind(c
)
288 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_size_t
289 use
, intrinsic :: omp_lib_kinds
290 type(c_ptr
) :: omp_alloc
291 integer(c_size_t
), value :: size
292 integer(omp_allocator_handle_kind
), value :: allocator
293 end function omp_alloc
297 function
omp_aligned_alloc (alignment
, size
, allocator
) bind(c
)
298 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_size_t
299 use
, intrinsic :: omp_lib_kinds
300 type(c_ptr
) :: omp_aligned_alloc
301 integer(c_size_t
), value :: alignment
, size
302 integer(omp_allocator_handle_kind
), value :: allocator
303 end function omp_aligned_alloc
307 subroutine
omp_free(ptr
, allocator
) bind(c
)
308 use
, intrinsic :: iso_c_binding
, only
: c_ptr
309 use
, intrinsic :: omp_lib_kinds
310 type(c_ptr
), value :: ptr
311 integer(omp_allocator_handle_kind
), value :: allocator
312 end subroutine omp_free
316 function
omp_calloc (nmemb
, size
, allocator
) bind(c
)
317 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_size_t
318 use
, intrinsic :: omp_lib_kinds
319 type(c_ptr
) :: omp_calloc
320 integer(c_size_t
), value :: nmemb
, size
321 integer(omp_allocator_handle_kind
), value :: allocator
322 end function omp_calloc
326 function
omp_aligned_calloc (alignment
, nmemb
, size
, allocator
) &
328 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_size_t
329 use
, intrinsic :: omp_lib_kinds
330 type(c_ptr
) :: omp_aligned_calloc
331 integer(c_size_t
), value :: alignment
, nmemb
, size
332 integer(omp_allocator_handle_kind
), value :: allocator
333 end function omp_aligned_calloc
337 function
omp_realloc (ptr
, size
, allocator
, free_allocator
) &
339 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_size_t
340 use
, intrinsic :: omp_lib_kinds
341 type(c_ptr
) :: omp_realloc
342 type(c_ptr
), value :: ptr
343 integer(c_size_t
), value :: size
344 integer(omp_allocator_handle_kind
), value :: allocator
345 integer(omp_allocator_handle_kind
), value :: free_allocator
346 end function omp_realloc
350 function
omp_target_alloc (size
, device_num
) bind(c
)
351 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_size_t
, c_int
352 type(c_ptr
) :: omp_target_alloc
353 integer(c_size_t
), value :: size
354 integer(c_int
), value :: device_num
355 end function omp_target_alloc
359 subroutine
omp_target_free (device_ptr
, device_num
) bind(c
)
360 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_int
361 type(c_ptr
), value :: device_ptr
362 integer(c_int
), value :: device_num
363 end subroutine omp_target_free
367 function
omp_target_is_present (ptr
, device_num
) bind(c
)
368 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_int
369 integer(c_int
) :: omp_target_is_present
370 type(c_ptr
), value :: ptr
371 integer(c_int
), value :: device_num
372 end function omp_target_is_present
376 function
omp_target_memcpy (dst
, src
, length
, dst_offset
, &
377 & src_offset
, dst_device_num
, &
378 & src_device_num
) bind(c
)
379 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_int
, c_size_t
380 integer(c_int
) :: omp_target_memcpy
381 type(c_ptr
), value :: dst
, src
382 integer(c_size_t
), value :: length
, dst_offset
, src_offset
383 integer(c_int
), value :: dst_device_num
, src_device_num
384 end function omp_target_memcpy
388 function
omp_target_memcpy_async (dst
, src
, length
, dst_offset
, &
389 & src_offset
, dst_device_num
, &
390 & src_device_num
, depobj_count
, &
391 & depobj_list
) bind(c
)
392 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_int
, c_size_t
393 import :: omp_depend_kind
394 integer(c_int
) :: omp_target_memcpy_async
395 type(c_ptr
), value :: dst
, src
396 integer(c_size_t
), value :: length
, dst_offset
, src_offset
397 integer(c_int
), value :: dst_device_num
, src_device_num
398 integer(c_int
), value :: depobj_count
399 integer(omp_depend_kind
), optional :: depobj_list(*)
400 end function omp_target_memcpy_async
404 function
omp_target_memcpy_rect (dst
,src
,element_size
, num_dims
, &
405 & volume
, dst_offsets
, &
406 & src_offsets
, dst_dimensions
, &
407 & src_dimensions
, dst_device_num
, &
408 & src_device_num
) bind(c
)
409 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_int
, c_size_t
410 integer(c_int
) :: omp_target_memcpy_rect
411 type(c_ptr
), value :: dst
, src
412 integer(c_size_t
), value :: element_size
413 integer(c_int
), value :: num_dims
414 integer(c_int
), value :: dst_device_num
, src_device_num
415 integer(c_size_t
), intent(in
) :: volume(*), dst_offsets(*)
416 integer(c_size_t
), intent(in
) :: src_offsets(*)
417 integer(c_size_t
), intent(in
) :: dst_dimensions(*)
418 integer(c_size_t
), intent(in
) :: src_dimensions(*)
419 end function omp_target_memcpy_rect
423 function
omp_target_memcpy_rect_async (dst
,src
,element_size
, &
424 & num_dims
, volume
, &
425 & dst_offsets
, src_offsets
, &
431 & depobj_list
) bind(c
)
432 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_int
, c_size_t
433 import :: omp_depend_kind
434 integer(c_int
) :: omp_target_memcpy_rect_async
435 type(c_ptr
), value :: dst
, src
436 integer(c_size_t
), value :: element_size
437 integer(c_int
), value :: num_dims
, depobj_count
438 integer(c_int
), value :: dst_device_num
, src_device_num
439 integer(c_size_t
), intent(in
) :: volume(*), dst_offsets(*)
440 integer(c_size_t
), intent(in
) :: src_offsets(*)
441 integer(c_size_t
), intent(in
) :: dst_dimensions(*)
442 integer(c_size_t
), intent(in
) :: src_dimensions(*)
443 integer(omp_depend_kind
), optional :: depobj_list(*)
444 end function omp_target_memcpy_rect_async
448 function
omp_target_associate_ptr (host_ptr
, device_ptr
, size
, &
449 & device_offset
, device_num
) &
451 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_size_t
, c_int
452 integer(c_int
) :: omp_target_associate_ptr
453 type(c_ptr
), value :: host_ptr
, device_ptr
454 integer(c_size_t
), value :: size
, device_offset
455 integer(c_int
), value :: device_num
456 end function omp_target_associate_ptr
460 function
omp_target_disassociate_ptr (ptr
, device_num
) bind(c
)
461 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_int
462 integer(c_int
) :: omp_target_disassociate_ptr
463 type(c_ptr
), value :: ptr
464 integer(c_int
), value :: device_num
465 end function omp_target_disassociate_ptr
469 function
omp_get_mapped_ptr (ptr
, device_num
) bind(c
)
470 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_int
471 type(c_ptr
) :: omp_get_mapped_ptr
472 type(c_ptr
), value :: ptr
473 integer(c_int
), value :: device_num
474 end function omp_get_mapped_ptr
478 function
omp_target_is_accessible (ptr
, size
, device_num
) &
480 use
, intrinsic :: iso_c_binding
, only
: c_ptr
, c_size_t
, c_int
481 integer(c_int
) :: omp_target_is_accessible
482 type(c_ptr
), value :: ptr
483 integer(c_size_t
), value :: size
484 integer(c_int
), value :: device_num
485 end function omp_target_is_accessible