00001 ! include/40/omp_lib.f.var 00002 ! $Revision: 41674 $ 00003 ! $Date: 2012-06-05 08:33:35 -0500 (Tue, 05 Jun 2012) $ 00004 00005 ! <copyright> 00006 ! Copyright (c) 1985-2013 Intel Corporation. All Rights Reserved. 00007 ! 00008 ! Redistribution and use in source and binary forms, with or without 00009 ! modification, are permitted provided that the following conditions 00010 ! are met: 00011 ! 00012 ! * Redistributions of source code must retain the above copyright 00013 ! notice, this list of conditions and the following disclaimer. 00014 ! * Redistributions in binary form must reproduce the above copyright 00015 ! notice, this list of conditions and the following disclaimer in the 00016 ! documentation and/or other materials provided with the distribution. 00017 ! * Neither the name of Intel Corporation nor the names of its 00018 ! contributors may be used to endorse or promote products derived 00019 ! from this software without specific prior written permission. 00020 ! 00021 ! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 00022 ! "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT 00023 ! LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR 00024 ! A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT 00025 ! HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 00026 ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT 00027 ! LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 00028 ! DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 00029 ! THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 00030 ! (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE 00031 ! OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 00032 ! 00033 ! 00034 !------------------------------------------------------------------------ 00035 ! 00036 ! Portions of this software are protected under the following patents: 00037 ! U.S. Patent 5,812,852 00038 ! U.S. Patent 6,792,599 00039 ! U.S. Patent 7,069,556 00040 ! U.S. Patent 7,328,433 00041 ! U.S. Patent 7,500,242 00042 ! 00043 ! </copyright> 00044 00045 !*** 00046 !*** Some of the directives for the following routine extend past column 72, 00047 !*** so process this file in 132-column mode. 00048 !*** 00049 00050 !dec$ fixedformlinesize:132 00051 00052 module omp_lib_kinds 00053 00054 integer, parameter :: omp_integer_kind = 4 00055 integer, parameter :: omp_logical_kind = 4 00056 integer, parameter :: omp_real_kind = 4 00057 integer, parameter :: omp_lock_kind = int_ptr_kind() 00058 integer, parameter :: omp_nest_lock_kind = int_ptr_kind() 00059 integer, parameter :: omp_sched_kind = omp_integer_kind 00060 integer, parameter :: omp_proc_bind_kind = omp_integer_kind 00061 integer, parameter :: kmp_pointer_kind = int_ptr_kind() 00062 integer, parameter :: kmp_size_t_kind = int_ptr_kind() 00063 integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind() 00064 00065 end module omp_lib_kinds 00066 00067 module omp_lib 00068 00069 use omp_lib_kinds 00070 00071 integer (kind=omp_integer_kind), parameter :: kmp_version_major = 5 00072 integer (kind=omp_integer_kind), parameter :: kmp_version_minor = 0 00073 integer (kind=omp_integer_kind), parameter :: kmp_version_build = 00000000 00074 character(*), parameter :: kmp_build_date = '2013-08-22 22:37:00 UTC' 00075 integer (kind=omp_integer_kind), parameter :: openmp_version = 201107 00076 00077 integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1 00078 integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2 00079 integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3 00080 integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4 00081 00082 integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0 00083 integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1 00084 integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2 00085 integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3 00086 integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4 00087 00088 interface 00089 00090 ! *** 00091 ! *** omp_* entry points 00092 ! *** 00093 00094 subroutine omp_set_num_threads(nthreads) 00095 use omp_lib_kinds 00096 integer (kind=omp_integer_kind) nthreads 00097 end subroutine omp_set_num_threads 00098 00099 subroutine omp_set_dynamic(enable) 00100 use omp_lib_kinds 00101 logical (kind=omp_logical_kind) enable 00102 end subroutine omp_set_dynamic 00103 00104 subroutine omp_set_nested(enable) 00105 use omp_lib_kinds 00106 logical (kind=omp_logical_kind) enable 00107 end subroutine omp_set_nested 00108 00109 function omp_get_num_threads() 00110 use omp_lib_kinds 00111 integer (kind=omp_integer_kind) omp_get_num_threads 00112 end function omp_get_num_threads 00113 00114 function omp_get_max_threads() 00115 use omp_lib_kinds 00116 integer (kind=omp_integer_kind) omp_get_max_threads 00117 end function omp_get_max_threads 00118 00119 function omp_get_thread_num() 00120 use omp_lib_kinds 00121 integer (kind=omp_integer_kind) omp_get_thread_num 00122 end function omp_get_thread_num 00123 00124 function omp_get_num_procs() 00125 use omp_lib_kinds 00126 integer (kind=omp_integer_kind) omp_get_num_procs 00127 end function omp_get_num_procs 00128 00129 function omp_in_parallel() 00130 use omp_lib_kinds 00131 logical (kind=omp_logical_kind) omp_in_parallel 00132 end function omp_in_parallel 00133 00134 function omp_get_dynamic() 00135 use omp_lib_kinds 00136 logical (kind=omp_logical_kind) omp_get_dynamic 00137 end function omp_get_dynamic 00138 00139 function omp_get_nested() 00140 use omp_lib_kinds 00141 logical (kind=omp_logical_kind) omp_get_nested 00142 end function omp_get_nested 00143 00144 function omp_get_thread_limit() 00145 use omp_lib_kinds 00146 integer (kind=omp_integer_kind) omp_get_thread_limit 00147 end function omp_get_thread_limit 00148 00149 subroutine omp_set_max_active_levels(max_levels) 00150 use omp_lib_kinds 00151 integer (kind=omp_integer_kind) max_levels 00152 end subroutine omp_set_max_active_levels 00153 00154 function omp_get_max_active_levels() 00155 use omp_lib_kinds 00156 integer (kind=omp_integer_kind) omp_get_max_active_levels 00157 end function omp_get_max_active_levels 00158 00159 function omp_get_level() 00160 use omp_lib_kinds 00161 integer (kind=omp_integer_kind) omp_get_level 00162 end function omp_get_level 00163 00164 function omp_get_active_level() 00165 use omp_lib_kinds 00166 integer (kind=omp_integer_kind) omp_get_active_level 00167 end function omp_get_active_level 00168 00169 function omp_get_ancestor_thread_num(level) 00170 use omp_lib_kinds 00171 integer (kind=omp_integer_kind) level 00172 integer (kind=omp_integer_kind) omp_get_ancestor_thread_num 00173 end function omp_get_ancestor_thread_num 00174 00175 function omp_get_team_size(level) 00176 use omp_lib_kinds 00177 integer (kind=omp_integer_kind) level 00178 integer (kind=omp_integer_kind) omp_get_team_size 00179 end function omp_get_team_size 00180 00181 subroutine omp_set_schedule(kind, modifier) 00182 use omp_lib_kinds 00183 integer (kind=omp_sched_kind) kind 00184 integer (kind=omp_integer_kind) modifier 00185 end subroutine omp_set_schedule 00186 00187 subroutine omp_get_schedule(kind, modifier) 00188 use omp_lib_kinds 00189 integer (kind=omp_sched_kind) kind 00190 integer (kind=omp_integer_kind) modifier 00191 end subroutine omp_get_schedule 00192 00193 function omp_get_proc_bind() 00194 use omp_lib_kinds 00195 integer (kind=omp_proc_bind_kind) omp_get_proc_bind 00196 end function omp_get_proc_bind 00197 00198 function omp_get_wtime() 00199 double precision omp_get_wtime 00200 end function omp_get_wtime 00201 00202 function omp_get_wtick () 00203 double precision omp_get_wtick 00204 end function omp_get_wtick 00205 00206 subroutine omp_init_lock(lockvar) 00207 use omp_lib_kinds 00208 integer (kind=omp_lock_kind) lockvar 00209 end subroutine omp_init_lock 00210 00211 subroutine omp_destroy_lock(lockvar) 00212 use omp_lib_kinds 00213 integer (kind=omp_lock_kind) lockvar 00214 end subroutine omp_destroy_lock 00215 00216 subroutine omp_set_lock(lockvar) 00217 use omp_lib_kinds 00218 integer (kind=omp_lock_kind) lockvar 00219 end subroutine omp_set_lock 00220 00221 subroutine omp_unset_lock(lockvar) 00222 use omp_lib_kinds 00223 integer (kind=omp_lock_kind) lockvar 00224 end subroutine omp_unset_lock 00225 00226 function omp_test_lock(lockvar) 00227 use omp_lib_kinds 00228 logical (kind=omp_logical_kind) omp_test_lock 00229 integer (kind=omp_lock_kind) lockvar 00230 end function omp_test_lock 00231 00232 subroutine omp_init_nest_lock(lockvar) 00233 use omp_lib_kinds 00234 integer (kind=omp_nest_lock_kind) lockvar 00235 end subroutine omp_init_nest_lock 00236 00237 subroutine omp_destroy_nest_lock(lockvar) 00238 use omp_lib_kinds 00239 integer (kind=omp_nest_lock_kind) lockvar 00240 end subroutine omp_destroy_nest_lock 00241 00242 subroutine omp_set_nest_lock(lockvar) 00243 use omp_lib_kinds 00244 integer (kind=omp_nest_lock_kind) lockvar 00245 end subroutine omp_set_nest_lock 00246 00247 subroutine omp_unset_nest_lock(lockvar) 00248 use omp_lib_kinds 00249 integer (kind=omp_nest_lock_kind) lockvar 00250 end subroutine omp_unset_nest_lock 00251 00252 function omp_test_nest_lock(lockvar) 00253 use omp_lib_kinds 00254 integer (kind=omp_integer_kind) omp_test_nest_lock 00255 integer (kind=omp_nest_lock_kind) lockvar 00256 end function omp_test_nest_lock 00257 00258 ! *** 00259 ! *** kmp_* entry points 00260 ! *** 00261 00262 subroutine kmp_set_stacksize(size) 00263 use omp_lib_kinds 00264 integer (kind=omp_integer_kind) size 00265 end subroutine kmp_set_stacksize 00266 00267 subroutine kmp_set_stacksize_s(size) 00268 use omp_lib_kinds 00269 integer (kind=kmp_size_t_kind) size 00270 end subroutine kmp_set_stacksize_s 00271 00272 subroutine kmp_set_blocktime(msec) 00273 use omp_lib_kinds 00274 integer (kind=omp_integer_kind) msec 00275 end subroutine kmp_set_blocktime 00276 00277 subroutine kmp_set_library_serial() 00278 end subroutine kmp_set_library_serial 00279 00280 subroutine kmp_set_library_turnaround() 00281 end subroutine kmp_set_library_turnaround 00282 00283 subroutine kmp_set_library_throughput() 00284 end subroutine kmp_set_library_throughput 00285 00286 subroutine kmp_set_library(libnum) 00287 use omp_lib_kinds 00288 integer (kind=omp_integer_kind) libnum 00289 end subroutine kmp_set_library 00290 00291 subroutine kmp_set_defaults(string) 00292 character*(*) string 00293 end subroutine kmp_set_defaults 00294 00295 function kmp_get_stacksize() 00296 use omp_lib_kinds 00297 integer (kind=omp_integer_kind) kmp_get_stacksize 00298 end function kmp_get_stacksize 00299 00300 function kmp_get_stacksize_s() 00301 use omp_lib_kinds 00302 integer (kind=kmp_size_t_kind) kmp_get_stacksize_s 00303 end function kmp_get_stacksize_s 00304 00305 function kmp_get_blocktime() 00306 use omp_lib_kinds 00307 integer (kind=omp_integer_kind) kmp_get_blocktime 00308 end function kmp_get_blocktime 00309 00310 function kmp_get_library() 00311 use omp_lib_kinds 00312 integer (kind=omp_integer_kind) kmp_get_library 00313 end function kmp_get_library 00314 00315 function kmp_set_affinity(mask) 00316 use omp_lib_kinds 00317 integer (kind=omp_integer_kind) kmp_set_affinity 00318 integer (kind=kmp_affinity_mask_kind) mask 00319 end function kmp_set_affinity 00320 00321 function kmp_get_affinity(mask) 00322 use omp_lib_kinds 00323 integer (kind=omp_integer_kind) kmp_get_affinity 00324 integer (kind=kmp_affinity_mask_kind) mask 00325 end function kmp_get_affinity 00326 00327 function kmp_get_affinity_max_proc() 00328 use omp_lib_kinds 00329 integer (kind=omp_integer_kind) kmp_get_affinity_max_proc 00330 end function kmp_get_affinity_max_proc 00331 00332 subroutine kmp_create_affinity_mask(mask) 00333 use omp_lib_kinds 00334 integer (kind=kmp_affinity_mask_kind) mask 00335 end subroutine kmp_create_affinity_mask 00336 00337 subroutine kmp_destroy_affinity_mask(mask) 00338 use omp_lib_kinds 00339 integer (kind=kmp_affinity_mask_kind) mask 00340 end subroutine kmp_destroy_affinity_mask 00341 00342 function kmp_set_affinity_mask_proc(proc, mask) 00343 use omp_lib_kinds 00344 integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc 00345 integer (kind=omp_integer_kind) proc 00346 integer (kind=kmp_affinity_mask_kind) mask 00347 end function kmp_set_affinity_mask_proc 00348 00349 function kmp_unset_affinity_mask_proc(proc, mask) 00350 use omp_lib_kinds 00351 integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc 00352 integer (kind=omp_integer_kind) proc 00353 integer (kind=kmp_affinity_mask_kind) mask 00354 end function kmp_unset_affinity_mask_proc 00355 00356 function kmp_get_affinity_mask_proc(proc, mask) 00357 use omp_lib_kinds 00358 integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc 00359 integer (kind=omp_integer_kind) proc 00360 integer (kind=kmp_affinity_mask_kind) mask 00361 end function kmp_get_affinity_mask_proc 00362 00363 function kmp_malloc(size) 00364 use omp_lib_kinds 00365 integer (kind=kmp_pointer_kind) kmp_malloc 00366 integer (kind=kmp_size_t_kind) size 00367 end function kmp_malloc 00368 00369 function kmp_calloc(nelem, elsize) 00370 use omp_lib_kinds 00371 integer (kind=kmp_pointer_kind) kmp_calloc 00372 integer (kind=kmp_size_t_kind) nelem 00373 integer (kind=kmp_size_t_kind) elsize 00374 end function kmp_calloc 00375 00376 function kmp_realloc(ptr, size) 00377 use omp_lib_kinds 00378 integer (kind=kmp_pointer_kind) kmp_realloc 00379 integer (kind=kmp_pointer_kind) ptr 00380 integer (kind=kmp_size_t_kind) size 00381 end function kmp_realloc 00382 00383 subroutine kmp_free(ptr) 00384 use omp_lib_kinds 00385 integer (kind=kmp_pointer_kind) ptr 00386 end subroutine kmp_free 00387 00388 subroutine kmp_set_warnings_on() 00389 end subroutine kmp_set_warnings_on 00390 00391 subroutine kmp_set_warnings_off() 00392 end subroutine kmp_set_warnings_off 00393 00394 end interface 00395 00396 !dec$ if defined(_WIN32) 00397 !dec$ if defined(_WIN64) .or. defined(_M_AMD64) 00398 00399 !*** 00400 !*** The Fortran entry points must be in uppercase, even if the /Qlowercase 00401 !*** option is specified. The alias attribute ensures that the specified 00402 !*** string is used as the entry point. 00403 !*** 00404 !*** On the Windows* OS IA-32 architecture, the Fortran entry points have an 00405 !*** underscore prepended. On the Windows* OS Intel(R) 64 00406 !*** architecture, no underscore is prepended. 00407 !*** 00408 00409 !dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads 00410 !dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic 00411 !dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested 00412 !dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads 00413 !dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads 00414 !dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num 00415 !dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs 00416 !dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel 00417 !dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic 00418 !dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested 00419 !dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit 00420 !dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels 00421 !dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels 00422 !dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level 00423 !dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level 00424 !dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num 00425 !dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size 00426 !dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule 00427 !dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule 00428 !dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind 00429 !dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime 00430 !dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick 00431 00432 !dec$ attributes alias:'omp_init_lock' :: omp_init_lock 00433 !dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock 00434 !dec$ attributes alias:'omp_set_lock' :: omp_set_lock 00435 !dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock 00436 !dec$ attributes alias:'omp_test_lock' :: omp_test_lock 00437 !dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock 00438 !dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock 00439 !dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock 00440 !dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock 00441 !dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock 00442 00443 !dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize 00444 !dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 00445 !dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime 00446 !dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 00447 !dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 00448 !dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 00449 !dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library 00450 !dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize 00451 !dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 00452 !dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime 00453 !dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library 00454 !dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity 00455 !dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity 00456 !dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 00457 !dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 00458 !dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 00459 !dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 00460 !dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 00461 !dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 00462 !dec$ attributes alias:'KMP_MALLOC'::kmp_malloc 00463 !dec$ attributes alias:'KMP_CALLOC'::kmp_calloc 00464 !dec$ attributes alias:'KMP_REALLOC'::kmp_realloc 00465 !dec$ attributes alias:'KMP_FREE'::kmp_free 00466 00467 !dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 00468 !dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 00469 00470 !dec$ else 00471 00472 !*** 00473 !*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended. 00474 !*** 00475 00476 !dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads 00477 !dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic 00478 !dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested 00479 !dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads 00480 !dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads 00481 !dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num 00482 !dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs 00483 !dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel 00484 !dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic 00485 !dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested 00486 !dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit 00487 !dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels 00488 !dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels 00489 !dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level 00490 !dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level 00491 !dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num 00492 !dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size 00493 !dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule 00494 !dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule 00495 !dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind 00496 !dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime 00497 !dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick 00498 00499 !dec$ attributes alias:'_omp_init_lock' :: omp_init_lock 00500 !dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock 00501 !dec$ attributes alias:'_omp_set_lock' :: omp_set_lock 00502 !dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock 00503 !dec$ attributes alias:'_omp_test_lock' :: omp_test_lock 00504 !dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock 00505 !dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock 00506 !dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock 00507 !dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock 00508 !dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock 00509 00510 !dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize 00511 !dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s 00512 !dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime 00513 !dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial 00514 !dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround 00515 !dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput 00516 !dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library 00517 !dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize 00518 !dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s 00519 !dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime 00520 !dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library 00521 !dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity 00522 !dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity 00523 !dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc 00524 !dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask 00525 !dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask 00526 !dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc 00527 !dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc 00528 !dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc 00529 !dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc 00530 !dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc 00531 !dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc 00532 !dec$ attributes alias:'_KMP_FREE'::kmp_free 00533 00534 !dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on 00535 !dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off 00536 00537 !dec$ endif 00538 !dec$ endif 00539 00540 !dec$ if defined(__linux) 00541 00542 !*** 00543 !*** The Linux* OS entry points are in lowercase, with an underscore appended. 00544 !*** 00545 00546 !dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads 00547 !dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic 00548 !dec$ attributes alias:'omp_set_nested_'::omp_set_nested 00549 !dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads 00550 !dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads 00551 !dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num 00552 !dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs 00553 !dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel 00554 !dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic 00555 !dec$ attributes alias:'omp_get_nested_'::omp_get_nested 00556 !dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit 00557 !dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels 00558 !dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels 00559 !dec$ attributes alias:'omp_get_level_'::omp_get_level 00560 !dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level 00561 !dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 00562 !dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size 00563 !dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule 00564 !dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule 00565 !dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind 00566 !dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime 00567 !dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick 00568 00569 !dec$ attributes alias:'omp_init_lock_'::omp_init_lock 00570 !dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock 00571 !dec$ attributes alias:'omp_set_lock_'::omp_set_lock 00572 !dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock 00573 !dec$ attributes alias:'omp_test_lock_'::omp_test_lock 00574 !dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock 00575 !dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock 00576 !dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock 00577 !dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock 00578 !dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock 00579 00580 !dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize 00581 !dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s 00582 !dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime 00583 !dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial 00584 !dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround 00585 !dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput 00586 !dec$ attributes alias:'kmp_set_library_'::kmp_set_library 00587 !dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize 00588 !dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s 00589 !dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime 00590 !dec$ attributes alias:'kmp_get_library_'::kmp_get_library 00591 !dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity 00592 !dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity 00593 !dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 00594 !dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask 00595 !dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 00596 !dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 00597 !dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 00598 !dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 00599 !dec$ attributes alias:'kmp_malloc_'::kmp_malloc 00600 !dec$ attributes alias:'kmp_calloc_'::kmp_calloc 00601 !dec$ attributes alias:'kmp_realloc_'::kmp_realloc 00602 !dec$ attributes alias:'kmp_free_'::kmp_free 00603 00604 !dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on 00605 !dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off 00606 00607 !dec$ endif 00608 00609 !dec$ if defined(__APPLE__) 00610 00611 !*** 00612 !*** The Mac entry points are in lowercase, with an both an underscore 00613 !*** appended and an underscore prepended. 00614 !*** 00615 00616 !dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads 00617 !dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic 00618 !dec$ attributes alias:'_omp_set_nested_'::omp_set_nested 00619 !dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads 00620 !dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads 00621 !dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num 00622 !dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs 00623 !dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel 00624 !dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic 00625 !dec$ attributes alias:'_omp_get_nested_'::omp_get_nested 00626 !dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit 00627 !dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels 00628 !dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels 00629 !dec$ attributes alias:'_omp_get_level_'::omp_get_level 00630 !dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level 00631 !dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num 00632 !dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size 00633 !dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule 00634 !dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule 00635 !dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind 00636 !dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime 00637 !dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick 00638 00639 !dec$ attributes alias:'_omp_init_lock_'::omp_init_lock 00640 !dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock 00641 !dec$ attributes alias:'_omp_set_lock_'::omp_set_lock 00642 !dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock 00643 !dec$ attributes alias:'_omp_test_lock_'::omp_test_lock 00644 !dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock 00645 !dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock 00646 !dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock 00647 !dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock 00648 !dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock 00649 00650 !dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize 00651 !dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s 00652 !dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime 00653 !dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial 00654 !dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround 00655 !dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput 00656 !dec$ attributes alias:'_kmp_set_library_'::kmp_set_library 00657 !dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize 00658 !dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s 00659 !dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime 00660 !dec$ attributes alias:'_kmp_get_library_'::kmp_get_library 00661 !dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity 00662 !dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity 00663 !dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc 00664 !dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask 00665 !dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask 00666 !dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc 00667 !dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc 00668 !dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc 00669 !dec$ attributes alias:'_kmp_malloc_'::kmp_malloc 00670 !dec$ attributes alias:'_kmp_calloc_'::kmp_calloc 00671 !dec$ attributes alias:'_kmp_realloc_'::kmp_realloc 00672 !dec$ attributes alias:'_kmp_free_'::kmp_free 00673 00674 !dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on 00675 !dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off 00676 00677 !dec$ endif 00678 00679 end module omp_lib 00680
1.6.1