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