1 ! Copyright (C
) 2005-2018 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)
63 external omp_init_lock
, omp_init_nest_lock
64 external omp_init_lock_with_hint
65 external omp_init_nest_lock_with_hint
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
72 external omp_get_dynamic
, omp_get_nested
73 logical(4) omp_get_dynamic
, omp_get_nested
74 external omp_test_lock
, omp_in_parallel
75 logical(4) omp_test_lock
, omp_in_parallel
77 external omp_get_max_threads
, omp_get_num_procs
78 integer(4) omp_get_max_threads
, omp_get_num_procs
79 external omp_get_num_threads
, omp_get_thread_num
80 integer(4) omp_get_num_threads
, omp_get_thread_num
81 external omp_test_nest_lock
82 integer(4) omp_test_nest_lock
84 external omp_get_wtick
, omp_get_wtime
85 double precision omp_get_wtick
, omp_get_wtime
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
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
97 logical(4) omp_in_final
99 external omp_get_cancelllation
100 logical(4) omp_get_cancelllation
102 external omp_get_proc_bind
103 integer(omp_proc_bind_kind
) omp_get_proc_bind
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
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
122 external omp_is_initial_device
123 logical(4) omp_is_initial_device
124 external omp_get_initial_device
125 integer(4) omp_get_initial_device
127 external omp_get_max_task_priority
128 integer(4) omp_get_max_task_priority