1! Copyright (C) 2005 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 Lesser General Public License as published by 8! the Free Software Foundation; either version 2.1 of the License, or 9! (at your option) 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 Lesser General Public License for 14! more details. 15 16! You should have received a copy of the GNU Lesser General Public License 17! along with libgomp; see the file COPYING.LIB. If not, write to the 18! Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, 19! MA 02110-1301, USA. */ 20 21! As a special exception, if you link this library with other files, some 22! of which are compiled with GCC, to produce an executable, this library 23! does not by itself cause the resulting executable to be covered by the 24! GNU General Public License. This exception does not however invalidate 25! any other reasons why the executable file might be covered by the GNU 26! General Public License. 27 28 integer omp_lock_kind, omp_nest_lock_kind, openmp_version 29 parameter (omp_lock_kind = @OMP_LOCK_KIND@) 30 parameter (omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@) 31 parameter (openmp_version = 200505) 32 33 external omp_init_lock, omp_init_nest_lock 34 external omp_destroy_lock, omp_destroy_nest_lock 35 external omp_set_lock, omp_set_nest_lock 36 external omp_unset_lock, omp_unset_nest_lock 37 external omp_set_dynamic, omp_set_nested 38 external omp_set_num_threads 39 40 external omp_get_dynamic, omp_get_nested 41 logical*4 omp_get_dynamic, omp_get_nested 42 external omp_test_lock, omp_in_parallel 43 logical*4 omp_test_lock, omp_in_parallel 44 45 external omp_get_max_threads, omp_get_num_procs 46 integer*4 omp_get_max_threads, omp_get_num_procs 47 external omp_get_num_threads, omp_get_thread_num 48 integer*4 omp_get_num_threads, omp_get_thread_num 49 external omp_test_nest_lock 50 integer*4 omp_test_nest_lock 51 52 external omp_get_wtick, omp_get_wtime 53 double precision omp_get_wtick, omp_get_wtime 54