1 ! Copyright (C
) 2005-2020 Free Software Foundation
, Inc
.
2 ! Contributed by Jakub Jelinek
<jakub@redhat
.com
>.
4 ! This file is part of the GNU Offloading
and Multi Processing Library
7 ! Libgomp is free software
; you can redistribute it
and/or modify it
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
)
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
14 ! FOR A PARTICULAR PURPOSE
. See the GNU General Public License
for
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
.
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/>.
26 integer omp_lock_kind
, omp_nest_lock_kind
, openmp_version
27 parameter (omp_lock_kind
= @OMP_LOCK_KIND@
)
28 parameter (omp_nest_lock_kind
= @OMP_NEST_LOCK_KIND@
)
29 integer omp_sched_kind
30 parameter (omp_sched_kind
= 4)
31 integer (omp_sched_kind
) omp_sched_static
, omp_sched_dynamic
32 integer (omp_sched_kind
) omp_sched_guided
, omp_sched_auto
33 parameter (omp_sched_static
= 1)
34 parameter (omp_sched_dynamic
= 2)
35 parameter (omp_sched_guided
= 3)
36 parameter (omp_sched_auto
= 4)
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)
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)
61 parameter (openmp_version
= 201511)
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)
69 external omp_init_lock
, omp_init_nest_lock
70 external omp_init_lock_with_hint
71 external omp_init_nest_lock_with_hint
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
78 external omp_get_dynamic
, omp_get_nested
79 logical(4) omp_get_dynamic
, omp_get_nested
80 external omp_test_lock
, omp_in_parallel
81 logical(4) omp_test_lock
, omp_in_parallel
83 external omp_get_max_threads
, omp_get_num_procs
84 integer(4) omp_get_max_threads
, omp_get_num_procs
85 external omp_get_num_threads
, omp_get_thread_num
86 integer(4) omp_get_num_threads
, omp_get_thread_num
87 external omp_test_nest_lock
88 integer(4) omp_test_nest_lock
90 external omp_get_wtick
, omp_get_wtime
91 double precision omp_get_wtick
, omp_get_wtime
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
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
102 external omp_in_final
103 logical(4) omp_in_final
105 external omp_get_cancellation
106 logical(4) omp_get_cancellation
108 external omp_get_proc_bind
109 integer(omp_proc_bind_kind
) omp_get_proc_bind
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
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
128 external omp_is_initial_device
129 logical(4) omp_is_initial_device
130 external omp_get_initial_device
131 integer(4) omp_get_initial_device
133 external omp_get_max_task_priority
134 integer(4) omp_get_max_task_priority
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
141 external omp_pause_resource
, omp_pause_resource_all
142 integer(4) omp_pause_resource
143 integer(4) omp_pause_resource_all