]>
Commit | Line | Data |
---|---|---|
a5544970 | 1 | ! Copyright (C) 2005-2019 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) |
28567c40 JJ |
62 | integer omp_pause_resource_kind |
63 | parameter (omp_pause_resource_kind = 4) | |
64 | integer (omp_pause_resource_kind) omp_pause_soft | |
65 | integer (omp_pause_resource_kind) omp_pause_hard | |
66 | parameter (omp_pause_soft = 1) | |
67 | parameter (omp_pause_hard = 2) | |
953ff289 DN |
68 | |
69 | external omp_init_lock, omp_init_nest_lock | |
d9a6bd32 JJ |
70 | external omp_init_lock_with_hint |
71 | external omp_init_nest_lock_with_hint | |
953ff289 DN |
72 | external omp_destroy_lock, omp_destroy_nest_lock |
73 | external omp_set_lock, omp_set_nest_lock | |
74 | external omp_unset_lock, omp_unset_nest_lock | |
75 | external omp_set_dynamic, omp_set_nested | |
76 | external omp_set_num_threads | |
77 | ||
78 | external omp_get_dynamic, omp_get_nested | |
693d54f2 | 79 | logical(4) omp_get_dynamic, omp_get_nested |
953ff289 | 80 | external omp_test_lock, omp_in_parallel |
693d54f2 | 81 | logical(4) omp_test_lock, omp_in_parallel |
953ff289 DN |
82 | |
83 | external omp_get_max_threads, omp_get_num_procs | |
693d54f2 | 84 | integer(4) omp_get_max_threads, omp_get_num_procs |
953ff289 | 85 | external omp_get_num_threads, omp_get_thread_num |
693d54f2 | 86 | integer(4) omp_get_num_threads, omp_get_thread_num |
953ff289 | 87 | external omp_test_nest_lock |
693d54f2 | 88 | integer(4) omp_test_nest_lock |
953ff289 DN |
89 | |
90 | external omp_get_wtick, omp_get_wtime | |
91 | double precision omp_get_wtick, omp_get_wtime | |
a68ab351 JJ |
92 | |
93 | external omp_set_schedule, omp_get_schedule | |
94 | external omp_get_thread_limit, omp_set_max_active_levels | |
95 | external omp_get_max_active_levels, omp_get_level | |
96 | external omp_get_ancestor_thread_num, omp_get_team_size | |
97 | external omp_get_active_level | |
693d54f2 TB |
98 | integer(4) omp_get_thread_limit, omp_get_max_active_levels |
99 | integer(4) omp_get_level, omp_get_ancestor_thread_num | |
100 | integer(4) omp_get_team_size, omp_get_active_level | |
20906c66 JJ |
101 | |
102 | external omp_in_final | |
103 | logical(4) omp_in_final | |
acf0174b JJ |
104 | |
105 | external omp_get_cancelllation | |
106 | logical(4) omp_get_cancelllation | |
107 | ||
108 | external omp_get_proc_bind | |
109 | integer(omp_proc_bind_kind) omp_get_proc_bind | |
110 | ||
d9a6bd32 JJ |
111 | integer(4) omp_get_num_places |
112 | external omp_get_num_places | |
113 | integer(4) omp_get_place_num_procs | |
114 | external omp_get_place_num_procs | |
115 | external omp_get_place_proc_ids | |
116 | integer(4) omp_get_place_num | |
117 | external omp_get_place_num | |
118 | integer(4) omp_get_partition_num_places | |
119 | external omp_get_partition_num_places | |
120 | external omp_get_partition_place_nums | |
121 | ||
acf0174b JJ |
122 | external omp_set_default_device, omp_get_default_device |
123 | external omp_get_num_devices, omp_get_num_teams | |
124 | external omp_get_team_num | |
125 | integer(4) omp_get_default_device, omp_get_num_devices | |
126 | integer(4) omp_get_num_teams, omp_get_team_num | |
127 | ||
128 | external omp_is_initial_device | |
129 | logical(4) omp_is_initial_device | |
d9a6bd32 JJ |
130 | external omp_get_initial_device |
131 | integer(4) omp_get_initial_device | |
132 | ||
133 | external omp_get_max_task_priority | |
134 | integer(4) omp_get_max_task_priority | |
28567c40 JJ |
135 | |
136 | external omp_set_affinity_format, omp_get_affinity_format | |
137 | external omp_display_affinity, omp_capture_affinity | |
138 | integer(4) omp_get_affinity_format | |
139 | integer(4) omp_capture_affinity | |
140 | ||
141 | external omp_pause_resource, omp_pause_resource_all | |
142 | integer(4) omp_pause_resource | |
143 | integer(4) omp_pause_resource_all |