1 ! Copyright (C
) 2005, 2007, 2008, 2009 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 integer omp_sched_kind
, omp_sched_static
, omp_sched_dynamic
27 integer omp_sched_guided
, omp_sched_auto
28 parameter (omp_lock_kind
= @OMP_LOCK_KIND@
)
29 parameter (omp_nest_lock_kind
= @OMP_NEST_LOCK_KIND@
)
30 parameter (omp_sched_kind
= 4)
31 parameter (omp_sched_static
= 1)
32 parameter (omp_sched_dynamic
= 2)
33 parameter (omp_sched_guided
= 3)
34 parameter (omp_sched_auto
= 4)
35 parameter (openmp_version
= 200805)
37 external omp_init_lock
, omp_init_nest_lock
38 external omp_destroy_lock
, omp_destroy_nest_lock
39 external omp_set_lock
, omp_set_nest_lock
40 external omp_unset_lock
, omp_unset_nest_lock
41 external omp_set_dynamic
, omp_set_nested
42 external omp_set_num_threads
44 external omp_get_dynamic
, omp_get_nested
45 logical(4) omp_get_dynamic
, omp_get_nested
46 external omp_test_lock
, omp_in_parallel
47 logical(4) omp_test_lock
, omp_in_parallel
49 external omp_get_max_threads
, omp_get_num_procs
50 integer(4) omp_get_max_threads
, omp_get_num_procs
51 external omp_get_num_threads
, omp_get_thread_num
52 integer(4) omp_get_num_threads
, omp_get_thread_num
53 external omp_test_nest_lock
54 integer(4) omp_test_nest_lock
56 external omp_get_wtick
, omp_get_wtime
57 double precision omp_get_wtick
, omp_get_wtime
59 external omp_set_schedule
, omp_get_schedule
60 external omp_get_thread_limit
, omp_set_max_active_levels
61 external omp_get_max_active_levels
, omp_get_level
62 external omp_get_ancestor_thread_num
, omp_get_team_size
63 external omp_get_active_level
64 integer(4) omp_get_thread_limit
, omp_get_max_active_levels
65 integer(4) omp_get_level
, omp_get_ancestor_thread_num
66 integer(4) omp_get_team_size
, omp_get_active_level