]>
Commit | Line | Data |
---|---|---|
748086b7 | 1 | ! Copyright (C) 2005, 2007, 2008, 2009 Free Software Foundation, Inc. |
953ff289 DN |
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 | |
748086b7 JJ |
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. | |
953ff289 DN |
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 | |
748086b7 | 13 | ! FOR A PARTICULAR PURPOSE. See the GNU General Public License for |
953ff289 DN |
14 | ! more details. |
15 | ||
748086b7 JJ |
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. | |
953ff289 | 19 | |
748086b7 JJ |
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/>. | |
953ff289 DN |
24 | |
25 | integer omp_lock_kind, omp_nest_lock_kind, openmp_version | |
a68ab351 JJ |
26 | integer omp_sched_kind, omp_sched_static, omp_sched_dynamic |
27 | integer omp_sched_guided, omp_sched_auto | |
03b8fe49 PB |
28 | parameter (omp_lock_kind = @OMP_LOCK_KIND@) |
29 | parameter (omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@) | |
a68ab351 JJ |
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) | |
953ff289 DN |
36 | |
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 | |
43 | ||
44 | external omp_get_dynamic, omp_get_nested | |
693d54f2 | 45 | logical(4) omp_get_dynamic, omp_get_nested |
953ff289 | 46 | external omp_test_lock, omp_in_parallel |
693d54f2 | 47 | logical(4) omp_test_lock, omp_in_parallel |
953ff289 DN |
48 | |
49 | external omp_get_max_threads, omp_get_num_procs | |
693d54f2 | 50 | integer(4) omp_get_max_threads, omp_get_num_procs |
953ff289 | 51 | external omp_get_num_threads, omp_get_thread_num |
693d54f2 | 52 | integer(4) omp_get_num_threads, omp_get_thread_num |
953ff289 | 53 | external omp_test_nest_lock |
693d54f2 | 54 | integer(4) omp_test_nest_lock |
953ff289 DN |
55 | |
56 | external omp_get_wtick, omp_get_wtime | |
57 | double precision omp_get_wtick, omp_get_wtime | |
a68ab351 JJ |
58 | |
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 | |
693d54f2 TB |
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 |