]>
Commit | Line | Data |
---|---|---|
85ec4feb | 1 | ! Copyright (C) 2005-2018 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@) | |
20906c66 | 29 | integer omp_sched_kind |
a68ab351 | 30 | parameter (omp_sched_kind = 4) |
20906c66 JJ |
31 | integer (omp_sched_kind) omp_sched_static, omp_sched_dynamic |
32 | integer (omp_sched_kind) omp_sched_guided, omp_sched_auto | |
a68ab351 JJ |
33 | parameter (omp_sched_static = 1) |
34 | parameter (omp_sched_dynamic = 2) | |
35 | parameter (omp_sched_guided = 3) | |
36 | parameter (omp_sched_auto = 4) | |
acf0174b JJ |
37 | integer omp_proc_bind_kind |
38 | parameter (omp_proc_bind_kind = 4) | |
39 | integer (omp_proc_bind_kind) omp_proc_bind_false | |
40 | integer (omp_proc_bind_kind) omp_proc_bind_true | |
41 | integer (omp_proc_bind_kind) omp_proc_bind_master | |
42 | integer (omp_proc_bind_kind) omp_proc_bind_close | |
43 | integer (omp_proc_bind_kind) omp_proc_bind_spread | |
44 | parameter (omp_proc_bind_false = 0) | |
45 | parameter (omp_proc_bind_true = 1) | |
46 | parameter (omp_proc_bind_master = 2) | |
47 | parameter (omp_proc_bind_close = 3) | |
48 | parameter (omp_proc_bind_spread = 4) | |
d9a6bd32 JJ |
49 | integer omp_lock_hint_kind |
50 | parameter (omp_lock_hint_kind = 4) | |
51 | integer (omp_lock_hint_kind) omp_lock_hint_none | |
52 | integer (omp_lock_hint_kind) omp_lock_hint_uncontended | |
53 | integer (omp_lock_hint_kind) omp_lock_hint_contended | |
54 | integer (omp_lock_hint_kind) omp_lock_hint_nonspeculative | |
55 | integer (omp_lock_hint_kind) omp_lock_hint_speculative | |
56 | parameter (omp_lock_hint_none = 0) | |
57 | parameter (omp_lock_hint_uncontended = 1) | |
58 | parameter (omp_lock_hint_contended = 2) | |
59 | parameter (omp_lock_hint_nonspeculative = 4) | |
60 | parameter (omp_lock_hint_speculative = 8) | |
8ebd1b31 | 61 | parameter (openmp_version = 201511) |
953ff289 DN |
62 | |
63 | external omp_init_lock, omp_init_nest_lock | |
d9a6bd32 JJ |
64 | external omp_init_lock_with_hint |
65 | external omp_init_nest_lock_with_hint | |
953ff289 DN |
66 | external omp_destroy_lock, omp_destroy_nest_lock |
67 | external omp_set_lock, omp_set_nest_lock | |
68 | external omp_unset_lock, omp_unset_nest_lock | |
69 | external omp_set_dynamic, omp_set_nested | |
70 | external omp_set_num_threads | |
71 | ||
72 | external omp_get_dynamic, omp_get_nested | |
693d54f2 | 73 | logical(4) omp_get_dynamic, omp_get_nested |
953ff289 | 74 | external omp_test_lock, omp_in_parallel |
693d54f2 | 75 | logical(4) omp_test_lock, omp_in_parallel |
953ff289 DN |
76 | |
77 | external omp_get_max_threads, omp_get_num_procs | |
693d54f2 | 78 | integer(4) omp_get_max_threads, omp_get_num_procs |
953ff289 | 79 | external omp_get_num_threads, omp_get_thread_num |
693d54f2 | 80 | integer(4) omp_get_num_threads, omp_get_thread_num |
953ff289 | 81 | external omp_test_nest_lock |
693d54f2 | 82 | integer(4) omp_test_nest_lock |
953ff289 DN |
83 | |
84 | external omp_get_wtick, omp_get_wtime | |
85 | double precision omp_get_wtick, omp_get_wtime | |
a68ab351 JJ |
86 | |
87 | external omp_set_schedule, omp_get_schedule | |
88 | external omp_get_thread_limit, omp_set_max_active_levels | |
89 | external omp_get_max_active_levels, omp_get_level | |
90 | external omp_get_ancestor_thread_num, omp_get_team_size | |
91 | external omp_get_active_level | |
693d54f2 TB |
92 | integer(4) omp_get_thread_limit, omp_get_max_active_levels |
93 | integer(4) omp_get_level, omp_get_ancestor_thread_num | |
94 | integer(4) omp_get_team_size, omp_get_active_level | |
20906c66 JJ |
95 | |
96 | external omp_in_final | |
97 | logical(4) omp_in_final | |
acf0174b JJ |
98 | |
99 | external omp_get_cancelllation | |
100 | logical(4) omp_get_cancelllation | |
101 | ||
102 | external omp_get_proc_bind | |
103 | integer(omp_proc_bind_kind) omp_get_proc_bind | |
104 | ||
d9a6bd32 JJ |
105 | integer(4) omp_get_num_places |
106 | external omp_get_num_places | |
107 | integer(4) omp_get_place_num_procs | |
108 | external omp_get_place_num_procs | |
109 | external omp_get_place_proc_ids | |
110 | integer(4) omp_get_place_num | |
111 | external omp_get_place_num | |
112 | integer(4) omp_get_partition_num_places | |
113 | external omp_get_partition_num_places | |
114 | external omp_get_partition_place_nums | |
115 | ||
acf0174b JJ |
116 | external omp_set_default_device, omp_get_default_device |
117 | external omp_get_num_devices, omp_get_num_teams | |
118 | external omp_get_team_num | |
119 | integer(4) omp_get_default_device, omp_get_num_devices | |
120 | integer(4) omp_get_num_teams, omp_get_team_num | |
121 | ||
122 | external omp_is_initial_device | |
123 | logical(4) omp_is_initial_device | |
d9a6bd32 JJ |
124 | external omp_get_initial_device |
125 | integer(4) omp_get_initial_device | |
126 | ||
127 | external omp_get_max_task_priority | |
128 | integer(4) omp_get_max_task_priority |