omp_lib.f

Go to the documentation of this file.
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 

Generated on 25 Aug 2013 for libomp_oss by  doxygen 1.6.1