]>
Commit | Line | Data |
---|---|---|
99dee823 | 1 | ! Copyright (C) 2005-2021 Free Software Foundation, Inc. |
953ff289 DN |
2 | ! Contributed by Jakub Jelinek <jakub@redhat.com>. |
3 | ||
f1f3453e TS |
4 | ! This file is part of the GNU Offloading and Multi Processing Library |
5 | ! (libgomp). | |
953ff289 DN |
6 | |
7 | ! Libgomp is free software; you can redistribute it and/or modify it | |
748086b7 JJ |
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) | |
10 | ! any later version. | |
953ff289 DN |
11 | |
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 | |
748086b7 | 14 | ! FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
953ff289 DN |
15 | ! more details. |
16 | ||
748086b7 JJ |
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. | |
953ff289 | 20 | |
748086b7 JJ |
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/>. | |
953ff289 DN |
25 | |
26 | integer omp_lock_kind, omp_nest_lock_kind, openmp_version | |
03b8fe49 PB |
27 | parameter (omp_lock_kind = @OMP_LOCK_KIND@) |
28 | parameter (omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@) | |
2631d95a TB |
29 | integer omp_depend_kind |
30 | parameter (omp_depend_kind = @OMP_DEPEND_KIND@) | |
20906c66 | 31 | integer omp_sched_kind |
a68ab351 | 32 | parameter (omp_sched_kind = 4) |
20906c66 JJ |
33 | integer (omp_sched_kind) omp_sched_static, omp_sched_dynamic |
34 | integer (omp_sched_kind) omp_sched_guided, omp_sched_auto | |
a68ab351 JJ |
35 | parameter (omp_sched_static = 1) |
36 | parameter (omp_sched_dynamic = 2) | |
37 | parameter (omp_sched_guided = 3) | |
38 | parameter (omp_sched_auto = 4) | |
acf0174b JJ |
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) | |
c7c24828 | 51 | integer omp_sync_hint_kind |
d9a6bd32 | 52 | integer omp_lock_hint_kind |
c7c24828 TB |
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 | |
d9a6bd32 | 56 | integer (omp_lock_hint_kind) omp_lock_hint_none |
c7c24828 | 57 | integer (omp_sync_hint_kind) omp_sync_hint_uncontended |
d9a6bd32 | 58 | integer (omp_lock_hint_kind) omp_lock_hint_uncontended |
c7c24828 TB |
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 | |
d9a6bd32 | 62 | integer (omp_lock_hint_kind) omp_lock_hint_nonspeculative |
c7c24828 | 63 | integer (omp_sync_hint_kind) omp_sync_hint_speculative |
d9a6bd32 | 64 | integer (omp_lock_hint_kind) omp_lock_hint_speculative |
c7c24828 | 65 | parameter (omp_sync_hint_none = 0) |
d9a6bd32 | 66 | parameter (omp_lock_hint_none = 0) |
c7c24828 | 67 | parameter (omp_sync_hint_uncontended = 1) |
d9a6bd32 | 68 | parameter (omp_lock_hint_uncontended = 1) |
c7c24828 | 69 | parameter (omp_sync_hint_contended = 2) |
d9a6bd32 | 70 | parameter (omp_lock_hint_contended = 2) |
c7c24828 | 71 | parameter (omp_sync_hint_nonspeculative = 4) |
d9a6bd32 | 72 | parameter (omp_lock_hint_nonspeculative = 4) |
c7c24828 | 73 | parameter (omp_sync_hint_speculative = 8) |
d9a6bd32 | 74 | parameter (omp_lock_hint_speculative = 8) |
8ebd1b31 | 75 | parameter (openmp_version = 201511) |
28567c40 JJ |
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) | |
953ff289 | 82 | |
fff15bad TB |
83 | integer omp_allocator_handle_kind, omp_alloctrait_key_kind |
84 | integer omp_alloctrait_val_kind, omp_memspace_handle_kind | |
a6d22fb2 | 85 | integer omp_event_handle_kind |
fff15bad | 86 | parameter (omp_allocator_handle_kind = @INTPTR_T_KIND@) |
2631d95a | 87 | parameter (omp_alloctrait_key_kind = 4) |
fff15bad TB |
88 | parameter (omp_alloctrait_val_kind = @INTPTR_T_KIND@) |
89 | parameter (omp_memspace_handle_kind = @INTPTR_T_KIND@) | |
a6d22fb2 | 90 | parameter (omp_event_handle_kind = @INTPTR_T_KIND@) |
fff15bad TB |
91 | integer (omp_alloctrait_key_kind) omp_atk_sync_hint |
92 | integer (omp_alloctrait_key_kind) omp_atk_alignment | |
93 | integer (omp_alloctrait_key_kind) omp_atk_access | |
94 | integer (omp_alloctrait_key_kind) omp_atk_pool_size | |
95 | integer (omp_alloctrait_key_kind) omp_atk_fallback | |
96 | integer (omp_alloctrait_key_kind) omp_atk_fb_data | |
97 | integer (omp_alloctrait_key_kind) omp_atk_pinned | |
98 | integer (omp_alloctrait_key_kind) omp_atk_partition | |
99 | parameter (omp_atk_sync_hint = 1) | |
100 | parameter (omp_atk_alignment = 2) | |
101 | parameter (omp_atk_access = 3) | |
102 | parameter (omp_atk_pool_size = 4) | |
103 | parameter (omp_atk_fallback = 5) | |
104 | parameter (omp_atk_fb_data = 6) | |
105 | parameter (omp_atk_pinned = 7) | |
106 | parameter (omp_atk_partition = 8) | |
107 | integer (omp_alloctrait_val_kind) omp_atv_false | |
108 | integer (omp_alloctrait_val_kind) omp_atv_true | |
109 | integer (omp_alloctrait_val_kind) omp_atv_default | |
110 | integer (omp_alloctrait_val_kind) omp_atv_contended | |
111 | integer (omp_alloctrait_val_kind) omp_atv_uncontended | |
112 | integer (omp_alloctrait_val_kind) omp_atv_serialized | |
113 | integer (omp_alloctrait_val_kind) omp_atv_sequential | |
114 | integer (omp_alloctrait_val_kind) omp_atv_private | |
115 | integer (omp_alloctrait_val_kind) omp_atv_all | |
116 | integer (omp_alloctrait_val_kind) omp_atv_thread | |
117 | integer (omp_alloctrait_val_kind) omp_atv_pteam | |
118 | integer (omp_alloctrait_val_kind) omp_atv_cgroup | |
119 | integer (omp_alloctrait_val_kind) omp_atv_default_mem_fb | |
120 | integer (omp_alloctrait_val_kind) omp_atv_null_fb | |
121 | integer (omp_alloctrait_val_kind) omp_atv_abort_fb | |
122 | integer (omp_alloctrait_val_kind) omp_atv_allocator_fb | |
123 | integer (omp_alloctrait_val_kind) omp_atv_environment | |
124 | integer (omp_alloctrait_val_kind) omp_atv_nearest | |
125 | integer (omp_alloctrait_val_kind) omp_atv_blocked | |
126 | integer (omp_alloctrait_val_kind) omp_atv_interleaved | |
127 | parameter (omp_atv_default = -1) | |
128 | parameter (omp_atv_false = 0) | |
129 | parameter (omp_atv_true = 1) | |
130 | parameter (omp_atv_contended = 3) | |
131 | parameter (omp_atv_uncontended = 4) | |
132 | parameter (omp_atv_serialized = 5) | |
133 | parameter (omp_atv_sequential = omp_atv_serialized) | |
134 | parameter (omp_atv_private = 6) | |
135 | parameter (omp_atv_all = 7) | |
136 | parameter (omp_atv_thread = 8) | |
137 | parameter (omp_atv_pteam = 9) | |
138 | parameter (omp_atv_cgroup = 10) | |
139 | parameter (omp_atv_default_mem_fb = 11) | |
140 | parameter (omp_atv_null_fb = 12) | |
141 | parameter (omp_atv_abort_fb = 13) | |
142 | parameter (omp_atv_allocator_fb = 14) | |
143 | parameter (omp_atv_environment = 15) | |
144 | parameter (omp_atv_nearest = 16) | |
145 | parameter (omp_atv_blocked = 17) | |
146 | parameter (omp_atv_interleaved = 18) | |
147 | integer (omp_allocator_handle_kind) omp_null_allocator | |
148 | integer (omp_allocator_handle_kind) omp_default_mem_alloc | |
149 | integer (omp_allocator_handle_kind) omp_large_cap_mem_alloc | |
150 | integer (omp_allocator_handle_kind) omp_const_mem_alloc | |
151 | integer (omp_allocator_handle_kind) omp_high_bw_mem_alloc | |
152 | integer (omp_allocator_handle_kind) omp_low_lat_mem_alloc | |
153 | integer (omp_allocator_handle_kind) omp_cgroup_mem_alloc | |
154 | integer (omp_allocator_handle_kind) omp_pteam_mem_alloc | |
155 | integer (omp_allocator_handle_kind) omp_thread_mem_alloc | |
156 | parameter (omp_null_allocator = 0) | |
157 | parameter (omp_default_mem_alloc = 1) | |
158 | parameter (omp_large_cap_mem_alloc = 2) | |
159 | parameter (omp_const_mem_alloc = 3) | |
160 | parameter (omp_high_bw_mem_alloc = 4) | |
161 | parameter (omp_low_lat_mem_alloc = 5) | |
162 | parameter (omp_cgroup_mem_alloc = 6) | |
163 | parameter (omp_pteam_mem_alloc = 7) | |
164 | parameter (omp_thread_mem_alloc = 8) | |
165 | integer (omp_memspace_handle_kind) omp_default_mem_space | |
166 | integer (omp_memspace_handle_kind) omp_large_cap_mem_space | |
167 | integer (omp_memspace_handle_kind) omp_const_mem_space | |
168 | integer (omp_memspace_handle_kind) omp_high_bw_mem_space | |
169 | integer (omp_memspace_handle_kind) omp_low_lat_mem_space | |
170 | parameter (omp_default_mem_space = 0) | |
171 | parameter (omp_large_cap_mem_space = 1) | |
172 | parameter (omp_const_mem_space = 2) | |
173 | parameter (omp_high_bw_mem_space = 3) | |
174 | parameter (omp_low_lat_mem_space = 4) | |
175 | ||
176 | type omp_alloctrait | |
177 | integer (omp_alloctrait_key_kind) key | |
178 | integer (omp_alloctrait_val_kind) value | |
179 | end type omp_alloctrait | |
180 | ||
953ff289 | 181 | external omp_init_lock, omp_init_nest_lock |
d9a6bd32 JJ |
182 | external omp_init_lock_with_hint |
183 | external omp_init_nest_lock_with_hint | |
953ff289 DN |
184 | external omp_destroy_lock, omp_destroy_nest_lock |
185 | external omp_set_lock, omp_set_nest_lock | |
186 | external omp_unset_lock, omp_unset_nest_lock | |
187 | external omp_set_dynamic, omp_set_nested | |
188 | external omp_set_num_threads | |
189 | ||
190 | external omp_get_dynamic, omp_get_nested | |
693d54f2 | 191 | logical(4) omp_get_dynamic, omp_get_nested |
953ff289 | 192 | external omp_test_lock, omp_in_parallel |
693d54f2 | 193 | logical(4) omp_test_lock, omp_in_parallel |
953ff289 DN |
194 | |
195 | external omp_get_max_threads, omp_get_num_procs | |
693d54f2 | 196 | integer(4) omp_get_max_threads, omp_get_num_procs |
953ff289 | 197 | external omp_get_num_threads, omp_get_thread_num |
693d54f2 | 198 | integer(4) omp_get_num_threads, omp_get_thread_num |
953ff289 | 199 | external omp_test_nest_lock |
693d54f2 | 200 | integer(4) omp_test_nest_lock |
953ff289 DN |
201 | |
202 | external omp_get_wtick, omp_get_wtime | |
203 | double precision omp_get_wtick, omp_get_wtime | |
a68ab351 JJ |
204 | |
205 | external omp_set_schedule, omp_get_schedule | |
206 | external omp_get_thread_limit, omp_set_max_active_levels | |
207 | external omp_get_max_active_levels, omp_get_level | |
208 | external omp_get_ancestor_thread_num, omp_get_team_size | |
209 | external omp_get_active_level | |
8949b985 | 210 | external omp_get_supported_active_levels |
693d54f2 TB |
211 | integer(4) omp_get_thread_limit, omp_get_max_active_levels |
212 | integer(4) omp_get_level, omp_get_ancestor_thread_num | |
213 | integer(4) omp_get_team_size, omp_get_active_level | |
8949b985 | 214 | integer(4) omp_get_supported_active_levels |
20906c66 JJ |
215 | |
216 | external omp_in_final | |
217 | logical(4) omp_in_final | |
acf0174b | 218 | |
93d90219 TB |
219 | external omp_get_cancellation |
220 | logical(4) omp_get_cancellation | |
acf0174b JJ |
221 | |
222 | external omp_get_proc_bind | |
223 | integer(omp_proc_bind_kind) omp_get_proc_bind | |
224 | ||
d9a6bd32 JJ |
225 | integer(4) omp_get_num_places |
226 | external omp_get_num_places | |
227 | integer(4) omp_get_place_num_procs | |
228 | external omp_get_place_num_procs | |
229 | external omp_get_place_proc_ids | |
230 | integer(4) omp_get_place_num | |
231 | external omp_get_place_num | |
232 | integer(4) omp_get_partition_num_places | |
233 | external omp_get_partition_num_places | |
234 | external omp_get_partition_place_nums | |
235 | ||
acf0174b JJ |
236 | external omp_set_default_device, omp_get_default_device |
237 | external omp_get_num_devices, omp_get_num_teams | |
238 | external omp_get_team_num | |
239 | integer(4) omp_get_default_device, omp_get_num_devices | |
240 | integer(4) omp_get_num_teams, omp_get_team_num | |
241 | ||
242 | external omp_is_initial_device | |
243 | logical(4) omp_is_initial_device | |
d9a6bd32 JJ |
244 | external omp_get_initial_device |
245 | integer(4) omp_get_initial_device | |
246 | ||
247 | external omp_get_max_task_priority | |
248 | integer(4) omp_get_max_task_priority | |
28567c40 | 249 | |
a6d22fb2 KCY |
250 | external omp_fulfill_event |
251 | ||
28567c40 JJ |
252 | external omp_set_affinity_format, omp_get_affinity_format |
253 | external omp_display_affinity, omp_capture_affinity | |
254 | integer(4) omp_get_affinity_format | |
255 | integer(4) omp_capture_affinity | |
256 | ||
257 | external omp_pause_resource, omp_pause_resource_all | |
258 | integer(4) omp_pause_resource | |
259 | integer(4) omp_pause_resource_all | |
fff15bad TB |
260 | |
261 | external omp_init_allocator | |
262 | integer (omp_allocator_handle_kind) omp_init_allocator | |
263 | external omp_destroy_allocator | |
264 | external omp_set_default_allocator | |
265 | external omp_get_default_allocator | |
266 | integer (omp_allocator_handle_kind) omp_get_default_allocator |