1 ! Copyright (C
) 2005-2014 Free Software Foundation
, Inc
.
2 ! Contributed by Jakub Jelinek
<jakub@redhat
.com
>.
4 ! This file is part of the GNU OpenMP
Library (libgomp
).
6 ! Libgomp is free software
; you can redistribute it
and/or modify it
7 ! under the terms of the GNU General Public License as published by
8 ! the Free Software Foundation
; either version
3, or (at your option
)
11 ! Libgomp is distributed in the hope that it will be useful
, but WITHOUT ANY
12 ! WARRANTY
; without even the implied warranty of MERCHANTABILITY
or FITNESS
13 ! FOR A PARTICULAR PURPOSE
. See the GNU General Public License
for
16 ! Under Section
7 of GPL version
3, you are granted additional
17 ! permissions described in the GCC Runtime Library Exception
, version
18 ! 3.1, as published by the Free Software Foundation
.
20 ! You should have received a copy of the GNU General Public License
and
21 ! a copy of the GCC Runtime Library Exception along with
this program
;
22 ! see the files COPYING3
and COPYING
.RUNTIME respectively
. If
not, see
23 ! <http
://www.gnu.org/licenses/>.
25 integer omp_lock_kind
, omp_nest_lock_kind
, openmp_version
26 parameter (omp_lock_kind
= @OMP_LOCK_KIND@
)
27 parameter (omp_nest_lock_kind
= @OMP_NEST_LOCK_KIND@
)
28 integer omp_sched_kind
29 parameter (omp_sched_kind
= 4)
30 integer (omp_sched_kind
) omp_sched_static
, omp_sched_dynamic
31 integer (omp_sched_kind
) omp_sched_guided
, omp_sched_auto
32 parameter (omp_sched_static
= 1)
33 parameter (omp_sched_dynamic
= 2)
34 parameter (omp_sched_guided
= 3)
35 parameter (omp_sched_auto
= 4)
36 integer omp_proc_bind_kind
37 parameter (omp_proc_bind_kind
= 4)
38 integer (omp_proc_bind_kind
) omp_proc_bind_false
39 integer (omp_proc_bind_kind
) omp_proc_bind_true
40 integer (omp_proc_bind_kind
) omp_proc_bind_master
41 integer (omp_proc_bind_kind
) omp_proc_bind_close
42 integer (omp_proc_bind_kind
) omp_proc_bind_spread
43 parameter (omp_proc_bind_false
= 0)
44 parameter (omp_proc_bind_true
= 1)
45 parameter (omp_proc_bind_master
= 2)
46 parameter (omp_proc_bind_close
= 3)
47 parameter (omp_proc_bind_spread
= 4)
48 parameter (openmp_version
= 201107)
50 external omp_init_lock
, omp_init_nest_lock
51 external omp_destroy_lock
, omp_destroy_nest_lock
52 external omp_set_lock
, omp_set_nest_lock
53 external omp_unset_lock
, omp_unset_nest_lock
54 external omp_set_dynamic
, omp_set_nested
55 external omp_set_num_threads
57 external omp_get_dynamic
, omp_get_nested
58 logical(4) omp_get_dynamic
, omp_get_nested
59 external omp_test_lock
, omp_in_parallel
60 logical(4) omp_test_lock
, omp_in_parallel
62 external omp_get_max_threads
, omp_get_num_procs
63 integer(4) omp_get_max_threads
, omp_get_num_procs
64 external omp_get_num_threads
, omp_get_thread_num
65 integer(4) omp_get_num_threads
, omp_get_thread_num
66 external omp_test_nest_lock
67 integer(4) omp_test_nest_lock
69 external omp_get_wtick
, omp_get_wtime
70 double precision omp_get_wtick
, omp_get_wtime
72 external omp_set_schedule
, omp_get_schedule
73 external omp_get_thread_limit
, omp_set_max_active_levels
74 external omp_get_max_active_levels
, omp_get_level
75 external omp_get_ancestor_thread_num
, omp_get_team_size
76 external omp_get_active_level
77 integer(4) omp_get_thread_limit
, omp_get_max_active_levels
78 integer(4) omp_get_level
, omp_get_ancestor_thread_num
79 integer(4) omp_get_team_size
, omp_get_active_level
82 logical(4) omp_in_final
84 external omp_get_cancelllation
85 logical(4) omp_get_cancelllation
87 external omp_get_proc_bind
88 integer(omp_proc_bind_kind
) omp_get_proc_bind
90 external omp_set_default_device
, omp_get_default_device
91 external omp_get_num_devices
, omp_get_num_teams
92 external omp_get_team_num
93 integer(4) omp_get_default_device
, omp_get_num_devices
94 integer(4) omp_get_num_teams
, omp_get_team_num
96 external omp_is_initial_device
97 logical(4) omp_is_initial_device