1 /* Copyright (C) 2005-2015 Free Software Foundation, Inc.
2 Contributed by Jakub Jelinek <jakub@redhat.com>.
4 This file is part of the GNU OpenMP Library (libgomp).
6 Libgomp is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3, or (at your option)
11 Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
13 FOR A PARTICULAR PURPOSE. See the GNU General Public License for
16 Under Section 7 of GPL version 3, you are granted additional
17 permissions described in the GCC Runtime Library Exception, version
18 3.1, as published by the Free Software Foundation.
20 You should have received a copy of the GNU General Public License and
21 a copy of the GCC Runtime Library Exception along with this program;
22 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
23 <http://www.gnu.org/licenses/>. */
25 /* This file contains Fortran wrapper routines. */
28 #include "libgomp_f.h"
32 #ifdef HAVE_ATTRIBUTE_ALIAS
33 /* Use internal aliases if possible. */
34 # ifndef LIBGOMP_GNU_SYMBOL_VERSIONING
35 ialias_redirect (omp_init_lock
)
36 ialias_redirect (omp_init_nest_lock
)
37 ialias_redirect (omp_destroy_lock
)
38 ialias_redirect (omp_destroy_nest_lock
)
39 ialias_redirect (omp_set_lock
)
40 ialias_redirect (omp_set_nest_lock
)
41 ialias_redirect (omp_unset_lock
)
42 ialias_redirect (omp_unset_nest_lock
)
43 ialias_redirect (omp_test_lock
)
44 ialias_redirect (omp_test_nest_lock
)
46 ialias_redirect (omp_set_dynamic
)
47 ialias_redirect (omp_set_nested
)
48 ialias_redirect (omp_set_num_threads
)
49 ialias_redirect (omp_get_dynamic
)
50 ialias_redirect (omp_get_nested
)
51 ialias_redirect (omp_in_parallel
)
52 ialias_redirect (omp_get_max_threads
)
53 ialias_redirect (omp_get_num_procs
)
54 ialias_redirect (omp_get_num_threads
)
55 ialias_redirect (omp_get_thread_num
)
56 ialias_redirect (omp_get_wtick
)
57 ialias_redirect (omp_get_wtime
)
58 ialias_redirect (omp_set_schedule
)
59 ialias_redirect (omp_get_schedule
)
60 ialias_redirect (omp_get_thread_limit
)
61 ialias_redirect (omp_set_max_active_levels
)
62 ialias_redirect (omp_get_max_active_levels
)
63 ialias_redirect (omp_get_level
)
64 ialias_redirect (omp_get_ancestor_thread_num
)
65 ialias_redirect (omp_get_team_size
)
66 ialias_redirect (omp_get_active_level
)
67 ialias_redirect (omp_in_final
)
68 ialias_redirect (omp_get_cancellation
)
69 ialias_redirect (omp_get_proc_bind
)
70 ialias_redirect (omp_set_default_device
)
71 ialias_redirect (omp_get_default_device
)
72 ialias_redirect (omp_get_num_devices
)
73 ialias_redirect (omp_get_num_teams
)
74 ialias_redirect (omp_get_team_num
)
75 ialias_redirect (omp_is_initial_device
)
78 #ifndef LIBGOMP_GNU_SYMBOL_VERSIONING
79 # define gomp_init_lock__30 omp_init_lock_
80 # define gomp_destroy_lock__30 omp_destroy_lock_
81 # define gomp_set_lock__30 omp_set_lock_
82 # define gomp_unset_lock__30 omp_unset_lock_
83 # define gomp_test_lock__30 omp_test_lock_
84 # define gomp_init_nest_lock__30 omp_init_nest_lock_
85 # define gomp_destroy_nest_lock__30 omp_destroy_nest_lock_
86 # define gomp_set_nest_lock__30 omp_set_nest_lock_
87 # define gomp_unset_nest_lock__30 omp_unset_nest_lock_
88 # define gomp_test_nest_lock__30 omp_test_nest_lock_
92 gomp_init_lock__30 (omp_lock_arg_t lock
)
94 #ifndef OMP_LOCK_DIRECT
95 omp_lock_arg (lock
) = malloc (sizeof (omp_lock_t
));
97 gomp_init_lock_30 (omp_lock_arg (lock
));
101 gomp_init_nest_lock__30 (omp_nest_lock_arg_t lock
)
103 #ifndef OMP_NEST_LOCK_DIRECT
104 omp_nest_lock_arg (lock
) = malloc (sizeof (omp_nest_lock_t
));
106 gomp_init_nest_lock_30 (omp_nest_lock_arg (lock
));
110 gomp_destroy_lock__30 (omp_lock_arg_t lock
)
112 gomp_destroy_lock_30 (omp_lock_arg (lock
));
113 #ifndef OMP_LOCK_DIRECT
114 free (omp_lock_arg (lock
));
115 omp_lock_arg (lock
) = NULL
;
120 gomp_destroy_nest_lock__30 (omp_nest_lock_arg_t lock
)
122 gomp_destroy_nest_lock_30 (omp_nest_lock_arg (lock
));
123 #ifndef OMP_NEST_LOCK_DIRECT
124 free (omp_nest_lock_arg (lock
));
125 omp_nest_lock_arg (lock
) = NULL
;
130 gomp_set_lock__30 (omp_lock_arg_t lock
)
132 gomp_set_lock_30 (omp_lock_arg (lock
));
136 gomp_set_nest_lock__30 (omp_nest_lock_arg_t lock
)
138 gomp_set_nest_lock_30 (omp_nest_lock_arg (lock
));
142 gomp_unset_lock__30 (omp_lock_arg_t lock
)
144 gomp_unset_lock_30 (omp_lock_arg (lock
));
148 gomp_unset_nest_lock__30 (omp_nest_lock_arg_t lock
)
150 gomp_unset_nest_lock_30 (omp_nest_lock_arg (lock
));
154 gomp_test_lock__30 (omp_lock_arg_t lock
)
156 return gomp_test_lock_30 (omp_lock_arg (lock
));
160 gomp_test_nest_lock__30 (omp_nest_lock_arg_t lock
)
162 return gomp_test_nest_lock_30 (omp_nest_lock_arg (lock
));
165 #ifdef LIBGOMP_GNU_SYMBOL_VERSIONING
167 gomp_init_lock__25 (omp_lock_25_arg_t lock
)
169 #ifndef OMP_LOCK_25_DIRECT
170 omp_lock_25_arg (lock
) = malloc (sizeof (omp_lock_25_t
));
172 gomp_init_lock_25 (omp_lock_25_arg (lock
));
176 gomp_init_nest_lock__25 (omp_nest_lock_25_arg_t lock
)
178 #ifndef OMP_NEST_LOCK_25_DIRECT
179 omp_nest_lock_25_arg (lock
) = malloc (sizeof (omp_nest_lock_25_t
));
181 gomp_init_nest_lock_25 (omp_nest_lock_25_arg (lock
));
185 gomp_destroy_lock__25 (omp_lock_25_arg_t lock
)
187 gomp_destroy_lock_25 (omp_lock_25_arg (lock
));
188 #ifndef OMP_LOCK_25_DIRECT
189 free (omp_lock_25_arg (lock
));
190 omp_lock_25_arg (lock
) = NULL
;
195 gomp_destroy_nest_lock__25 (omp_nest_lock_25_arg_t lock
)
197 gomp_destroy_nest_lock_25 (omp_nest_lock_25_arg (lock
));
198 #ifndef OMP_NEST_LOCK_25_DIRECT
199 free (omp_nest_lock_25_arg (lock
));
200 omp_nest_lock_25_arg (lock
) = NULL
;
205 gomp_set_lock__25 (omp_lock_25_arg_t lock
)
207 gomp_set_lock_25 (omp_lock_25_arg (lock
));
211 gomp_set_nest_lock__25 (omp_nest_lock_25_arg_t lock
)
213 gomp_set_nest_lock_25 (omp_nest_lock_25_arg (lock
));
217 gomp_unset_lock__25 (omp_lock_25_arg_t lock
)
219 gomp_unset_lock_25 (omp_lock_25_arg (lock
));
223 gomp_unset_nest_lock__25 (omp_nest_lock_25_arg_t lock
)
225 gomp_unset_nest_lock_25 (omp_nest_lock_25_arg (lock
));
229 gomp_test_lock__25 (omp_lock_25_arg_t lock
)
231 return gomp_test_lock_25 (omp_lock_25_arg (lock
));
235 gomp_test_nest_lock__25 (omp_nest_lock_25_arg_t lock
)
237 return gomp_test_nest_lock_25 (omp_nest_lock_25_arg (lock
));
240 omp_lock_symver (omp_init_lock_
)
241 omp_lock_symver (omp_destroy_lock_
)
242 omp_lock_symver (omp_set_lock_
)
243 omp_lock_symver (omp_unset_lock_
)
244 omp_lock_symver (omp_test_lock_
)
245 omp_lock_symver (omp_init_nest_lock_
)
246 omp_lock_symver (omp_destroy_nest_lock_
)
247 omp_lock_symver (omp_set_nest_lock_
)
248 omp_lock_symver (omp_unset_nest_lock_
)
249 omp_lock_symver (omp_test_nest_lock_
)
252 #define TO_INT(x) ((x) > INT_MIN ? (x) < INT_MAX ? (x) : INT_MAX : INT_MIN)
255 omp_set_dynamic_ (const int32_t *set
)
257 omp_set_dynamic (*set
);
261 omp_set_dynamic_8_ (const int64_t *set
)
263 omp_set_dynamic (!!*set
);
267 omp_set_nested_ (const int32_t *set
)
269 omp_set_nested (*set
);
273 omp_set_nested_8_ (const int64_t *set
)
275 omp_set_nested (!!*set
);
279 omp_set_num_threads_ (const int32_t *set
)
281 omp_set_num_threads (*set
);
285 omp_set_num_threads_8_ (const int64_t *set
)
287 omp_set_num_threads (TO_INT (*set
));
291 omp_get_dynamic_ (void)
293 return omp_get_dynamic ();
297 omp_get_nested_ (void)
299 return omp_get_nested ();
303 omp_in_parallel_ (void)
305 return omp_in_parallel ();
309 omp_get_max_threads_ (void)
311 return omp_get_max_threads ();
315 omp_get_num_procs_ (void)
317 return omp_get_num_procs ();
321 omp_get_num_threads_ (void)
323 return omp_get_num_threads ();
327 omp_get_thread_num_ (void)
329 return omp_get_thread_num ();
333 omp_get_wtick_ (void)
335 return omp_get_wtick ();
339 omp_get_wtime_ (void)
341 return omp_get_wtime ();
345 omp_set_schedule_ (const int32_t *kind
, const int32_t *modifier
)
347 omp_set_schedule (*kind
, *modifier
);
351 omp_set_schedule_8_ (const int32_t *kind
, const int64_t *modifier
)
353 omp_set_schedule (*kind
, TO_INT (*modifier
));
357 omp_get_schedule_ (int32_t *kind
, int32_t *modifier
)
361 omp_get_schedule (&k
, &m
);
367 omp_get_schedule_8_ (int32_t *kind
, int64_t *modifier
)
371 omp_get_schedule (&k
, &m
);
377 omp_get_thread_limit_ (void)
379 return omp_get_thread_limit ();
383 omp_set_max_active_levels_ (const int32_t *levels
)
385 omp_set_max_active_levels (*levels
);
389 omp_set_max_active_levels_8_ (const int64_t *levels
)
391 omp_set_max_active_levels (TO_INT (*levels
));
395 omp_get_max_active_levels_ (void)
397 return omp_get_max_active_levels ();
401 omp_get_level_ (void)
403 return omp_get_level ();
407 omp_get_ancestor_thread_num_ (const int32_t *level
)
409 return omp_get_ancestor_thread_num (*level
);
413 omp_get_ancestor_thread_num_8_ (const int64_t *level
)
415 return omp_get_ancestor_thread_num (TO_INT (*level
));
419 omp_get_team_size_ (const int32_t *level
)
421 return omp_get_team_size (*level
);
425 omp_get_team_size_8_ (const int64_t *level
)
427 return omp_get_team_size (TO_INT (*level
));
431 omp_get_active_level_ (void)
433 return omp_get_active_level ();
439 return omp_in_final ();
443 omp_get_cancellation_ (void)
445 return omp_get_cancellation ();
449 omp_get_proc_bind_ (void)
451 return omp_get_proc_bind ();
455 omp_set_default_device_ (const int32_t *device_num
)
457 return omp_set_default_device (*device_num
);
461 omp_set_default_device_8_ (const int64_t *device_num
)
463 return omp_set_default_device (TO_INT (*device_num
));
467 omp_get_default_device_ (void)
469 return omp_get_default_device ();
473 omp_get_num_devices_ (void)
475 return omp_get_num_devices ();
479 omp_get_num_teams_ (void)
481 return omp_get_num_teams ();
485 omp_get_team_num_ (void)
487 return omp_get_team_num ();
491 omp_is_initial_device_ (void)
493 return omp_is_initial_device ();