00001 ! OpenMP runtime library to be used in conjunction with Open64 Compiler Suites.
00002 !
00003 ! Copyright (C) 2003 - 2009 Tsinghua University.
00004 !
00005 ! This library is free software; you can redistribute it and/or
00006 ! modify it under the terms of the GNU Lesser General Public
00007 ! License as published by the Free Software Foundation; either
00008 ! version 2.1 of the License, or (at your option) any later version.
00009 !
00010 ! This library is distributed in the hope that it will be useful,
00011 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
00012 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
00013 ! Lesser General Public License for more details.
00014 !
00015 ! You should have received a copy of the GNU Lesser General Public
00016 ! License along with this library; if not, write to the Free Software
00017 ! Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
00018 !
00019 ! Contact information: HPC Institute, Department of Computer Science and Technology,
00020 ! Tsinghua University, Beijing 100084, CHINA, or:
00021 !
00022 ! http:
00023
00024 C the "C" of this comment starts in column 1
00025 integer omp_lock_kind
00026 parameter ( omp_lock_kind = 8 )
00027
00028 integer omp_nest_lock_kind
00029 parameter ( omp_nest_lock_kind = 8 )
00030
00031 C default integer type assumed below
00032 C default logical type assumed below
00033 C OpenMP Fortran API v1.1
00034 integer openmp_version
00035 parameter ( openmp_version = 200011 )
00036
00037 external omp_destroy_lock
00038 external omp_destroy_nest_lock
00039
00040 external omp_get_dynamic
00041 logical omp_get_dynamic
00042
00043 external omp_get_max_threads
00044 integer omp_get_max_threads
00045
00046 external omp_get_nested
00047 logical omp_get_nested
00048
00049 external omp_get_num_procs
00050 integer omp_get_num_procs
00051
00052 external omp_get_num_threads
00053 integer omp_get_num_threads
00054
00055 external omp_get_thread_num
00056 integer omp_get_thread_num
00057
00058 external omp_get_wtick
00059 double precision omp_get_wtick
00060
00061 external omp_get_wtime
00062 double precision omp_get_wtime
00063
00064 external omp_init_lock
00065 external omp_init_nest_lock
00066
00067 external omp_in_parallel
00068 logical omp_in_parallel
00069
00070 external omp_set_dynamic
00071
00072 external omp_set_lock
00073 external omp_set_nest_lock
00074
00075 external omp_set_nested
00076
00077 external omp_set_num_threads
00078
00079 external omp_test_lock
00080 logical omp_test_lock
00081
00082 external omp_test_nest_lock
00083 integer omp_test_nest_lock
00084
00085 external omp_unset_lock
00086 external omp_unset_nest_lock
00087
