1169695Skan! Copyright (C) 2005 Free Software Foundation, Inc. 2169695Skan! Contributed by Jakub Jelinek <jakub@redhat.com>. 3169695Skan 4169695Skan! This file is part of the GNU OpenMP Library (libgomp). 5169695Skan 6169695Skan! Libgomp is free software; you can redistribute it and/or modify it 7169695Skan! under the terms of the GNU Lesser General Public License as published by 8169695Skan! the Free Software Foundation; either version 2.1 of the License, or 9169695Skan! (at your option) any later version. 10169695Skan 11169695Skan! Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY 12169695Skan! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 13169695Skan! FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for 14169695Skan! more details. 15169695Skan 16169695Skan! You should have received a copy of the GNU Lesser General Public License 17169695Skan! along with libgomp; see the file COPYING.LIB. If not, write to the 18169695Skan! Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, 19169695Skan! MA 02110-1301, USA. */ 20169695Skan 21169695Skan! As a special exception, if you link this library with other files, some 22169695Skan! of which are compiled with GCC, to produce an executable, this library 23169695Skan! does not by itself cause the resulting executable to be covered by the 24169695Skan! GNU General Public License. This exception does not however invalidate 25169695Skan! any other reasons why the executable file might be covered by the GNU 26169695Skan! General Public License. 27169695Skan 28169695Skan integer omp_lock_kind, omp_nest_lock_kind, openmp_version 29169695Skan parameter (omp_lock_kind = @OMP_LOCK_KIND@) 30169695Skan parameter (omp_nest_lock_kind = @OMP_NEST_LOCK_KIND@) 31169695Skan parameter (openmp_version = 200505) 32169695Skan 33169695Skan external omp_init_lock, omp_init_nest_lock 34169695Skan external omp_destroy_lock, omp_destroy_nest_lock 35169695Skan external omp_set_lock, omp_set_nest_lock 36169695Skan external omp_unset_lock, omp_unset_nest_lock 37169695Skan external omp_set_dynamic, omp_set_nested 38169695Skan external omp_set_num_threads 39169695Skan 40169695Skan external omp_get_dynamic, omp_get_nested 41282152Spfg logical(4) omp_get_dynamic, omp_get_nested 42169695Skan external omp_test_lock, omp_in_parallel 43282152Spfg logical(4) omp_test_lock, omp_in_parallel 44169695Skan 45169695Skan external omp_get_max_threads, omp_get_num_procs 46282152Spfg integer(4) omp_get_max_threads, omp_get_num_procs 47169695Skan external omp_get_num_threads, omp_get_thread_num 48282152Spfg integer(4) omp_get_num_threads, omp_get_thread_num 49169695Skan external omp_test_nest_lock 50282152Spfg integer(4) omp_test_nest_lock 51169695Skan 52169695Skan external omp_get_wtick, omp_get_wtime 53169695Skan double precision omp_get_wtick, omp_get_wtime 54