1!  Copyright (C) 2005, 2007, 2008, 2009, 2011 Free Software Foundation, Inc.
2!  Contributed by Jakub Jelinek <jakub@redhat.com>.
3
4!  This file is part of the GNU OpenMP Library (libgomp).
5
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)
9!  any later version.
10
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
14!  more details.
15
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.
19
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/>.
24
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)
37
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
44
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
49
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
56
57      external omp_get_wtick, omp_get_wtime
58      double precision omp_get_wtick, omp_get_wtime
59
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
68
69      external omp_in_final
70      logical(4) omp_in_final
71