1! Copyright (C) 2005, 2007, 2008, 2009 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 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) 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 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 48 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 55 56 external omp_get_wtick, omp_get_wtime 57 double precision omp_get_wtick, omp_get_wtime 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 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 67