]>
Commit | Line | Data |
---|---|---|
d353bf18 | 1 | ! Copyright (C) 2005-2015 Free Software Foundation, Inc. |
1e8e9920 | 2 | ! Contributed by Jakub Jelinek <jakub@redhat.com>. |
3 | ||
c35c9a62 | 4 | ! This file is part of the GNU Offloading and Multi Processing Library |
5 | ! (libgomp). | |
1e8e9920 | 6 | |
7 | ! Libgomp is free software; you can redistribute it and/or modify it | |
6bc9506f | 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. | |
1e8e9920 | 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 | |
6bc9506f | 14 | ! FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
1e8e9920 | 15 | ! more details. |
16 | ||
6bc9506f | 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. | |
1e8e9920 | 20 | |
6bc9506f | 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/>. | |
1e8e9920 | 25 | |
26 | integer omp_lock_kind, omp_nest_lock_kind, openmp_version | |
107c3bbf | 27 | parameter (omp_lock_kind = @OMP_LOCK_KIND@) |
28 | parameter (omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@) | |
2169f33b | 29 | integer omp_sched_kind |
fd6481cf | 30 | parameter (omp_sched_kind = 4) |
2169f33b | 31 | integer (omp_sched_kind) omp_sched_static, omp_sched_dynamic |
32 | integer (omp_sched_kind) omp_sched_guided, omp_sched_auto | |
fd6481cf | 33 | parameter (omp_sched_static = 1) |
34 | parameter (omp_sched_dynamic = 2) | |
35 | parameter (omp_sched_guided = 3) | |
36 | parameter (omp_sched_auto = 4) | |
bc7bff74 | 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) | |
43895be5 | 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) | |
691447ab | 61 | parameter (openmp_version = 201307) |
1e8e9920 | 62 | |
63 | external omp_init_lock, omp_init_nest_lock | |
43895be5 | 64 | external omp_init_lock_with_hint |
65 | external omp_init_nest_lock_with_hint | |
1e8e9920 | 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 | |
0f156b47 | 73 | logical(4) omp_get_dynamic, omp_get_nested |
1e8e9920 | 74 | external omp_test_lock, omp_in_parallel |
0f156b47 | 75 | logical(4) omp_test_lock, omp_in_parallel |
1e8e9920 | 76 | |
77 | external omp_get_max_threads, omp_get_num_procs | |
0f156b47 | 78 | integer(4) omp_get_max_threads, omp_get_num_procs |
1e8e9920 | 79 | external omp_get_num_threads, omp_get_thread_num |
0f156b47 | 80 | integer(4) omp_get_num_threads, omp_get_thread_num |
1e8e9920 | 81 | external omp_test_nest_lock |
0f156b47 | 82 | integer(4) omp_test_nest_lock |
1e8e9920 | 83 | |
84 | external omp_get_wtick, omp_get_wtime | |
85 | double precision omp_get_wtick, omp_get_wtime | |
fd6481cf | 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 | |
0f156b47 | 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 | |
2169f33b | 95 | |
96 | external omp_in_final | |
97 | logical(4) omp_in_final | |
bc7bff74 | 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 | ||
43895be5 | 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 | ||
bc7bff74 | 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 | |
43895be5 | 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 |