1 ! Copyright (C
) 2005-2021 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_master
44 integer (omp_proc_bind_kind
) omp_proc_bind_close
45 integer (omp_proc_bind_kind
) omp_proc_bind_spread
46 parameter (omp_proc_bind_false
= 0)
47 parameter (omp_proc_bind_true
= 1)
48 parameter (omp_proc_bind_master
= 2)
49 parameter (omp_proc_bind_close
= 3)
50 parameter (omp_proc_bind_spread
= 4)
51 integer omp_sync_hint_kind
52 integer omp_lock_hint_kind
53 parameter (omp_sync_hint_kind
= 4)
54 parameter (omp_lock_hint_kind
= omp_sync_hint_kind
)
55 integer (omp_sync_hint_kind
) omp_sync_hint_none
56 integer (omp_lock_hint_kind
) omp_lock_hint_none
57 integer (omp_sync_hint_kind
) omp_sync_hint_uncontended
58 integer (omp_lock_hint_kind
) omp_lock_hint_uncontended
59 integer (omp_sync_hint_kind
) omp_sync_hint_contended
60 integer (omp_sync_hint_kind
) omp_lock_hint_contended
61 integer (omp_lock_hint_kind
) omp_sync_hint_nonspeculative
62 integer (omp_lock_hint_kind
) omp_lock_hint_nonspeculative
63 integer (omp_sync_hint_kind
) omp_sync_hint_speculative
64 integer (omp_lock_hint_kind
) omp_lock_hint_speculative
65 parameter (omp_sync_hint_none
= 0)
66 parameter (omp_lock_hint_none
= 0)
67 parameter (omp_sync_hint_uncontended
= 1)
68 parameter (omp_lock_hint_uncontended
= 1)
69 parameter (omp_sync_hint_contended
= 2)
70 parameter (omp_lock_hint_contended
= 2)
71 parameter (omp_sync_hint_nonspeculative
= 4)
72 parameter (omp_lock_hint_nonspeculative
= 4)
73 parameter (omp_sync_hint_speculative
= 8)
74 parameter (omp_lock_hint_speculative
= 8)
75 parameter (openmp_version
= 201511)
76 integer omp_pause_resource_kind
77 parameter (omp_pause_resource_kind
= 4)
78 integer (omp_pause_resource_kind
) omp_pause_soft
79 integer (omp_pause_resource_kind
) omp_pause_hard
80 parameter (omp_pause_soft
= 1)
81 parameter (omp_pause_hard
= 2)
83 integer omp_allocator_handle_kind
, omp_alloctrait_key_kind
84 integer omp_alloctrait_val_kind
, omp_memspace_handle_kind
85 parameter (omp_allocator_handle_kind
= @INTPTR_T_KIND@
)
86 parameter (omp_alloctrait_key_kind
= 4)
87 parameter (omp_alloctrait_val_kind
= @INTPTR_T_KIND@
)
88 parameter (omp_memspace_handle_kind
= @INTPTR_T_KIND@
)
89 integer (omp_alloctrait_key_kind
) omp_atk_sync_hint
90 integer (omp_alloctrait_key_kind
) omp_atk_alignment
91 integer (omp_alloctrait_key_kind
) omp_atk_access
92 integer (omp_alloctrait_key_kind
) omp_atk_pool_size
93 integer (omp_alloctrait_key_kind
) omp_atk_fallback
94 integer (omp_alloctrait_key_kind
) omp_atk_fb_data
95 integer (omp_alloctrait_key_kind
) omp_atk_pinned
96 integer (omp_alloctrait_key_kind
) omp_atk_partition
97 parameter (omp_atk_sync_hint
= 1)
98 parameter (omp_atk_alignment
= 2)
99 parameter (omp_atk_access
= 3)
100 parameter (omp_atk_pool_size
= 4)
101 parameter (omp_atk_fallback
= 5)
102 parameter (omp_atk_fb_data
= 6)
103 parameter (omp_atk_pinned
= 7)
104 parameter (omp_atk_partition
= 8)
105 integer (omp_alloctrait_val_kind
) omp_atv_false
106 integer (omp_alloctrait_val_kind
) omp_atv_true
107 integer (omp_alloctrait_val_kind
) omp_atv_default
108 integer (omp_alloctrait_val_kind
) omp_atv_contended
109 integer (omp_alloctrait_val_kind
) omp_atv_uncontended
110 integer (omp_alloctrait_val_kind
) omp_atv_serialized
111 integer (omp_alloctrait_val_kind
) omp_atv_sequential
112 integer (omp_alloctrait_val_kind
) omp_atv_private
113 integer (omp_alloctrait_val_kind
) omp_atv_all
114 integer (omp_alloctrait_val_kind
) omp_atv_thread
115 integer (omp_alloctrait_val_kind
) omp_atv_pteam
116 integer (omp_alloctrait_val_kind
) omp_atv_cgroup
117 integer (omp_alloctrait_val_kind
) omp_atv_default_mem_fb
118 integer (omp_alloctrait_val_kind
) omp_atv_null_fb
119 integer (omp_alloctrait_val_kind
) omp_atv_abort_fb
120 integer (omp_alloctrait_val_kind
) omp_atv_allocator_fb
121 integer (omp_alloctrait_val_kind
) omp_atv_environment
122 integer (omp_alloctrait_val_kind
) omp_atv_nearest
123 integer (omp_alloctrait_val_kind
) omp_atv_blocked
124 integer (omp_alloctrait_val_kind
) omp_atv_interleaved
125 parameter (omp_atv_default
= -1)
126 parameter (omp_atv_false
= 0)
127 parameter (omp_atv_true
= 1)
128 parameter (omp_atv_contended
= 3)
129 parameter (omp_atv_uncontended
= 4)
130 parameter (omp_atv_serialized
= 5)
131 parameter (omp_atv_sequential
= omp_atv_serialized
)
132 parameter (omp_atv_private
= 6)
133 parameter (omp_atv_all
= 7)
134 parameter (omp_atv_thread
= 8)
135 parameter (omp_atv_pteam
= 9)
136 parameter (omp_atv_cgroup
= 10)
137 parameter (omp_atv_default_mem_fb
= 11)
138 parameter (omp_atv_null_fb
= 12)
139 parameter (omp_atv_abort_fb
= 13)
140 parameter (omp_atv_allocator_fb
= 14)
141 parameter (omp_atv_environment
= 15)
142 parameter (omp_atv_nearest
= 16)
143 parameter (omp_atv_blocked
= 17)
144 parameter (omp_atv_interleaved
= 18)
145 integer (omp_allocator_handle_kind
) omp_null_allocator
146 integer (omp_allocator_handle_kind
) omp_default_mem_alloc
147 integer (omp_allocator_handle_kind
) omp_large_cap_mem_alloc
148 integer (omp_allocator_handle_kind
) omp_const_mem_alloc
149 integer (omp_allocator_handle_kind
) omp_high_bw_mem_alloc
150 integer (omp_allocator_handle_kind
) omp_low_lat_mem_alloc
151 integer (omp_allocator_handle_kind
) omp_cgroup_mem_alloc
152 integer (omp_allocator_handle_kind
) omp_pteam_mem_alloc
153 integer (omp_allocator_handle_kind
) omp_thread_mem_alloc
154 parameter (omp_null_allocator
= 0)
155 parameter (omp_default_mem_alloc
= 1)
156 parameter (omp_large_cap_mem_alloc
= 2)
157 parameter (omp_const_mem_alloc
= 3)
158 parameter (omp_high_bw_mem_alloc
= 4)
159 parameter (omp_low_lat_mem_alloc
= 5)
160 parameter (omp_cgroup_mem_alloc
= 6)
161 parameter (omp_pteam_mem_alloc
= 7)
162 parameter (omp_thread_mem_alloc
= 8)
163 integer (omp_memspace_handle_kind
) omp_default_mem_space
164 integer (omp_memspace_handle_kind
) omp_large_cap_mem_space
165 integer (omp_memspace_handle_kind
) omp_const_mem_space
166 integer (omp_memspace_handle_kind
) omp_high_bw_mem_space
167 integer (omp_memspace_handle_kind
) omp_low_lat_mem_space
168 parameter (omp_default_mem_space
= 0)
169 parameter (omp_large_cap_mem_space
= 1)
170 parameter (omp_const_mem_space
= 2)
171 parameter (omp_high_bw_mem_space
= 3)
172 parameter (omp_low_lat_mem_space
= 4)
175 integer (omp_alloctrait_key_kind
) key
176 integer (omp_alloctrait_val_kind
) value
177 end type omp_alloctrait
179 external omp_init_lock
, omp_init_nest_lock
180 external omp_init_lock_with_hint
181 external omp_init_nest_lock_with_hint
182 external omp_destroy_lock
, omp_destroy_nest_lock
183 external omp_set_lock
, omp_set_nest_lock
184 external omp_unset_lock
, omp_unset_nest_lock
185 external omp_set_dynamic
, omp_set_nested
186 external omp_set_num_threads
188 external omp_get_dynamic
, omp_get_nested
189 logical(4) omp_get_dynamic
, omp_get_nested
190 external omp_test_lock
, omp_in_parallel
191 logical(4) omp_test_lock
, omp_in_parallel
193 external omp_get_max_threads
, omp_get_num_procs
194 integer(4) omp_get_max_threads
, omp_get_num_procs
195 external omp_get_num_threads
, omp_get_thread_num
196 integer(4) omp_get_num_threads
, omp_get_thread_num
197 external omp_test_nest_lock
198 integer(4) omp_test_nest_lock
200 external omp_get_wtick
, omp_get_wtime
201 double precision omp_get_wtick
, omp_get_wtime
203 external omp_set_schedule
, omp_get_schedule
204 external omp_get_thread_limit
, omp_set_max_active_levels
205 external omp_get_max_active_levels
, omp_get_level
206 external omp_get_ancestor_thread_num
, omp_get_team_size
207 external omp_get_active_level
208 external omp_get_supported_active_levels
209 integer(4) omp_get_thread_limit
, omp_get_max_active_levels
210 integer(4) omp_get_level
, omp_get_ancestor_thread_num
211 integer(4) omp_get_team_size
, omp_get_active_level
212 integer(4) omp_get_supported_active_levels
214 external omp_in_final
215 logical(4) omp_in_final
217 external omp_get_cancellation
218 logical(4) omp_get_cancellation
220 external omp_get_proc_bind
221 integer(omp_proc_bind_kind
) omp_get_proc_bind
223 integer(4) omp_get_num_places
224 external omp_get_num_places
225 integer(4) omp_get_place_num_procs
226 external omp_get_place_num_procs
227 external omp_get_place_proc_ids
228 integer(4) omp_get_place_num
229 external omp_get_place_num
230 integer(4) omp_get_partition_num_places
231 external omp_get_partition_num_places
232 external omp_get_partition_place_nums
234 external omp_set_default_device
, omp_get_default_device
235 external omp_get_num_devices
, omp_get_num_teams
236 external omp_get_team_num
237 integer(4) omp_get_default_device
, omp_get_num_devices
238 integer(4) omp_get_num_teams
, omp_get_team_num
240 external omp_is_initial_device
241 logical(4) omp_is_initial_device
242 external omp_get_initial_device
243 integer(4) omp_get_initial_device
245 external omp_get_max_task_priority
246 integer(4) omp_get_max_task_priority
248 external omp_set_affinity_format
, omp_get_affinity_format
249 external omp_display_affinity
, omp_capture_affinity
250 integer(4) omp_get_affinity_format
251 integer(4) omp_capture_affinity
253 external omp_pause_resource
, omp_pause_resource_all
254 integer(4) omp_pause_resource
255 integer(4) omp_pause_resource_all
257 external omp_init_allocator
258 integer (omp_allocator_handle_kind
) omp_init_allocator
259 external omp_destroy_allocator
260 external omp_set_default_allocator
261 external omp_get_default_allocator
262 integer (omp_allocator_handle_kind
) omp_get_default_allocator