1 ! Copyright (C
) 2005-2013 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 parameter (openmp_version
= 201107)
38 external omp_init_lock
, omp_init_nest_lock
39 external omp_destroy_lock
, omp_destroy_nest_lock
40 external omp_set_lock
, omp_set_nest_lock
41 external omp_unset_lock
, omp_unset_nest_lock
42 external omp_set_dynamic
, omp_set_nested
43 external omp_set_num_threads
45 external omp_get_dynamic
, omp_get_nested
46 logical(4) omp_get_dynamic
, omp_get_nested
47 external omp_test_lock
, omp_in_parallel
48 logical(4) omp_test_lock
, omp_in_parallel
50 external omp_get_max_threads
, omp_get_num_procs
51 integer(4) omp_get_max_threads
, omp_get_num_procs
52 external omp_get_num_threads
, omp_get_thread_num
53 integer(4) omp_get_num_threads
, omp_get_thread_num
54 external omp_test_nest_lock
55 integer(4) omp_test_nest_lock
57 external omp_get_wtick
, omp_get_wtime
58 double precision omp_get_wtick
, omp_get_wtime
60 external omp_set_schedule
, omp_get_schedule
61 external omp_get_thread_limit
, omp_set_max_active_levels
62 external omp_get_max_active_levels
, omp_get_level
63 external omp_get_ancestor_thread_num
, omp_get_team_size
64 external omp_get_active_level
65 integer(4) omp_get_thread_limit
, omp_get_max_active_levels
66 integer(4) omp_get_level
, omp_get_ancestor_thread_num
67 integer(4) omp_get_team_size
, omp_get_active_level
70 logical(4) omp_in_final