1!  Copyright (C) 2005-2015 Free Software Foundation, Inc.
2!  Contributed by Jakub Jelinek <jakub@redhat.com>.
3
4!  This file is part of the GNU Offloading and Multi Processing Library
5!  (libgomp).
6
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)
10!  any later version.
11
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
15!  more details.
16
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.
20
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/>.
25
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      parameter (openmp_version = 201307)
50
51      external omp_init_lock, omp_init_nest_lock
52      external omp_destroy_lock, omp_destroy_nest_lock
53      external omp_set_lock, omp_set_nest_lock
54      external omp_unset_lock, omp_unset_nest_lock
55      external omp_set_dynamic, omp_set_nested
56      external omp_set_num_threads
57
58      external omp_get_dynamic, omp_get_nested
59      logical(4) omp_get_dynamic, omp_get_nested
60      external omp_test_lock, omp_in_parallel
61      logical(4) omp_test_lock, omp_in_parallel
62
63      external omp_get_max_threads, omp_get_num_procs
64      integer(4) omp_get_max_threads, omp_get_num_procs
65      external omp_get_num_threads, omp_get_thread_num
66      integer(4) omp_get_num_threads, omp_get_thread_num
67      external omp_test_nest_lock
68      integer(4) omp_test_nest_lock
69
70      external omp_get_wtick, omp_get_wtime
71      double precision omp_get_wtick, omp_get_wtime
72
73      external omp_set_schedule, omp_get_schedule
74      external omp_get_thread_limit, omp_set_max_active_levels
75      external omp_get_max_active_levels, omp_get_level
76      external omp_get_ancestor_thread_num, omp_get_team_size
77      external omp_get_active_level
78      integer(4) omp_get_thread_limit, omp_get_max_active_levels
79      integer(4) omp_get_level, omp_get_ancestor_thread_num
80      integer(4) omp_get_team_size, omp_get_active_level
81
82      external omp_in_final
83      logical(4) omp_in_final
84
85      external omp_get_cancelllation
86      logical(4) omp_get_cancelllation
87
88      external omp_get_proc_bind
89      integer(omp_proc_bind_kind) omp_get_proc_bind
90
91      external omp_set_default_device, omp_get_default_device
92      external omp_get_num_devices, omp_get_num_teams
93      external omp_get_team_num
94      integer(4) omp_get_default_device, omp_get_num_devices
95      integer(4) omp_get_num_teams, omp_get_team_num
96
97      external omp_is_initial_device
98      logical(4) omp_is_initial_device
99