This is an archive of the discontinued LLVM Phabricator instance.

Differential D64534

Remove OMP spec versioning
ClosedPublic

Authored by tlwilmar on Jul 10 2019, 2:46 PM.

Details

Reviewers
jlpeyton
AndreyChurbanov
Hahnfeld
Commits
rGe4b4f994d2f6: [OpenMP] Remove OMP spec versioning
rOMP365963: [OpenMP] Remove OMP spec versioning
rL365963: [OpenMP] Remove OMP spec versioning
Summary

Remove all older OMP spec versioning from the runtime and build system.

Diff Detail

Repository
rOMP OpenMP

Event Timeline

tlwilmar created this revision.Jul 10 2019, 2:46 PM
Herald added subscribers: jdoerfert, jfb, mgorny. · View Herald TranscriptJul 10 2019, 2:46 PM
Hahnfeld added a comment.Jul 10 2019, 11:36 PM

Great cleanup, one very minor comment inline.

runtime/CMakeLists.txt
72–73

A quick grep shows only one usage in omp_lib.{f,f90,h}.var where we can actually hardcode the version.

(This would finally mean that the .var files only access constant variables like LIBOMP_VERSION_* and we could avoid replacing them at configure time. But this can be cleaned up in future patches...)

Hahnfeld added a comment.Jul 12 2019, 3:29 AM

@tlwilmar D64625 conflicts with moving the headers. Let me know if you want to land this first, but I'd like to get the fix into the next release which is set to branch next week.

lebedev.ri added a subscriber: lebedev.ri.Jul 12 2019, 3:43 AM

How does this play with -fopenmp-version= clang switches;
This doesn't remove any public api, only makes all of it available "unconditionall", correct?

I think this is a good thing in the end, but this warrants a little
bit more prominent announcement/RFC beforehand, on openmp-dev+llvm-dev.

Hahnfeld added a comment.Jul 12 2019, 4:05 AM
In D64534#1582505, @lebedev.ri wrote:

How does this play with -fopenmp-version= clang switches;
This doesn't remove any public api, only makes all of it available "unconditionall", correct?

AFAICT, yes. Plus -fopenmp-version doesn't do much, I'm only aware of different treatment for one corner case in addition to changing the value of _OPENMP.

I think this is a good thing in the end, but this warrants a little
bit more prominent announcement/RFC beforehand, on openmp-dev+llvm-dev.

There was a thread on openmp-dev: http://lists.llvm.org/pipermail/openmp-dev/2019-February/002356.html
I don't agree that this should be cross-posted to llvm-dev, everyone caring about OpenMP should be subscribed to openmp-dev. Furthermore, building the latest version was more or less the default, except you keep your CMake configuration over many years.

lebedev.ri added a comment.Jul 12 2019, 4:25 AM
In D64534#1582525, @Hahnfeld wrote:
In D64534#1582505, @lebedev.ri wrote:

How does this play with -fopenmp-version= clang switches;
This doesn't remove any public api, only makes all of it available "unconditionall", correct?

AFAICT, yes.

Ok.

Plus -fopenmp-version doesn't do much, I'm only aware of different treatment for one corner case in addition to changing the value of _OPENMP.

That does not sound right, it certainly results in different sema (see also: gcc9 force-bumping to openmp4),
and i sure hope it disables features that aren't in that spec version.

I think this is a good thing in the end, but this warrants a little
bit more prominent announcement/RFC beforehand, on openmp-dev+llvm-dev.

There was a thread on openmp-dev: http://lists.llvm.org/pipermail/openmp-dev/2019-February/002356.html

Would be a great idea to at least bump it, with the link to the patch.

I don't agree that this should be cross-posted to llvm-dev, everyone caring about OpenMP should be subscribed to openmp-dev.

Furthermore, building the latest version was more or less the default, except you keep your CMake configuration over many years.

Yes

tlwilmar added a comment.Jul 12 2019, 5:27 AM
In D64534#1582486, @Hahnfeld wrote:

@tlwilmar D64625 conflicts with moving the headers. Let me know if you want to land this first, but I'd like to get the fix into the next release which is set to branch next week.

OK, I will try to get your suggested change above into the patch today.

AndreyChurbanov added inline comments.Jul 12 2019, 6:56 AM
runtime/CMakeLists.txt
72–73

Jonas,
Could you clarify a bit why hardcoding values in 3 files can be better than having values in a single place? We will need to change versions once support for new specification implemented, and doing this in one place looks preferable over changing constants in 3 files.

Or am I missing something?

Thanks, Andrey

Hahnfeld added inline comments.Jul 12 2019, 7:06 AM
runtime/CMakeLists.txt
72–73

My reasoning was that we don't need to replace variables in include/ anymore because no value depends on the CMake configuration. I didn't think about raising the value once a new spec is released, good point. I'd still argue that this is pretty rare (every 2-3 years based on the recent history), but I acknowledge that inconsistency between the different files is bad.

I'm fine with leaving the variable for now and possibly revisit the topic later on. Thanks!

tlwilmar marked an inline comment as done.Jul 12 2019, 1:08 PM
tlwilmar added inline comments.
runtime/CMakeLists.txt
72–73

OK, if I can get the patch accepted soon, Johnny might be able to get it checked in today. Thanks!

jlpeyton accepted this revision.Jul 12 2019, 2:43 PM

LGTM

This revision is now accepted and ready to land.Jul 12 2019, 2:43 PM
Closed by commit rL365963: [OpenMP] Remove OMP spec versioning (authored by jlpeyton). · Explain WhyJul 12 2019, 2:45 PM
This revision was automatically updated to reflect the committed changes.
Herald added a project: Restricted Project. · View Herald TranscriptJul 12 2019, 2:45 PM
Herald added a subscriber: llvm-commits. · View Herald Transcript
jlpeyton mentioned this in rGaa5cdafa405e: Remove REQUIRES OMP spec version within lit tests.Jul 17 2019, 8:44 AM
jlpeyton mentioned this in rL366341: Remove REQUIRES OMP spec version within lit tests.

Revision Contents

PathSize
8 lines
runtime/
23 lines
cmake/
1 line
10 lines
12 lines
src/
6 lines
41 lines
include/
30/
164 lines
648 lines
643 lines
364 lines
40/
160 lines
566 lines
773 lines
454 lines
45/
196 lines
644 lines
860 lines
523 lines
50/
1082 lines
370 lines
920 lines
1047 lines
683 lines
1082 lines
370 lines
920 lines
1047 lines
683 lines
183 lines
47 lines
5 lines
8 lines
86 lines
32 lines
6 lines
5 lines
58 lines
6 lines
2 lines
34 lines
2 lines
30 lines
40 lines
15 lines
35 lines
8 lines
2 lines
333 lines
16 lines
2 lines
139 lines
2 lines
6 lines
4 lines
8 lines
159 lines
11 lines
23 lines
5 lines
6 lines
4 lines
2 lines
test/
affinity/
format/
2 lines
9 lines
1 line
ompt/
misc/
2 lines
tasking/
1 line

Diff 209062

README.rst

Show First 20 Lines • Show All 135 Lines • ▼ Show 20 Lines
**LIBOMP_ARCH** = ``aarch64|arm|i386|mic|mips|mips64|ppc64|ppc64le|x86_64`` **LIBOMP_ARCH** = ``aarch64|arm|i386|mic|mips|mips64|ppc64|ppc64le|x86_64``
The default value for this option is chosen based on probing the compiler for The default value for this option is chosen based on probing the compiler for
architecture macros (e.g., is ``__x86_64__`` predefined by compiler?). architecture macros (e.g., is ``__x86_64__`` predefined by compiler?).
**LIBOMP_MIC_ARCH** = ``knc|knf`` **LIBOMP_MIC_ARCH** = ``knc|knf``
Intel(R) Many Integrated Core Architecture (Intel(R) MIC Architecture) to Intel(R) Many Integrated Core Architecture (Intel(R) MIC Architecture) to
build for. This value is ignored if **LIBOMP_ARCH** does not equal ``mic``. build for. This value is ignored if **LIBOMP_ARCH** does not equal ``mic``.
**LIBOMP_OMP_VERSION** = ``50|45|40|30``
OpenMP version to build for. Older versions will disable certain
functionality and entry points.
**LIBOMP_LIB_TYPE** = ``normal|profile|stubs`` **LIBOMP_LIB_TYPE** = ``normal|profile|stubs``
Library type can be ``normal``, ``profile``, or ``stubs``. Library type can be ``normal``, ``profile``, or ``stubs``.
**LIBOMP_USE_VERSION_SYMBOLS** = ``ON|OFF`` **LIBOMP_USE_VERSION_SYMBOLS** = ``ON|OFF``
Use versioned symbols for building the library. This option only makes sense Use versioned symbols for building the library. This option only makes sense
for ELF based libraries where version symbols are supported (Linux*, some BSD* for ELF based libraries where version symbols are supported (Linux*, some BSD*
variants). It is ``OFF`` by default for Windows* and macOS*, but ``ON`` for variants). It is ``OFF`` by default for Windows* and macOS*, but ``ON`` for
other Unix based operating systems. other Unix based operating systems.
Show All 31 Lines**LIBOMP_USE_ADAPTIVE_LOCKS** = ``ON|OFF``
Extensions (Intel(R) TSX). This feature is x86 specific and turned ``ON`` Extensions (Intel(R) TSX). This feature is x86 specific and turned ``ON``
by default for IA-32 architecture and Intel(R) 64 architecture. by default for IA-32 architecture and Intel(R) 64 architecture.
**LIBOMP_USE_INTERNODE_ALIGNMENT** = ``OFF|ON`` **LIBOMP_USE_INTERNODE_ALIGNMENT** = ``OFF|ON``
Align certain data structures on 4096-byte. This option is useful on Align certain data structures on 4096-byte. This option is useful on
multi-node systems where a small ``CACHE_LINE`` setting leads to false sharing. multi-node systems where a small ``CACHE_LINE`` setting leads to false sharing.
**LIBOMP_OMPT_SUPPORT** = ``ON|OFF`` **LIBOMP_OMPT_SUPPORT** = ``ON|OFF``
Include support for the OpenMP Tools Interface (OMPT). Include support for the OpenMP Tools Interface (OMPT).
This option is supported and ``ON`` by default for x86, x86_64, AArch64, and This option is supported and ``ON`` by default for x86, x86_64, AArch64, and
PPC64 on Linux* and macOS*. PPC64 on Linux* and macOS*.
This option is ``OFF`` if this feature is not supported for the platform. This option is ``OFF`` if this feature is not supported for the platform.
**LIBOMP_OMPT_OPTIONAL** = ``ON|OFF`` **LIBOMP_OMPT_OPTIONAL** = ``ON|OFF``
Include support for optional OMPT functionality. This option is ignored if Include support for optional OMPT functionality. This option is ignored if
**LIBOMP_OMPT_SUPPORT** is ``OFF``. **LIBOMP_OMPT_SUPPORT** is ``OFF``.
**LIBOMP_STATS** = ``OFF|ON`` **LIBOMP_STATS** = ``OFF|ON``
▲ Show 20 Lines • Show All 139 Lines • Show Last 20 Lines

runtime/CMakeLists.txt

Show First 20 Lines • Show All 63 Lines • ▼ Show 20 Lineselse() # Part of LLVM build
endif () endif ()
set(LIBOMP_ENABLE_ASSERTIONS ${LLVM_ENABLE_ASSERTIONS}) set(LIBOMP_ENABLE_ASSERTIONS ${LLVM_ENABLE_ASSERTIONS})
endif() endif()
libomp_check_variable(LIBOMP_ARCH 32e x86_64 32 i386 arm ppc64 ppc64le aarch64 mic mips mips64) libomp_check_variable(LIBOMP_ARCH 32e x86_64 32 i386 arm ppc64 ppc64le aarch64 mic mips mips64)
set(LIBOMP_LIB_TYPE normal CACHE STRING set(LIBOMP_LIB_TYPE normal CACHE STRING
"Performance,Profiling,Stubs library (normal/profile/stubs)") "Performance,Profiling,Stubs library (normal/profile/stubs)")
libomp_check_variable(LIBOMP_LIB_TYPE normal profile stubs) libomp_check_variable(LIBOMP_LIB_TYPE normal profile stubs)
set(LIBOMP_OMP_VERSION 50 CACHE STRING
"The OpenMP version (50/45/40/30)")
libomp_check_variable(LIBOMP_OMP_VERSION 50 45 40 30)
# Set the OpenMP Year and Month assiociated with version # Set the OpenMP Year and Month assiociated with version
if(${LIBOMP_OMP_VERSION} GREATER 50 OR ${LIBOMP_OMP_VERSION} EQUAL 50)
set(LIBOMP_OMP_YEAR_MONTH 201611) set(LIBOMP_OMP_YEAR_MONTH 201611)
HahnfeldUnsubmitted
Not Done
ReplyInline Actions

A quick grep shows only one usage in omp_lib.{f,f90,h}.var where we can actually hardcode the version.

(This would finally mean that the .var files only access constant variables like LIBOMP_VERSION_* and we could avoid replacing them at configure time. But this can be cleaned up in future patches...)

Hahnfeld: A quick `grep` shows only one usage in `omp_lib.{f,f90,h}.var` where we can actually hardcode…
AndreyChurbanovUnsubmitted
Not Done
ReplyInline Actions

Jonas,
Could you clarify a bit why hardcoding values in 3 files can be better than having values in a single place? We will need to change versions once support for new specification implemented, and doing this in one place looks preferable over changing constants in 3 files.

Or am I missing something?

Thanks, Andrey

AndreyChurbanov: Jonas, Could you clarify a bit why hardcoding values in 3 files can be better than having…
HahnfeldUnsubmitted
Not Done
ReplyInline Actions

My reasoning was that we don't need to replace variables in include/ anymore because no value depends on the CMake configuration. I didn't think about raising the value once a new spec is released, good point. I'd still argue that this is pretty rare (every 2-3 years based on the recent history), but I acknowledge that inconsistency between the different files is bad.

I'm fine with leaving the variable for now and possibly revisit the topic later on. Thanks!

Hahnfeld: My reasoning was that we don't need to replace variables in `include/` anymore because no value…
tlwilmarAuthorUnsubmitted
Done
ReplyInline Actions

OK, if I can get the patch accepted soon, Johnny might be able to get it checked in today. Thanks!

tlwilmar: OK, if I can get the patch accepted soon, Johnny might be able to get it checked in today.
elseif(${LIBOMP_OMP_VERSION} GREATER 45 OR ${LIBOMP_OMP_VERSION} EQUAL 45)
set(LIBOMP_OMP_YEAR_MONTH 201511)
elseif(${LIBOMP_OMP_VERSION} GREATER 40 OR ${LIBOMP_OMP_VERSION} EQUAL 40)
set(LIBOMP_OMP_YEAR_MONTH 201307)
elseif(${LIBOMP_OMP_VERSION} GREATER 30 OR ${LIBOMP_OMP_VERSION} EQUAL 30)
set(LIBOMP_OMP_YEAR_MONTH 201107)
else()
set(LIBOMP_OMP_YEAR_MONTH 200505)
endif()
set(LIBOMP_MIC_ARCH knc CACHE STRING set(LIBOMP_MIC_ARCH knc CACHE STRING
"Intel(R) Many Integrated Core Architecture (Intel(R) MIC Architecture) (knf/knc). Ignored if not Intel(R) MIC Architecture build.") "Intel(R) Many Integrated Core Architecture (Intel(R) MIC Architecture) (knf/knc). Ignored if not Intel(R) MIC Architecture build.")
if("${LIBOMP_ARCH}" STREQUAL "mic") if("${LIBOMP_ARCH}" STREQUAL "mic")
libomp_check_variable(LIBOMP_MIC_ARCH knf knc) libomp_check_variable(LIBOMP_MIC_ARCH knf knc)
endif() endif()
set(LIBOMP_FORTRAN_MODULES FALSE CACHE BOOL set(LIBOMP_FORTRAN_MODULES FALSE CACHE BOOL
"Create Fortran module files? (requires fortran compiler)") "Create Fortran module files? (requires fortran compiler)")
▲ Show 20 Lines • Show All 113 Lines • ▼ Show 20 Lines
elseif("${LIBOMP_LIB_TYPE}" STREQUAL "stubs") elseif("${LIBOMP_LIB_TYPE}" STREQUAL "stubs")
set(STUBS_LIBRARY TRUE) set(STUBS_LIBRARY TRUE)
endif() endif()
# Setting directory names # Setting directory names
set(LIBOMP_BASE_DIR ${CMAKE_CURRENT_SOURCE_DIR}) set(LIBOMP_BASE_DIR ${CMAKE_CURRENT_SOURCE_DIR})
set(LIBOMP_SRC_DIR ${LIBOMP_BASE_DIR}/src) set(LIBOMP_SRC_DIR ${LIBOMP_BASE_DIR}/src)
set(LIBOMP_TOOLS_DIR ${LIBOMP_BASE_DIR}/tools) set(LIBOMP_TOOLS_DIR ${LIBOMP_BASE_DIR}/tools)
set(LIBOMP_INC_DIR ${LIBOMP_SRC_DIR}/include/${LIBOMP_OMP_VERSION}) set(LIBOMP_INC_DIR ${LIBOMP_SRC_DIR}/include)
set(LIBOMP_BINARY_DIR ${CMAKE_CURRENT_BINARY_DIR}) set(LIBOMP_BINARY_DIR ${CMAKE_CURRENT_BINARY_DIR})
# Enabling Fortran if it is needed # Enabling Fortran if it is needed
if(${LIBOMP_FORTRAN_MODULES}) if(${LIBOMP_FORTRAN_MODULES})
enable_language(Fortran) enable_language(Fortran)
endif() endif()
# Enable MASM Compiler if it is needed (Windows only) # Enable MASM Compiler if it is needed (Windows only)
if(WIN32) if(WIN32)
▲ Show 20 Lines • Show All 71 Lines • ▼ Show 20 Lines
if(LIBOMP_USE_VERSION_SYMBOLS AND (NOT LIBOMP_ENABLE_SHARED) ) if(LIBOMP_USE_VERSION_SYMBOLS AND (NOT LIBOMP_ENABLE_SHARED) )
message(STATUS "Version symbols not supported for static libraries - forcing Version symbols functionality off") message(STATUS "Version symbols not supported for static libraries - forcing Version symbols functionality off")
set (LIBOMP_USE_VERSION_SYMBOLS FALSE) set (LIBOMP_USE_VERSION_SYMBOLS FALSE)
endif() endif()
# OMPT-support defaults to ON for OpenMP 5.0+ and if the requirements in # OMPT-support defaults to ON for OpenMP 5.0+ and if the requirements in
# cmake/config-ix.cmake are fulfilled. # cmake/config-ix.cmake are fulfilled.
set(OMPT_DEFAULT FALSE) set(OMPT_DEFAULT FALSE)
if ((${LIBOMP_OMP_VERSION} GREATER 49) AND (LIBOMP_HAVE_OMPT_SUPPORT) AND (NOT WIN32)) if ((LIBOMP_HAVE_OMPT_SUPPORT) AND (NOT WIN32))
set(OMPT_DEFAULT TRUE) set(OMPT_DEFAULT TRUE)
endif() endif()
set(LIBOMP_OMPT_SUPPORT ${OMPT_DEFAULT} CACHE BOOL set(LIBOMP_OMPT_SUPPORT ${OMPT_DEFAULT} CACHE BOOL
"OMPT-support?") "OMPT-support?")
set(LIBOMP_OMPT_DEBUG FALSE CACHE BOOL set(LIBOMP_OMPT_DEBUG FALSE CACHE BOOL
"Trace OMPT initialization?") "Trace OMPT initialization?")
set(LIBOMP_OMPT_OPTIONAL TRUE CACHE BOOL set(LIBOMP_OMPT_OPTIONAL TRUE CACHE BOOL
"OMPT-optional?") "OMPT-optional?")
if(LIBOMP_OMPT_SUPPORT AND (NOT LIBOMP_HAVE_OMPT_SUPPORT)) if(LIBOMP_OMPT_SUPPORT AND (NOT LIBOMP_HAVE_OMPT_SUPPORT))
libomp_error_say("OpenMP Tools Interface requested but not available in this implementation") libomp_error_say("OpenMP Tools Interface requested but not available in this implementation")
endif() endif()
if(LIBOMP_OMPT_SUPPORT AND (${LIBOMP_OMP_VERSION} LESS 50))
libomp_error_say("OpenMP Tools Interface only available with OpenMP 5.0, LIBOMP_OMP_VERSION is ${LIBOMP_OMP_VERSION}")
endif()
# TSAN-support # TSAN-support
set(LIBOMP_TSAN_SUPPORT FALSE CACHE BOOL set(LIBOMP_TSAN_SUPPORT FALSE CACHE BOOL
"TSAN-support?") "TSAN-support?")
if(LIBOMP_TSAN_SUPPORT AND (NOT LIBOMP_HAVE_TSAN_SUPPORT)) if(LIBOMP_TSAN_SUPPORT AND (NOT LIBOMP_HAVE_TSAN_SUPPORT))
libomp_error_say("TSAN functionality requested but not available") libomp_error_say("TSAN functionality requested but not available")
endif() endif()
Show All 35 Lines
# Print configuration after all variables are set. # Print configuration after all variables are set.
if(${OPENMP_STANDALONE_BUILD}) if(${OPENMP_STANDALONE_BUILD})
libomp_say("Operating System -- ${CMAKE_SYSTEM_NAME}") libomp_say("Operating System -- ${CMAKE_SYSTEM_NAME}")
libomp_say("Target Architecture -- ${LIBOMP_ARCH}") libomp_say("Target Architecture -- ${LIBOMP_ARCH}")
if(${MIC}) if(${MIC})
libomp_say("Intel(R) MIC Architecture -- ${LIBOMP_MIC_ARCH}") libomp_say("Intel(R) MIC Architecture -- ${LIBOMP_MIC_ARCH}")
endif() endif()
libomp_say("Build Type -- ${CMAKE_BUILD_TYPE}") libomp_say("Build Type -- ${CMAKE_BUILD_TYPE}")
libomp_say("OpenMP Version -- ${LIBOMP_OMP_VERSION}")
libomp_say("Library Kind -- ${LIBOMP_LIBRARY_KIND}") libomp_say("Library Kind -- ${LIBOMP_LIBRARY_KIND}")
libomp_say("Library Type -- ${LIBOMP_LIB_TYPE}") libomp_say("Library Type -- ${LIBOMP_LIB_TYPE}")
libomp_say("Fortran Modules -- ${LIBOMP_FORTRAN_MODULES}") libomp_say("Fortran Modules -- ${LIBOMP_FORTRAN_MODULES}")
# will say development if all zeros # will say development if all zeros
if(${LIBOMP_VERSION_BUILD} STREQUAL 00000000) if(${LIBOMP_VERSION_BUILD} STREQUAL 00000000)
set(LIBOMP_BUILD Development) set(LIBOMP_BUILD Development)
else() else()
set(LIBOMP_BUILD ${LIBOMP_VERSION_BUILD}) set(LIBOMP_BUILD ${LIBOMP_VERSION_BUILD})
Show All 17 Lines

runtime/cmake/LibompDefinitions.cmake

Show All 22 Linesfunction(libomp_get_definitions_flags cppflags)
else() else()
libomp_append(cppflags_local "-D _GNU_SOURCE") libomp_append(cppflags_local "-D _GNU_SOURCE")
libomp_append(cppflags_local "-D _REENTRANT") libomp_append(cppflags_local "-D _REENTRANT")
endif() endif()
# CMake doesn't include CPPFLAGS from environment, but we will. # CMake doesn't include CPPFLAGS from environment, but we will.
set(${cppflags} ${cppflags_local} ${LIBOMP_CPPFLAGS} $ENV{CPPFLAGS} PARENT_SCOPE) set(${cppflags} ${cppflags_local} ${LIBOMP_CPPFLAGS} $ENV{CPPFLAGS} PARENT_SCOPE)
endfunction() endfunction()

runtime/cmake/LibompExports.cmake

# #
#//===----------------------------------------------------------------------===// #//===----------------------------------------------------------------------===//
#// #//
#// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. #// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
#// See https://llvm.org/LICENSE.txt for license information. #// See https://llvm.org/LICENSE.txt for license information.
#// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception #// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
#// #//
#//===----------------------------------------------------------------------===// #//===----------------------------------------------------------------------===//
# #
# LibompExports.cmake # LibompExports.cmake
# Copy library and header files into the exports/ subdirectory after library build # Copy library and header files into the exports/ subdirectory after library build
# Create the suffix for the export directory # Create the suffix for the export directory
# - Only add to suffix when not a default value # - Only add to suffix when not a default value
# - Example suffix: .deb.30.s1 # - Example suffix: .deb.s1
# final export directory: exports/lin_32e.deb.30.s1/lib # final export directory: exports/lin_32e.deb.s1/lib
# - These suffixes imply the build is a Debug, OpenMP 3.0, Stats-Gathering version of the library # - These suffixes imply the build is a Debug, Stats-Gathering version of the library
set(libomp_suffix) set(libomp_suffix)
libomp_append(libomp_suffix .deb DEBUG_BUILD) libomp_append(libomp_suffix .deb DEBUG_BUILD)
libomp_append(libomp_suffix .dia RELWITHDEBINFO_BUILD) libomp_append(libomp_suffix .dia RELWITHDEBINFO_BUILD)
libomp_append(libomp_suffix .min MINSIZEREL_BUILD) libomp_append(libomp_suffix .min MINSIZEREL_BUILD)
if(NOT "${LIBOMP_OMP_VERSION}" STREQUAL "45")
libomp_append(libomp_suffix .${LIBOMP_OMP_VERSION})
endif()
libomp_append(libomp_suffix .s1 LIBOMP_STATS) libomp_append(libomp_suffix .s1 LIBOMP_STATS)
libomp_append(libomp_suffix .ompt LIBOMP_OMPT_SUPPORT) libomp_append(libomp_suffix .ompt LIBOMP_OMPT_SUPPORT)
if(${LIBOMP_OMPT_SUPPORT}) if(${LIBOMP_OMPT_SUPPORT})
libomp_append(libomp_suffix .optional LIBOMP_OMPT_OPTIONAL) libomp_append(libomp_suffix .optional LIBOMP_OMPT_OPTIONAL)
endif() endif()
string(REPLACE ";" "" libomp_suffix "${libomp_suffix}") string(REPLACE ";" "" libomp_suffix "${libomp_suffix}")
# Set exports locations # Set exports locations
▲ Show 20 Lines • Show All 56 Lines • ▼ Show 20 Linesif(WIN32)
if(NOT LIBOMPIMP_OUTPUT_DIRECTORY) if(NOT LIBOMPIMP_OUTPUT_DIRECTORY)
set(LIBOMPIMP_OUTPUT_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}) set(LIBOMPIMP_OUTPUT_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR})
endif() endif()
add_custom_command(TARGET ompimp POST_BUILD add_custom_command(TARGET ompimp POST_BUILD
COMMAND ${CMAKE_COMMAND} -E make_directory ${LIBOMP_EXPORTS_LIB_DIR} COMMAND ${CMAKE_COMMAND} -E make_directory ${LIBOMP_EXPORTS_LIB_DIR}
COMMAND ${CMAKE_COMMAND} -E copy ${LIBOMPIMP_OUTPUT_DIRECTORY}/${LIBOMP_IMP_LIB_FILE} ${LIBOMP_EXPORTS_LIB_DIR} COMMAND ${CMAKE_COMMAND} -E copy ${LIBOMPIMP_OUTPUT_DIRECTORY}/${LIBOMP_IMP_LIB_FILE} ${LIBOMP_EXPORTS_LIB_DIR}
) )
endif() endif()

runtime/cmake/LibompHandleFlags.cmake

Show First 20 Lines • Show All 192 Lines • ▼ Show 20 Linesfunction(libomp_get_gdflags gdflags)
endif() endif()
libomp_append(gdflags_local "-D ${libomp_gdflag_arch}") libomp_append(gdflags_local "-D ${libomp_gdflag_arch}")
libomp_append(gdflags_local "-D msvc_compat") libomp_append(gdflags_local "-D msvc_compat")
libomp_append(gdflags_local "-D norm" NORMAL_LIBRARY) libomp_append(gdflags_local "-D norm" NORMAL_LIBRARY)
libomp_append(gdflags_local "-D prof" PROFILE_LIBRARY) libomp_append(gdflags_local "-D prof" PROFILE_LIBRARY)
libomp_append(gdflags_local "-D stub" STUBS_LIBRARY) libomp_append(gdflags_local "-D stub" STUBS_LIBRARY)
libomp_append(gdflags_local "-D HAVE_QUAD" LIBOMP_USE_QUAD_PRECISION) libomp_append(gdflags_local "-D HAVE_QUAD" LIBOMP_USE_QUAD_PRECISION)
libomp_append(gdflags_local "-D USE_DEBUGGER" LIBOMP_USE_DEBUGGER) libomp_append(gdflags_local "-D USE_DEBUGGER" LIBOMP_USE_DEBUGGER)
if(${LIBOMP_OMP_VERSION} GREATER 50 OR ${LIBOMP_OMP_VERSION} EQUAL 50)
libomp_append(gdflags_local "-D OMP_50")
endif()
if(${LIBOMP_OMP_VERSION} GREATER 45 OR ${LIBOMP_OMP_VERSION} EQUAL 45)
libomp_append(gdflags_local "-D OMP_45")
endif()
if(${LIBOMP_OMP_VERSION} GREATER 40 OR ${LIBOMP_OMP_VERSION} EQUAL 40)
libomp_append(gdflags_local "-D OMP_40")
endif()
if(${LIBOMP_OMP_VERSION} GREATER 30 OR ${LIBOMP_OMP_VERSION} EQUAL 30)
libomp_append(gdflags_local "-D OMP_30")
endif()
if(${DEBUG_BUILD} OR ${RELWITHDEBINFO_BUILD}) if(${DEBUG_BUILD} OR ${RELWITHDEBINFO_BUILD})
libomp_append(gdflags_local "-D KMP_DEBUG") libomp_append(gdflags_local "-D KMP_DEBUG")
endif() endif()
set(${gdflags} ${gdflags_local} PARENT_SCOPE) set(${gdflags} ${gdflags_local} PARENT_SCOPE)
endfunction() endfunction()

runtime/src/CMakeLists.txt

Show First 20 Lines • Show All 91 Lines • ▼ Show 20 Lines else()
libomp_append(LIBOMP_CXXFILES z_Linux_util.cpp) libomp_append(LIBOMP_CXXFILES z_Linux_util.cpp)
libomp_append(LIBOMP_CXXFILES kmp_gsupport.cpp) libomp_append(LIBOMP_CXXFILES kmp_gsupport.cpp)
libomp_append(LIBOMP_ASMFILES z_Linux_asm.S) # Unix assembly file libomp_append(LIBOMP_ASMFILES z_Linux_asm.S) # Unix assembly file
endif() endif()
libomp_append(LIBOMP_CFILES thirdparty/ittnotify/ittnotify_static.c LIBOMP_USE_ITT_NOTIFY) libomp_append(LIBOMP_CFILES thirdparty/ittnotify/ittnotify_static.c LIBOMP_USE_ITT_NOTIFY)
libomp_append(LIBOMP_CXXFILES kmp_debugger.cpp LIBOMP_USE_DEBUGGER) libomp_append(LIBOMP_CXXFILES kmp_debugger.cpp LIBOMP_USE_DEBUGGER)
libomp_append(LIBOMP_CXXFILES kmp_stats.cpp LIBOMP_STATS) libomp_append(LIBOMP_CXXFILES kmp_stats.cpp LIBOMP_STATS)
libomp_append(LIBOMP_CXXFILES kmp_stats_timing.cpp LIBOMP_STATS) libomp_append(LIBOMP_CXXFILES kmp_stats_timing.cpp LIBOMP_STATS)
if(${LIBOMP_OMP_VERSION} GREATER 40 OR ${LIBOMP_OMP_VERSION} EQUAL 40)
libomp_append(LIBOMP_CXXFILES kmp_taskdeps.cpp) libomp_append(LIBOMP_CXXFILES kmp_taskdeps.cpp)
libomp_append(LIBOMP_CXXFILES kmp_cancel.cpp) libomp_append(LIBOMP_CXXFILES kmp_cancel.cpp)
endif() endif()
endif()
# Files common to stubs and normal library # Files common to stubs and normal library
libomp_append(LIBOMP_CXXFILES kmp_ftn_cdecl.cpp) libomp_append(LIBOMP_CXXFILES kmp_ftn_cdecl.cpp)
libomp_append(LIBOMP_CXXFILES kmp_ftn_extra.cpp) libomp_append(LIBOMP_CXXFILES kmp_ftn_extra.cpp)
libomp_append(LIBOMP_CXXFILES kmp_version.cpp) libomp_append(LIBOMP_CXXFILES kmp_version.cpp)
libomp_append(LIBOMP_CXXFILES ompt-general.cpp IF_TRUE LIBOMP_OMPT_SUPPORT) libomp_append(LIBOMP_CXXFILES ompt-general.cpp IF_TRUE LIBOMP_OMPT_SUPPORT)
libomp_append(LIBOMP_CXXFILES tsan_annotations.cpp IF_TRUE LIBOMP_TSAN_SUPPORT) libomp_append(LIBOMP_CXXFILES tsan_annotations.cpp IF_TRUE LIBOMP_TSAN_SUPPORT)
set(LIBOMP_SOURCE_FILES ${LIBOMP_CFILES} ${LIBOMP_CXXFILES} ${LIBOMP_ASMFILES}) set(LIBOMP_SOURCE_FILES ${LIBOMP_CFILES} ${LIBOMP_CXXFILES} ${LIBOMP_ASMFILES})
▲ Show 20 Lines • Show All 225 Lines • Show Last 20 Lines

runtime/src/dllexports

Show First 20 Lines • Show All 273 Lines • ▼ Show 20 Lines# __kmpc_ssp_set_max_threads 174
__kmpc_test_nest_lock 184 __kmpc_test_nest_lock 184
# __kmpc_ssp_init_thread 185 # __kmpc_ssp_init_thread 185
# __kmpc_ssp_set_event 186 # __kmpc_ssp_set_event 186
__kmpc_reduce_nowait 187 __kmpc_reduce_nowait 187
__kmpc_end_reduce_nowait 188 __kmpc_end_reduce_nowait 188
__kmpc_reduce 189 __kmpc_reduce 189
__kmpc_end_reduce 190 __kmpc_end_reduce 190
# OpenMP 3.0
%ifdef OMP_30
__kmpc_omp_task_alloc 191 __kmpc_omp_task_alloc 191
__kmpc_omp_task 192 __kmpc_omp_task 192
__kmpc_omp_taskwait 193 __kmpc_omp_taskwait 193
__kmpc_omp_task_begin_if0 196 __kmpc_omp_task_begin_if0 196
__kmpc_omp_task_complete_if0 197 __kmpc_omp_task_complete_if0 197
__kmpc_omp_task_parts 198 __kmpc_omp_task_parts 198
%endif # OMP_30
# __omp_collector_api 199 # __omp_collector_api 199
# These functions are for testing purposes. There is no need in stable ordinal number: # These functions are for testing purposes. There is no need in stable ordinal number:
__kmp_get_reduce_method __kmp_get_reduce_method
%endif # not defined stub %endif # not defined stub
Show All 15 Lines
kmpc_set_blocktime 211 kmpc_set_blocktime 211
kmpc_set_library 212 kmpc_set_library 212
# kmpc_set_parallel_name 213 # kmpc_set_parallel_name 213
kmpc_set_stacksize 216 kmpc_set_stacksize 216
kmpc_set_stacksize_s 222 kmpc_set_stacksize_s 222
# kmpc_set_stats 217 # kmpc_set_stats 217
kmpc_set_defaults 224 kmpc_set_defaults 224
# OMP 3.0 entry points for unsigned loop iteration variables
%ifndef stub %ifndef stub
%ifdef OMP_30
__kmpc_for_static_init_8u 225 __kmpc_for_static_init_8u 225
__kmpc_dispatch_init_8u 226 __kmpc_dispatch_init_8u 226
__kmpc_dispatch_next_8u 227 __kmpc_dispatch_next_8u 227
__kmpc_dispatch_fini_8u 228 __kmpc_dispatch_fini_8u 228
__kmpc_for_static_init_4u 229 __kmpc_for_static_init_4u 229
__kmpc_dispatch_init_4u 230 __kmpc_dispatch_init_4u 230
__kmpc_dispatch_next_4u 231 __kmpc_dispatch_next_4u 231
__kmpc_dispatch_fini_4u 232 __kmpc_dispatch_fini_4u 232
%endif # OMP_30
%endif %endif
%ifndef stub %ifndef stub
__kmpc_get_taskid 233 __kmpc_get_taskid 233
__kmpc_get_parent_taskid 234 __kmpc_get_parent_taskid 234
%endif %endif
# OpenMP 3.1 entry points
%ifndef stub %ifndef stub
%ifdef OMP_30
__kmpc_omp_taskyield 235 __kmpc_omp_taskyield 235
%endif # OMP_30
# __kmpc_place_threads 236 # __kmpc_place_threads 236
%endif %endif
# OpenMP 4.0 entry points
%ifndef stub %ifndef stub
%ifdef OMP_40
__kmpc_push_proc_bind 237 __kmpc_push_proc_bind 237
__kmpc_taskgroup 238 __kmpc_taskgroup 238
__kmpc_end_taskgroup 239 __kmpc_end_taskgroup 239
__kmpc_push_num_teams 240 __kmpc_push_num_teams 240
__kmpc_fork_teams 241 __kmpc_fork_teams 241
__kmpc_omp_task_with_deps 242 __kmpc_omp_task_with_deps 242
__kmpc_omp_wait_deps 243 __kmpc_omp_wait_deps 243
__kmpc_cancel 244 __kmpc_cancel 244
__kmpc_cancellationpoint 245 __kmpc_cancellationpoint 245
__kmpc_cancel_barrier 246 __kmpc_cancel_barrier 246
__kmpc_dist_for_static_init_4 247 __kmpc_dist_for_static_init_4 247
__kmpc_dist_for_static_init_4u 248 __kmpc_dist_for_static_init_4u 248
__kmpc_dist_for_static_init_8 249 __kmpc_dist_for_static_init_8 249
__kmpc_dist_for_static_init_8u 250 __kmpc_dist_for_static_init_8u 250
__kmpc_dist_dispatch_init_4 251 __kmpc_dist_dispatch_init_4 251
__kmpc_dist_dispatch_init_4u 252 __kmpc_dist_dispatch_init_4u 252
__kmpc_dist_dispatch_init_8 253 __kmpc_dist_dispatch_init_8 253
__kmpc_dist_dispatch_init_8u 254 __kmpc_dist_dispatch_init_8u 254
__kmpc_team_static_init_4 255 __kmpc_team_static_init_4 255
__kmpc_team_static_init_4u 256 __kmpc_team_static_init_4u 256
__kmpc_team_static_init_8 257 __kmpc_team_static_init_8 257
__kmpc_team_static_init_8u 258 __kmpc_team_static_init_8u 258
%endif # OMP_40
%endif %endif
# OpenMP 4.5 entry points
%ifndef stub %ifndef stub
%ifdef OMP_45
__kmpc_proxy_task_completed 259 __kmpc_proxy_task_completed 259
__kmpc_proxy_task_completed_ooo 260 __kmpc_proxy_task_completed_ooo 260
__kmpc_doacross_init 261 __kmpc_doacross_init 261
__kmpc_doacross_wait 262 __kmpc_doacross_wait 262
__kmpc_doacross_post 263 __kmpc_doacross_post 263
__kmpc_doacross_fini 264 __kmpc_doacross_fini 264
__kmpc_taskloop 266 __kmpc_taskloop 266
__kmpc_critical_with_hint 270 __kmpc_critical_with_hint 270
%endif %endif
%endif
kmpc_aligned_malloc 265 kmpc_aligned_malloc 265
kmpc_set_disp_num_buffers 267 kmpc_set_disp_num_buffers 267
# OpenMP 5.0 entry points
%ifndef stub %ifndef stub
%ifdef OMP_50
__kmpc_task_reduction_init 268 __kmpc_task_reduction_init 268
__kmpc_task_reduction_get_th_data 269 __kmpc_task_reduction_get_th_data 269
# USED FOR 4.5 __kmpc_critical_with_hint 270 # USED ABOVE __kmpc_critical_with_hint 270
__kmpc_get_target_offload 271 __kmpc_get_target_offload 271
__kmpc_omp_reg_task_with_affinity 272 __kmpc_omp_reg_task_with_affinity 272
__kmpc_pause_resource 273 __kmpc_pause_resource 273
__kmpc_task_reduction_modifier_init 274 __kmpc_task_reduction_modifier_init 274
__kmpc_task_reduction_modifier_fini 275 __kmpc_task_reduction_modifier_fini 275
__kmpc_task_allow_completion_event 276 __kmpc_task_allow_completion_event 276
__kmpc_taskred_init 277 __kmpc_taskred_init 277
__kmpc_taskred_modifier_init 278 __kmpc_taskred_modifier_init 278
%endif %endif
%endif
# User API entry points that have both lower- and upper- case versions for Fortran. # User API entry points that have both lower- and upper- case versions for Fortran.
# Number for lowercase version is indicated. Number for uppercase is obtained by adding 1000. # Number for lowercase version is indicated. Number for uppercase is obtained by adding 1000.
# User API entry points are entry points that start with 'kmp_' or 'omp_'. # User API entry points are entry points that start with 'kmp_' or 'omp_'.
omp_destroy_lock 700 omp_destroy_lock 700
omp_destroy_nest_lock 701 omp_destroy_nest_lock 701
omp_get_dynamic 702 omp_get_dynamic 702
Show All 40 Lines
kmp_get_num_known_threads 743 kmp_get_num_known_threads 743
kmp_set_stacksize_s 744 kmp_set_stacksize_s 744
kmp_get_stacksize_s 745 kmp_get_stacksize_s 745
kmp_set_defaults 746 kmp_set_defaults 746
kmp_aligned_malloc 747 kmp_aligned_malloc 747
kmp_set_warnings_on 779 kmp_set_warnings_on 779
kmp_set_warnings_off 780 kmp_set_warnings_off 780
%ifdef OMP_30
omp_get_active_level 789 omp_get_active_level 789
omp_get_level 790 omp_get_level 790
omp_get_ancestor_thread_num 791 omp_get_ancestor_thread_num 791
omp_get_team_size 792 omp_get_team_size 792
omp_get_thread_limit 793 omp_get_thread_limit 793
omp_get_max_active_levels 794 omp_get_max_active_levels 794
omp_set_max_active_levels 795 omp_set_max_active_levels 795
omp_get_schedule 796 omp_get_schedule 796
omp_set_schedule 797 omp_set_schedule 797
ompc_set_max_active_levels 798 ompc_set_max_active_levels 798
ompc_set_schedule 799 ompc_set_schedule 799
ompc_get_ancestor_thread_num 800 ompc_get_ancestor_thread_num 800
ompc_get_team_size 801 ompc_get_team_size 801
kmp_set_affinity 850 kmp_set_affinity 850
kmp_get_affinity 851 kmp_get_affinity 851
kmp_get_affinity_max_proc 852 kmp_get_affinity_max_proc 852
kmp_create_affinity_mask 853 kmp_create_affinity_mask 853
kmp_destroy_affinity_mask 854 kmp_destroy_affinity_mask 854
kmp_set_affinity_mask_proc 855 kmp_set_affinity_mask_proc 855
kmpc_set_affinity_mask_proc 856 kmpc_set_affinity_mask_proc 856
kmp_unset_affinity_mask_proc 857 kmp_unset_affinity_mask_proc 857
kmpc_unset_affinity_mask_proc 858 kmpc_unset_affinity_mask_proc 858
kmp_get_affinity_mask_proc 859 kmp_get_affinity_mask_proc 859
kmpc_get_affinity_mask_proc 860 kmpc_get_affinity_mask_proc 860
%endif # OMP_30
# OpenMP 3.1
%ifdef OMP_30
omp_in_final 861 omp_in_final 861
%endif # OMP_30
# OpenMP 40
%ifdef OMP_40
omp_get_proc_bind 862 omp_get_proc_bind 862
#omp_set_proc_bind 863 #omp_set_proc_bind 863
#omp_curr_proc_bind 864 #omp_curr_proc_bind 864
omp_get_num_teams 865 omp_get_num_teams 865
omp_get_team_num 866 omp_get_team_num 866
omp_get_cancellation 867 omp_get_cancellation 867
kmp_get_cancellation_status 868 kmp_get_cancellation_status 868
omp_is_initial_device 869 omp_is_initial_device 869
omp_set_default_device 879 omp_set_default_device 879
omp_get_default_device 880 omp_get_default_device 880
omp_get_num_devices 881 omp_get_num_devices 881
%endif # OMP_40
# OpenMP 45
%ifdef OMP_45
omp_init_lock_with_hint 870 omp_init_lock_with_hint 870
omp_init_nest_lock_with_hint 871 omp_init_nest_lock_with_hint 871
omp_get_max_task_priority 872 omp_get_max_task_priority 872
omp_get_num_places 873 omp_get_num_places 873
omp_get_place_num_procs 874 omp_get_place_num_procs 874
omp_get_place_proc_ids 875 omp_get_place_proc_ids 875
omp_get_place_num 876 omp_get_place_num 876
omp_get_partition_num_places 877 omp_get_partition_num_places 877
omp_get_partition_place_nums 878 omp_get_partition_place_nums 878
omp_get_initial_device 882 omp_get_initial_device 882
%ifdef stub %ifdef stub
omp_target_alloc 883 omp_target_alloc 883
omp_target_free 884 omp_target_free 884
omp_target_is_present 885 omp_target_is_present 885
omp_target_memcpy 886 omp_target_memcpy 886
omp_target_memcpy_rect 887 omp_target_memcpy_rect 887
omp_target_associate_ptr 888 omp_target_associate_ptr 888
omp_target_disassociate_ptr 889 omp_target_disassociate_ptr 889
%endif %endif
%endif # OMP_45
kmp_set_disp_num_buffers 890 kmp_set_disp_num_buffers 890
%ifdef OMP_50
omp_control_tool 891 omp_control_tool 891
omp_set_default_allocator 892 omp_set_default_allocator 892
omp_get_default_allocator 893 omp_get_default_allocator 893
omp_alloc 894 omp_alloc 894
omp_free 895 omp_free 895
omp_get_device_num 896 omp_get_device_num 896
omp_init_allocator 897 omp_init_allocator 897
omp_destroy_allocator 898 omp_destroy_allocator 898
Show All 28 Lineskmp_set_disp_num_buffers 890
omp_pteam_mem_alloc DATA omp_pteam_mem_alloc DATA
omp_thread_mem_alloc DATA omp_thread_mem_alloc DATA
omp_default_mem_space DATA omp_default_mem_space DATA
omp_large_cap_mem_space DATA omp_large_cap_mem_space DATA
omp_const_mem_space DATA omp_const_mem_space DATA
omp_high_bw_mem_space DATA omp_high_bw_mem_space DATA
omp_low_lat_mem_space DATA omp_low_lat_mem_space DATA
%endif # OMP_50
%ifndef stub %ifndef stub
# Ordinals between 900 and 999 are reserved # Ordinals between 900 and 999 are reserved
# Ordinals between 1000 and 1999 are reserved # Ordinals between 1000 and 1999 are reserved
# for user-callable uppercase Fortran entries. # for user-callable uppercase Fortran entries.
▲ Show 20 Lines • Show All 433 Lines • ▼ Show 20 Lines %ifndef arch_64
__kmpc_atomic_float8_div_cpt_fp __kmpc_atomic_float8_div_cpt_fp
__kmpc_atomic_float10_add_cpt_fp __kmpc_atomic_float10_add_cpt_fp
__kmpc_atomic_float10_sub_cpt_fp __kmpc_atomic_float10_sub_cpt_fp
__kmpc_atomic_float10_mul_cpt_fp __kmpc_atomic_float10_mul_cpt_fp
__kmpc_atomic_float10_div_cpt_fp __kmpc_atomic_float10_div_cpt_fp
%endif %endif
%ifdef OMP_40
# ATOMIC extensions for OpenMP 4.0 spec (x86 and x64 only) # ATOMIC extensions for OpenMP 4.0 spec (x86 and x64 only)
__kmpc_atomic_fixed1_swp 2412 __kmpc_atomic_fixed1_swp 2412
__kmpc_atomic_fixed2_swp 2413 __kmpc_atomic_fixed2_swp 2413
__kmpc_atomic_fixed4_swp 2414 __kmpc_atomic_fixed4_swp 2414
__kmpc_atomic_fixed8_swp 2415 __kmpc_atomic_fixed8_swp 2415
__kmpc_atomic_float4_swp 2416 __kmpc_atomic_float4_swp 2416
__kmpc_atomic_float8_swp 2417 __kmpc_atomic_float8_swp 2417
▲ Show 20 Lines • Show All 158 Lines • ▼ Show 20 Lines %ifndef arch_64
__kmpc_atomic_fixed8u_div_cpt_rev_fp __kmpc_atomic_fixed8u_div_cpt_rev_fp
__kmpc_atomic_float4_sub_cpt_rev_fp __kmpc_atomic_float4_sub_cpt_rev_fp
__kmpc_atomic_float4_div_cpt_rev_fp __kmpc_atomic_float4_div_cpt_rev_fp
__kmpc_atomic_float8_sub_cpt_rev_fp __kmpc_atomic_float8_sub_cpt_rev_fp
__kmpc_atomic_float8_div_cpt_rev_fp __kmpc_atomic_float8_div_cpt_rev_fp
__kmpc_atomic_float10_sub_cpt_rev_fp __kmpc_atomic_float10_sub_cpt_rev_fp
__kmpc_atomic_float10_div_cpt_rev_fp __kmpc_atomic_float10_div_cpt_rev_fp
%endif %endif
%endif # OMP_40
%endif # arch_64 %endif # arch_64
%ifdef HAVE_QUAD %ifdef HAVE_QUAD
__kmpc_atomic_fixed1u_add_fp __kmpc_atomic_fixed1u_add_fp
__kmpc_atomic_fixed1u_sub_fp __kmpc_atomic_fixed1u_sub_fp
__kmpc_atomic_fixed1u_mul_fp __kmpc_atomic_fixed1u_mul_fp
__kmpc_atomic_fixed2u_add_fp __kmpc_atomic_fixed2u_add_fp
Show All 13 Lines

runtime/src/include/30/omp.h.var

/*
* include/30/omp.h.var
*/
//===----------------------------------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#ifndef __OMP_H
# define __OMP_H
# define KMP_VERSION_MAJOR @LIBOMP_VERSION_MAJOR@
# define KMP_VERSION_MINOR @LIBOMP_VERSION_MINOR@
# define KMP_VERSION_BUILD @LIBOMP_VERSION_BUILD@
# define KMP_BUILD_DATE "@LIBOMP_BUILD_DATE@"
# ifdef __cplusplus
extern "C" {
# endif
# define omp_set_num_threads ompc_set_num_threads
# define omp_set_dynamic ompc_set_dynamic
# define omp_set_nested ompc_set_nested
# define omp_set_max_active_levels ompc_set_max_active_levels
# define omp_set_schedule ompc_set_schedule
# define omp_get_ancestor_thread_num ompc_get_ancestor_thread_num
# define omp_get_team_size ompc_get_team_size
# define kmp_set_stacksize kmpc_set_stacksize
# define kmp_set_stacksize_s kmpc_set_stacksize_s
# define kmp_set_blocktime kmpc_set_blocktime
# define kmp_set_library kmpc_set_library
# define kmp_set_defaults kmpc_set_defaults
# define kmp_set_affinity_mask_proc kmpc_set_affinity_mask_proc
# define kmp_unset_affinity_mask_proc kmpc_unset_affinity_mask_proc
# define kmp_get_affinity_mask_proc kmpc_get_affinity_mask_proc
# define kmp_malloc kmpc_malloc
# define kmp_calloc kmpc_calloc
# define kmp_realloc kmpc_realloc
# define kmp_free kmpc_free
# if defined(_WIN32)
# define __KAI_KMPC_CONVENTION __cdecl
# else
# define __KAI_KMPC_CONVENTION
# endif
/* schedule kind constants */
typedef enum omp_sched_t {
omp_sched_static = 1,
omp_sched_dynamic = 2,
omp_sched_guided = 3,
omp_sched_auto = 4
} omp_sched_t;
/* set API functions */
extern void __KAI_KMPC_CONVENTION omp_set_num_threads (int);
extern void __KAI_KMPC_CONVENTION omp_set_dynamic (int);
extern void __KAI_KMPC_CONVENTION omp_set_nested (int);
extern void __KAI_KMPC_CONVENTION omp_set_max_active_levels (int);
extern void __KAI_KMPC_CONVENTION omp_set_schedule (omp_sched_t, int);
/* query API functions */
extern int __KAI_KMPC_CONVENTION omp_get_num_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_dynamic (void);
extern int __KAI_KMPC_CONVENTION omp_get_nested (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_thread_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_procs (void);
extern int __KAI_KMPC_CONVENTION omp_in_parallel (void);
extern int __KAI_KMPC_CONVENTION omp_in_final (void);
extern int __KAI_KMPC_CONVENTION omp_get_active_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_ancestor_thread_num (int);
extern int __KAI_KMPC_CONVENTION omp_get_team_size (int);
extern int __KAI_KMPC_CONVENTION omp_get_thread_limit (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_active_levels (void);
extern void __KAI_KMPC_CONVENTION omp_get_schedule (omp_sched_t *, int *);
/* lock API functions */
typedef struct omp_lock_t {
void * _lk;
} omp_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_lock (omp_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_lock (omp_lock_t *);
/* nested lock API functions */
typedef struct omp_nest_lock_t {
void * _lk;
} omp_nest_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_nest_lock (omp_nest_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_nest_lock (omp_nest_lock_t *);
/* time API functions */
extern double __KAI_KMPC_CONVENTION omp_get_wtime (void);
extern double __KAI_KMPC_CONVENTION omp_get_wtick (void);
# include <stdlib.h>
/* kmp API functions */
extern int __KAI_KMPC_CONVENTION kmp_get_stacksize (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize (int);
extern size_t __KAI_KMPC_CONVENTION kmp_get_stacksize_s (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize_s (size_t);
extern int __KAI_KMPC_CONVENTION kmp_get_blocktime (void);
extern int __KAI_KMPC_CONVENTION kmp_get_library (void);
extern void __KAI_KMPC_CONVENTION kmp_set_blocktime (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library_serial (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_turnaround (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_throughput (void);
extern void __KAI_KMPC_CONVENTION kmp_set_defaults (char const *);
/* affinity API functions */
typedef void * kmp_affinity_mask_t;
extern int __KAI_KMPC_CONVENTION kmp_set_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_max_proc (void);
extern void __KAI_KMPC_CONVENTION kmp_create_affinity_mask (kmp_affinity_mask_t *);
extern void __KAI_KMPC_CONVENTION kmp_destroy_affinity_mask (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_set_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern void * __KAI_KMPC_CONVENTION kmp_malloc (size_t);
extern void * __KAI_KMPC_CONVENTION kmp_aligned_malloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_calloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_realloc (void *, size_t);
extern void __KAI_KMPC_CONVENTION kmp_free (void *);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_on(void);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_off(void);
# undef __KAI_KMPC_CONVENTION
/* Warning:
The following typedefs are not standard, deprecated and will be removed in a future release.
*/
typedef int omp_int_t;
typedef double omp_wtime_t;
# ifdef __cplusplus
}
# endif
#endif /* __OMP_H */

runtime/src/include/30/omp_lib.h.var

! include/30/omp_lib.h.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
!***
!*** Some of the directives for the following routine extend past column 72,
!*** so process this file in 132-column mode.
!***
!dec$ fixedformlinesize:132
integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = 4
integer, parameter :: omp_lock_kind = int_ptr_kind()
integer, parameter :: omp_nest_lock_kind = int_ptr_kind()
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = int_ptr_kind()
integer, parameter :: kmp_size_t_kind = int_ptr_kind()
integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*) kmp_build_date
parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(nthreads)
import
integer (kind=omp_integer_kind) nthreads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(enable)
import
logical (kind=omp_logical_kind) enable
end subroutine omp_set_dynamic
subroutine omp_set_nested(enable)
import
logical (kind=omp_logical_kind) enable
end subroutine omp_set_nested
function omp_get_num_threads()
import
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads()
import
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num()
import
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs()
import
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel()
import
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final()
import
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic()
import
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested()
import
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit()
import
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels)
import
integer (kind=omp_integer_kind) max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels()
import
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level()
import
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level()
import
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level)
import
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
end function omp_get_ancestor_thread_num
function omp_get_team_size(level)
import
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_team_size
end function omp_get_team_size
subroutine omp_set_schedule(kind, modifier)
import
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) modifier
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, modifier)
import
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) modifier
end subroutine omp_get_schedule
function omp_get_wtime()
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick ()
double precision omp_get_wtick
end function omp_get_wtick
subroutine omp_init_lock(lockvar)
import
integer (kind=omp_lock_kind) lockvar
end subroutine omp_init_lock
subroutine omp_destroy_lock(lockvar)
import
integer (kind=omp_lock_kind) lockvar
end subroutine omp_destroy_lock
subroutine omp_set_lock(lockvar)
import
integer (kind=omp_lock_kind) lockvar
end subroutine omp_set_lock
subroutine omp_unset_lock(lockvar)
import
integer (kind=omp_lock_kind) lockvar
end subroutine omp_unset_lock
function omp_test_lock(lockvar)
import
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) lockvar
end function omp_test_lock
subroutine omp_init_nest_lock(lockvar)
import
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(lockvar)
import
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(lockvar)
import
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(lockvar)
import
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(lockvar)
import
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) lockvar
end function omp_test_nest_lock
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size)
import
integer (kind=omp_integer_kind) size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size)
import
integer (kind=kmp_size_t_kind) size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec)
import
integer (kind=omp_integer_kind) msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial()
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround()
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput()
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum)
import
integer (kind=omp_integer_kind) libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string)
character*(*) string
end subroutine kmp_set_defaults
function kmp_get_stacksize()
import
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s()
import
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime()
import
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library()
import
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
function kmp_set_affinity(mask)
import
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask)
import
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc()
import
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask)
import
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask)
import
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask)
import
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size)
import
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind) size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment)
import
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind) size
integer (kind=kmp_size_t_kind) alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize)
import
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind) nelem
integer (kind=kmp_size_t_kind) elsize
end function kmp_calloc
function kmp_realloc(ptr, size)
import
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind) ptr
integer (kind=kmp_size_t_kind) size
end function kmp_realloc
subroutine kmp_free(ptr)
import
integer (kind=kmp_pointer_kind) ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on()
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off()
end subroutine kmp_set_warnings_off
end interface
!dec$ if defined(_WIN32)
!dec$ if defined(_WIN64) .or. defined(_M_AMD64)
!***
!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
!*** option is specified. The alias attribute ensures that the specified
!*** string is used as the entry point.
!***
!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
!*** underscore prepended. On the Windows* OS Intel(R) 64
!*** architecture, no underscore is prepended.
!***
!dec$ attributes alias:'OMP_SET_NUM_THREADS'::omp_set_num_threads
!dec$ attributes alias:'OMP_SET_DYNAMIC'::omp_set_dynamic
!dec$ attributes alias:'OMP_SET_NESTED'::omp_set_nested
!dec$ attributes alias:'OMP_GET_NUM_THREADS'::omp_get_num_threads
!dec$ attributes alias:'OMP_GET_MAX_THREADS'::omp_get_max_threads
!dec$ attributes alias:'OMP_GET_THREAD_NUM'::omp_get_thread_num
!dec$ attributes alias:'OMP_GET_NUM_PROCS'::omp_get_num_procs
!dec$ attributes alias:'OMP_IN_PARALLEL'::omp_in_parallel
!dec$ attributes alias:'OMP_IN_FINAL'::omp_in_final
!dec$ attributes alias:'OMP_GET_DYNAMIC'::omp_get_dynamic
!dec$ attributes alias:'OMP_GET_NESTED'::omp_get_nested
!dec$ attributes alias:'OMP_GET_THREAD_LIMIT'::omp_get_thread_limit
!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS'::omp_set_max_active_levels
!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS'::omp_get_max_active_levels
!dec$ attributes alias:'OMP_GET_LEVEL'::omp_get_level
!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL'::omp_get_active_level
!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM'::omp_get_ancestor_thread_num
!dec$ attributes alias:'OMP_GET_TEAM_SIZE'::omp_get_team_size
!dec$ attributes alias:'OMP_SET_SCHEDULE'::omp_set_schedule
!dec$ attributes alias:'OMP_GET_SCHEDULE'::omp_get_schedule
!dec$ attributes alias:'OMP_GET_WTIME'::omp_get_wtime
!dec$ attributes alias:'OMP_GET_WTICK'::omp_get_wtick
!dec$ attributes alias:'omp_init_lock'::omp_init_lock
!dec$ attributes alias:'omp_destroy_lock'::omp_destroy_lock
!dec$ attributes alias:'omp_set_lock'::omp_set_lock
!dec$ attributes alias:'omp_unset_lock'::omp_unset_lock
!dec$ attributes alias:'omp_test_lock'::omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock'::omp_init_nest_lock
!dec$ attributes alias:'omp_destroy_nest_lock'::omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock'::omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock'::omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock'::omp_test_nest_lock
!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'KMP_SET_DEFAULTS'::kmp_set_defaults
!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'KMP_FREE'::kmp_free
!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ else
!***
!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
!***
!dec$ attributes alias:'_OMP_SET_NUM_THREADS'::omp_set_num_threads
!dec$ attributes alias:'_OMP_SET_DYNAMIC'::omp_set_dynamic
!dec$ attributes alias:'_OMP_SET_NESTED'::omp_set_nested
!dec$ attributes alias:'_OMP_GET_NUM_THREADS'::omp_get_num_threads
!dec$ attributes alias:'_OMP_GET_MAX_THREADS'::omp_get_max_threads
!dec$ attributes alias:'_OMP_GET_THREAD_NUM'::omp_get_thread_num
!dec$ attributes alias:'_OMP_GET_NUM_PROCS'::omp_get_num_procs
!dec$ attributes alias:'_OMP_IN_PARALLEL'::omp_in_parallel
!dec$ attributes alias:'_OMP_IN_FINAL'::omp_in_final
!dec$ attributes alias:'_OMP_GET_DYNAMIC'::omp_get_dynamic
!dec$ attributes alias:'_OMP_GET_NESTED'::omp_get_nested
!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT'::omp_get_thread_limit
!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS'::omp_set_max_active_levels
!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS'::omp_get_max_active_levels
!dec$ attributes alias:'_OMP_GET_LEVEL'::omp_get_level
!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL'::omp_get_active_level
!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM'::omp_get_ancestor_thread_num
!dec$ attributes alias:'_OMP_GET_TEAM_SIZE'::omp_get_team_size
!dec$ attributes alias:'_OMP_SET_SCHEDULE'::omp_set_schedule
!dec$ attributes alias:'_OMP_GET_SCHEDULE'::omp_get_schedule
!dec$ attributes alias:'_OMP_GET_WTIME'::omp_get_wtime
!dec$ attributes alias:'_OMP_GET_WTICK'::omp_get_wtick
!dec$ attributes alias:'_omp_init_lock'::omp_init_lock
!dec$ attributes alias:'_omp_destroy_lock'::omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock'::omp_set_lock
!dec$ attributes alias:'_omp_unset_lock'::omp_unset_lock
!dec$ attributes alias:'_omp_test_lock'::omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock'::omp_init_nest_lock
!dec$ attributes alias:'_omp_destroy_nest_lock'::omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock'::omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock'::omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock'::omp_test_nest_lock
!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'_KMP_SET_DEFAULTS'::kmp_set_defaults
!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'_KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'_KMP_FREE'::kmp_free
!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ endif
!dec$ endif
!dec$ if defined(__linux)
!***
!*** The Linux* OS entry points are in lowercase, with an underscore appended.
!***
!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'omp_in_final_'::omp_in_final
!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'omp_get_level_'::omp_get_level
!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'kmp_set_defaults_'::kmp_set_defaults
!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'kmp_free_'::kmp_free
!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ endif
!dec$ if defined(__APPLE__)
!***
!*** The Mac entry points are in lowercase, with an both an underscore
!*** appended and an underscore prepended.
!***
!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'_omp_in_final_'::omp_in_final
!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'_omp_get_level_'::omp_get_level
!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'_kmp_set_defaults_'::kmp_set_defaults
!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'_kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'_kmp_free_'::kmp_free
!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ endif

runtime/src/include/30/omp_lib.f.var

! include/30/omp_lib.f.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
!***
!*** Some of the directives for the following routine extend past column 72,
!*** so process this file in 132-column mode.
!***
!dec$ fixedformlinesize:132
module omp_lib_kinds
integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = 4
integer, parameter :: omp_lock_kind = int_ptr_kind()
integer, parameter :: omp_nest_lock_kind = int_ptr_kind()
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = int_ptr_kind()
integer, parameter :: kmp_size_t_kind = int_ptr_kind()
integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*), parameter :: kmp_build_date = '@LIBOMP_BUILD_DATE@'
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(nthreads)
use omp_lib_kinds
integer (kind=omp_integer_kind) nthreads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(enable)
use omp_lib_kinds
logical (kind=omp_logical_kind) enable
end subroutine omp_set_dynamic
subroutine omp_set_nested(enable)
use omp_lib_kinds
logical (kind=omp_logical_kind) enable
end subroutine omp_set_nested
function omp_get_num_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_get_dynamic()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels)
use omp_lib_kinds
integer (kind=omp_integer_kind) max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
end function omp_get_ancestor_thread_num
function omp_get_team_size(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_team_size
end function omp_get_team_size
subroutine omp_set_schedule(kind, modifier)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) modifier
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, modifier)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) modifier
end subroutine omp_get_schedule
function omp_get_wtime()
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick ()
double precision omp_get_wtick
end function omp_get_wtick
subroutine omp_init_lock(lockvar)
use omp_lib_kinds
integer (kind=omp_lock_kind) lockvar
end subroutine omp_init_lock
subroutine omp_destroy_lock(lockvar)
use omp_lib_kinds
integer (kind=omp_lock_kind) lockvar
end subroutine omp_destroy_lock
subroutine omp_set_lock(lockvar)
use omp_lib_kinds
integer (kind=omp_lock_kind) lockvar
end subroutine omp_set_lock
subroutine omp_unset_lock(lockvar)
use omp_lib_kinds
integer (kind=omp_lock_kind) lockvar
end subroutine omp_unset_lock
function omp_test_lock(lockvar)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) lockvar
end function omp_test_lock
subroutine omp_init_nest_lock(lockvar)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(lockvar)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(lockvar)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(lockvar)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(lockvar)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) lockvar
end function omp_test_nest_lock
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size)
use omp_lib_kinds
integer (kind=omp_integer_kind) size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec)
use omp_lib_kinds
integer (kind=omp_integer_kind) msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial()
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround()
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput()
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum)
use omp_lib_kinds
integer (kind=omp_integer_kind) libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string)
character*(*) string
end subroutine kmp_set_defaults
function kmp_get_stacksize()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s()
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
function kmp_set_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind) size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind) size
integer (kind=kmp_size_t_kind) alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind) nelem
integer (kind=kmp_size_t_kind) elsize
end function kmp_calloc
function kmp_realloc(ptr, size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind) ptr
integer (kind=kmp_size_t_kind) size
end function kmp_realloc
subroutine kmp_free(ptr)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on()
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off()
end subroutine kmp_set_warnings_off
end interface
!dec$ if defined(_WIN32)
!dec$ if defined(_WIN64) .or. defined(_M_AMD64)
!***
!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
!*** option is specified. The alias attribute ensures that the specified
!*** string is used as the entry point.
!***
!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
!*** underscore prepended. On the Windows* OS Intel(R) 64
!*** architecture, no underscore is prepended.
!***
!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'KMP_FREE'::kmp_free
!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ else
!***
!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
!***
!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'_KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'_KMP_FREE'::kmp_free
!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ endif
!dec$ endif
!dec$ if defined(__linux)
!***
!*** The Linux* OS entry points are in lowercase, with an underscore appended.
!***
!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'omp_get_level_'::omp_get_level
!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'kmp_free_'::kmp_free
!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ endif
!dec$ if defined(__APPLE__)
!***
!*** The Mac entry points are in lowercase, with an both an underscore
!*** appended and an underscore prepended.
!***
!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'_omp_get_level_'::omp_get_level
!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'_kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'_kmp_free_'::kmp_free
!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ endif
end module omp_lib

runtime/src/include/30/omp_lib.f90.var

! include/30/omp_lib.f90.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
module omp_lib_kinds
use, intrinsic :: iso_c_binding
integer, parameter :: omp_integer_kind = c_int
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = c_float
integer, parameter :: kmp_double_kind = c_double
integer, parameter :: omp_lock_kind = c_intptr_t
integer, parameter :: omp_nest_lock_kind = c_intptr_t
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = c_intptr_t
integer, parameter :: kmp_size_t_kind = c_size_t
integer, parameter :: kmp_affinity_mask_kind = c_intptr_t
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*) kmp_build_date
parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(nthreads) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: nthreads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(enable) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: enable
end subroutine omp_set_dynamic
subroutine omp_set_nested(enable) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: enable
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) :: omp_get_level
end function omp_get_level
function omp_get_active_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) :: omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
integer (kind=omp_integer_kind), value :: level
end function omp_get_ancestor_thread_num
function omp_get_team_size(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_size
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
subroutine omp_set_schedule(kind, modifier) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind), value :: kind
integer (kind=omp_integer_kind), value :: modifier
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, modifier) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind) :: kind
integer (kind=omp_integer_kind) :: modifier
end subroutine omp_get_schedule
function omp_get_wtime() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtime
end function omp_get_wtime
function omp_get_wtick() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtick
end function omp_get_wtick
subroutine omp_init_lock(lockvar) bind(c)
use omp_lib_kinds
integer (kind=omp_lock_kind) lockvar
end subroutine omp_init_lock
subroutine omp_destroy_lock(lockvar) bind(c)
use omp_lib_kinds
integer (kind=omp_lock_kind) lockvar
end subroutine omp_destroy_lock
subroutine omp_set_lock(lockvar) bind(c)
use omp_lib_kinds
integer (kind=omp_lock_kind) lockvar
end subroutine omp_set_lock
subroutine omp_unset_lock(lockvar) bind(c)
use omp_lib_kinds
integer (kind=omp_lock_kind) lockvar
end subroutine omp_unset_lock
function omp_test_lock(lockvar) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) lockvar
end function omp_test_lock
subroutine omp_init_nest_lock(lockvar) bind(c)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(lockvar) bind(c)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(lockvar) bind(c)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(lockvar) bind(c)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) lockvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(lockvar) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) lockvar
end function omp_test_nest_lock
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind), value :: size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial() bind(c)
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround() bind(c)
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput() bind(c)
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string) bind(c)
use, intrinsic :: iso_c_binding
character (kind=c_char) :: string(*)
end subroutine kmp_set_defaults
function kmp_get_stacksize() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s() bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
function kmp_set_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind), value :: size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind), value :: size
integer (kind=kmp_size_t_kind), value :: alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind), value :: nelem
integer (kind=kmp_size_t_kind), value :: elsize
end function kmp_calloc
function kmp_realloc(ptr, size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind), value :: ptr
integer (kind=kmp_size_t_kind), value :: size
end function kmp_realloc
subroutine kmp_free(ptr) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind), value :: ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on() bind(c)
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
end interface
end module omp_lib

runtime/src/include/40/omp.h.var

/*
* include/40/omp.h.var
*/
//===----------------------------------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#ifndef __OMP_H
# define __OMP_H
# define KMP_VERSION_MAJOR @LIBOMP_VERSION_MAJOR@
# define KMP_VERSION_MINOR @LIBOMP_VERSION_MINOR@
# define KMP_VERSION_BUILD @LIBOMP_VERSION_BUILD@
# define KMP_BUILD_DATE "@LIBOMP_BUILD_DATE@"
# ifdef __cplusplus
extern "C" {
# endif
# if defined(_WIN32)
# define __KAI_KMPC_CONVENTION __cdecl
# else
# define __KAI_KMPC_CONVENTION
# endif
/* schedule kind constants */
typedef enum omp_sched_t {
omp_sched_static = 1,
omp_sched_dynamic = 2,
omp_sched_guided = 3,
omp_sched_auto = 4
} omp_sched_t;
/* set API functions */
extern void __KAI_KMPC_CONVENTION omp_set_num_threads (int);
extern void __KAI_KMPC_CONVENTION omp_set_dynamic (int);
extern void __KAI_KMPC_CONVENTION omp_set_nested (int);
extern void __KAI_KMPC_CONVENTION omp_set_max_active_levels (int);
extern void __KAI_KMPC_CONVENTION omp_set_schedule (omp_sched_t, int);
/* query API functions */
extern int __KAI_KMPC_CONVENTION omp_get_num_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_dynamic (void);
extern int __KAI_KMPC_CONVENTION omp_get_nested (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_thread_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_procs (void);
extern int __KAI_KMPC_CONVENTION omp_in_parallel (void);
extern int __KAI_KMPC_CONVENTION omp_in_final (void);
extern int __KAI_KMPC_CONVENTION omp_get_active_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_ancestor_thread_num (int);
extern int __KAI_KMPC_CONVENTION omp_get_team_size (int);
extern int __KAI_KMPC_CONVENTION omp_get_thread_limit (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_active_levels (void);
extern void __KAI_KMPC_CONVENTION omp_get_schedule (omp_sched_t *, int *);
/* lock API functions */
typedef struct omp_lock_t {
void * _lk;
} omp_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_lock (omp_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_lock (omp_lock_t *);
/* nested lock API functions */
typedef struct omp_nest_lock_t {
void * _lk;
} omp_nest_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_nest_lock (omp_nest_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_nest_lock (omp_nest_lock_t *);
/* time API functions */
extern double __KAI_KMPC_CONVENTION omp_get_wtime (void);
extern double __KAI_KMPC_CONVENTION omp_get_wtick (void);
/* OpenMP 4.0 */
extern int __KAI_KMPC_CONVENTION omp_get_default_device (void);
extern void __KAI_KMPC_CONVENTION omp_set_default_device (int);
extern int __KAI_KMPC_CONVENTION omp_is_initial_device (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_devices (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_teams (void);
extern int __KAI_KMPC_CONVENTION omp_get_team_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_cancellation (void);
# include <stdlib.h>
/* kmp API functions */
extern int __KAI_KMPC_CONVENTION kmp_get_stacksize (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize (int);
extern size_t __KAI_KMPC_CONVENTION kmp_get_stacksize_s (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize_s (size_t);
extern int __KAI_KMPC_CONVENTION kmp_get_blocktime (void);
extern int __KAI_KMPC_CONVENTION kmp_get_library (void);
extern void __KAI_KMPC_CONVENTION kmp_set_blocktime (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library_serial (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_turnaround (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_throughput (void);
extern void __KAI_KMPC_CONVENTION kmp_set_defaults (char const *);
/* Intel affinity API */
typedef void * kmp_affinity_mask_t;
extern int __KAI_KMPC_CONVENTION kmp_set_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_max_proc (void);
extern void __KAI_KMPC_CONVENTION kmp_create_affinity_mask (kmp_affinity_mask_t *);
extern void __KAI_KMPC_CONVENTION kmp_destroy_affinity_mask (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_set_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_mask_proc (int, kmp_affinity_mask_t *);
/* OpenMP 4.0 affinity API */
typedef enum omp_proc_bind_t {
omp_proc_bind_false = 0,
omp_proc_bind_true = 1,
omp_proc_bind_master = 2,
omp_proc_bind_close = 3,
omp_proc_bind_spread = 4
} omp_proc_bind_t;
extern omp_proc_bind_t __KAI_KMPC_CONVENTION omp_get_proc_bind (void);
extern void * __KAI_KMPC_CONVENTION kmp_malloc (size_t);
extern void * __KAI_KMPC_CONVENTION kmp_aligned_malloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_calloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_realloc (void *, size_t);
extern void __KAI_KMPC_CONVENTION kmp_free (void *);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_on(void);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_off(void);
# undef __KAI_KMPC_CONVENTION
/* Warning:
The following typedefs are not standard, deprecated and will be removed in a future release.
*/
typedef int omp_int_t;
typedef double omp_wtime_t;
# ifdef __cplusplus
}
# endif
#endif /* __OMP_H */

runtime/src/include/40/omp_lib.h.var

! include/40/omp_lib.h.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
!***
!*** Some of the directives for the following routine extend past column 72,
!*** so process this file in 132-column mode.
!***
!DIR$ fixedformlinesize:132
integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = 4
integer, parameter :: omp_lock_kind = int_ptr_kind()
integer, parameter :: omp_nest_lock_kind = int_ptr_kind()
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = int_ptr_kind()
integer, parameter :: kmp_size_t_kind = int_ptr_kind()
integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*) kmp_build_date
parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads) bind(c)
import
integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads) bind(c)
import
logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested) bind(c)
import
logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel() bind(c)
import
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final() bind(c)
import
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic() bind(c)
import
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested() bind(c)
import
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit() bind(c)
import
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels) bind(c)
import
integer (kind=omp_integer_kind), value :: max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level() bind(c)
import
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level() bind(c)
import
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level) bind(c)
import
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
integer (kind=omp_integer_kind), value :: level
end function omp_get_ancestor_thread_num
function omp_get_team_size(level) bind(c)
import
integer (kind=omp_integer_kind) omp_get_team_size
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind), value :: kind
integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
import
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_wtime() bind(c)
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick() bind(c)
double precision omp_get_wtick
end function omp_get_wtick
function omp_get_default_device() bind(c)
import
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num) bind(c)
import
integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_is_initial_device() bind(c)
import
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
import
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size) bind(c)
import
integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size) bind(c)
import
integer (kind=kmp_size_t_kind), value :: size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec) bind(c)
import
integer (kind=omp_integer_kind), value :: msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial() bind(c)
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround() bind(c)
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput() bind(c)
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum) bind(c)
import
integer (kind=omp_integer_kind), value :: libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string) bind(c)
character string(*)
end subroutine kmp_set_defaults
function kmp_get_stacksize() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s() bind(c)
import
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
function kmp_set_affinity(mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask) bind(c)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask) bind(c)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind), value :: size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind), value :: size
integer (kind=kmp_size_t_kind), value :: alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind), value :: nelem
integer (kind=kmp_size_t_kind), value :: elsize
end function kmp_calloc
function kmp_realloc(ptr, size) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind), value :: ptr
integer (kind=kmp_size_t_kind), value :: size
end function kmp_realloc
subroutine kmp_free(ptr) bind(c)
import
integer (kind=kmp_pointer_kind), value :: ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on() bind(c)
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
end interface
!DIR$ IF DEFINED (__INTEL_OFFLOAD)
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_aligned_malloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!$omp declare target(omp_set_num_threads )
!$omp declare target(omp_set_dynamic )
!$omp declare target(omp_set_nested )
!$omp declare target(omp_get_num_threads )
!$omp declare target(omp_get_max_threads )
!$omp declare target(omp_get_thread_num )
!$omp declare target(omp_get_num_procs )
!$omp declare target(omp_in_parallel )
!$omp declare target(omp_in_final )
!$omp declare target(omp_get_dynamic )
!$omp declare target(omp_get_nested )
!$omp declare target(omp_get_thread_limit )
!$omp declare target(omp_set_max_active_levels )
!$omp declare target(omp_get_max_active_levels )
!$omp declare target(omp_get_level )
!$omp declare target(omp_get_active_level )
!$omp declare target(omp_get_ancestor_thread_num )
!$omp declare target(omp_get_team_size )
!$omp declare target(omp_set_schedule )
!$omp declare target(omp_get_schedule )
!$omp declare target(omp_get_proc_bind )
!$omp declare target(omp_get_wtime )
!$omp declare target(omp_get_wtick )
!$omp declare target(omp_get_default_device )
!$omp declare target(omp_set_default_device )
!$omp declare target(omp_is_initial_device )
!$omp declare target(omp_get_num_devices )
!$omp declare target(omp_get_num_teams )
!$omp declare target(omp_get_team_num )
!$omp declare target(omp_init_lock )
!$omp declare target(omp_destroy_lock )
!$omp declare target(omp_set_lock )
!$omp declare target(omp_unset_lock )
!$omp declare target(omp_test_lock )
!$omp declare target(omp_init_nest_lock )
!$omp declare target(omp_destroy_nest_lock )
!$omp declare target(omp_set_nest_lock )
!$omp declare target(omp_unset_nest_lock )
!$omp declare target(omp_test_nest_lock )
!$omp declare target(kmp_set_stacksize )
!$omp declare target(kmp_set_stacksize_s )
!$omp declare target(kmp_set_blocktime )
!$omp declare target(kmp_set_library_serial )
!$omp declare target(kmp_set_library_turnaround )
!$omp declare target(kmp_set_library_throughput )
!$omp declare target(kmp_set_library )
!$omp declare target(kmp_set_defaults )
!$omp declare target(kmp_get_stacksize )
!$omp declare target(kmp_get_stacksize_s )
!$omp declare target(kmp_get_blocktime )
!$omp declare target(kmp_get_library )
!$omp declare target(kmp_set_affinity )
!$omp declare target(kmp_get_affinity )
!$omp declare target(kmp_get_affinity_max_proc )
!$omp declare target(kmp_create_affinity_mask )
!$omp declare target(kmp_destroy_affinity_mask )
!$omp declare target(kmp_set_affinity_mask_proc )
!$omp declare target(kmp_unset_affinity_mask_proc )
!$omp declare target(kmp_get_affinity_mask_proc )
!$omp declare target(kmp_malloc )
!$omp declare target(kmp_aligned_malloc )
!$omp declare target(kmp_calloc )
!$omp declare target(kmp_realloc )
!$omp declare target(kmp_free )
!$omp declare target(kmp_set_warnings_on )
!$omp declare target(kmp_set_warnings_off )
!DIR$ ENDIF
!DIR$ ENDIF

runtime/src/include/40/omp_lib.f.var

! include/40/omp_lib.f.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
!***
!*** Some of the directives for the following routine extend past column 72,
!*** so process this file in 132-column mode.
!***
!dec$ fixedformlinesize:132
module omp_lib_kinds
integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = 4
integer, parameter :: omp_lock_kind = int_ptr_kind()
integer, parameter :: omp_nest_lock_kind = int_ptr_kind()
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = int_ptr_kind()
integer, parameter :: kmp_size_t_kind = int_ptr_kind()
integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
integer, parameter :: kmp_cancel_kind = omp_integer_kind
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*), parameter :: kmp_build_date = '@LIBOMP_BUILD_DATE@'
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads)
use omp_lib_kinds
integer (kind=omp_integer_kind) num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads)
use omp_lib_kinds
logical (kind=omp_logical_kind) dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested)
use omp_lib_kinds
logical (kind=omp_logical_kind) nested
end subroutine omp_set_nested
function omp_get_num_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels)
use omp_lib_kinds
integer (kind=omp_integer_kind) max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
end function omp_get_ancestor_thread_num
function omp_get_team_size(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_team_size
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind()
use omp_lib_kinds
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_wtime()
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick ()
double precision omp_get_wtick
end function omp_get_wtick
function omp_get_default_device()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num)
use omp_lib_kinds
integer (kind=omp_integer_kind) device_num
end subroutine omp_set_default_device
function omp_get_num_devices()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_get_cancellation()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_cancellation
end function omp_get_cancellation
function omp_is_initial_device()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
subroutine omp_init_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size)
use omp_lib_kinds
integer (kind=omp_integer_kind) size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec)
use omp_lib_kinds
integer (kind=omp_integer_kind) msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial()
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround()
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput()
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum)
use omp_lib_kinds
integer (kind=omp_integer_kind) libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string)
character*(*) string
end subroutine kmp_set_defaults
function kmp_get_stacksize()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s()
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
function kmp_set_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind) size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind) size
integer (kind=kmp_size_t_kind) alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind) nelem
integer (kind=kmp_size_t_kind) elsize
end function kmp_calloc
function kmp_realloc(ptr, size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind) ptr
integer (kind=kmp_size_t_kind) size
end function kmp_realloc
subroutine kmp_free(ptr)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on()
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off()
end subroutine kmp_set_warnings_off
function kmp_get_cancellation_status(cancelkind)
use omp_lib_kinds
integer (kind=kmp_cancel_kind) cancelkind
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
end interface
!dec$ if defined(_WIN32)
!dec$ if defined(_WIN64) .or. defined(_M_AMD64)
!***
!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
!*** option is specified. The alias attribute ensures that the specified
!*** string is used as the entry point.
!***
!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
!*** underscore prepended. On the Windows* OS Intel(R) 64
!*** architecture, no underscore is prepended.
!***
!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind
!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
!dec$ attributes alias:'OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
!dec$ attributes alias:'OMP_GET_NUM_DEVICES' :: omp_get_num_devices
!dec$ attributes alias:'OMP_GET_NUM_TEAMS' :: omp_get_num_teams
!dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'KMP_FREE'::kmp_free
!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ attributes alias:'KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
!dec$ else
!***
!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
!***
!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind
!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'_OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
!dec$ attributes alias:'_OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
!dec$ attributes alias:'_OMP_GET_NUM_DEVICES' :: omp_get_num_devices
!dec$ attributes alias:'_OMP_GET_NUM_TEAMS' :: omp_get_num_teams
!dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'_KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'_KMP_FREE'::kmp_free
!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ attributes alias:'_KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
!dec$ endif
!dec$ endif
!dec$ if defined(__linux)
!***
!*** The Linux* OS entry points are in lowercase, with an underscore appended.
!***
!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'omp_get_level_'::omp_get_level
!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind
!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'omp_get_default_device_'::omp_get_default_device
!dec$ attributes alias:'omp_set_default_device_'::omp_set_default_device
!dec$ attributes alias:'omp_get_num_devices_'::omp_get_num_devices
!dec$ attributes alias:'omp_get_num_teams_'::omp_get_num_teams
!dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'kmp_free_'::kmp_free
!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ attributes alias:'kmp_get_cancellation_status_'::kmp_get_cancellation_status
!dec$ endif
!dec$ if defined(__APPLE__)
!***
!*** The Mac entry points are in lowercase, with an both an underscore
!*** appended and an underscore prepended.
!***
!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'_omp_get_level_'::omp_get_level
!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind
!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'_omp_get_num_teams_'::omp_get_num_teams
!dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'_kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'_kmp_free_'::kmp_free
!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ attributes alias:'_kmp_get_cancellation_status_'::kmp_get_cancellation_status
!dec$ endif
end module omp_lib

runtime/src/include/40/omp_lib.f90.var

! include/40/omp_lib.f90.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
module omp_lib_kinds
use, intrinsic :: iso_c_binding
integer, parameter :: omp_integer_kind = c_int
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = c_float
integer, parameter :: kmp_double_kind = c_double
integer, parameter :: omp_lock_kind = c_intptr_t
integer, parameter :: omp_nest_lock_kind = c_intptr_t
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = c_intptr_t
integer, parameter :: kmp_size_t_kind = c_size_t
integer, parameter :: kmp_affinity_mask_kind = c_intptr_t
integer, parameter :: kmp_cancel_kind = omp_integer_kind
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*) kmp_build_date
parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
integer (kind=omp_integer_kind), value :: level
end function omp_get_ancestor_thread_num
function omp_get_team_size(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_size
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind), value :: kind
integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
use omp_lib_kinds
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_wtime() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtime
end function omp_get_wtime
function omp_get_wtick() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtick
end function omp_get_wtick
function omp_get_default_device() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_get_cancellation() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_cancellation
end function omp_get_cancellation
function omp_is_initial_device() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind), value :: size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial() bind(c)
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround() bind(c)
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput() bind(c)
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string) bind(c)
use, intrinsic :: iso_c_binding
character (kind=c_char) :: string(*)
end subroutine kmp_set_defaults
function kmp_get_stacksize() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s() bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
function kmp_set_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind), value :: size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind), value :: size
integer (kind=kmp_size_t_kind), value :: alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind), value :: nelem
integer (kind=kmp_size_t_kind), value :: elsize
end function kmp_calloc
function kmp_realloc(ptr, size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind), value :: ptr
integer (kind=kmp_size_t_kind), value :: size
end function kmp_realloc
subroutine kmp_free(ptr) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind), value :: ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on() bind(c)
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
function kmp_get_cancellation_status(cancelkind) bind(c)
use omp_lib_kinds
integer (kind=kmp_cancel_kind), value :: cancelkind
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
end interface
end module omp_lib

runtime/src/include/45/omp.h.var

/*
* include/45/omp.h.var
*/
//===----------------------------------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#ifndef __OMP_H
# define __OMP_H
# define KMP_VERSION_MAJOR @LIBOMP_VERSION_MAJOR@
# define KMP_VERSION_MINOR @LIBOMP_VERSION_MINOR@
# define KMP_VERSION_BUILD @LIBOMP_VERSION_BUILD@
# define KMP_BUILD_DATE "@LIBOMP_BUILD_DATE@"
# ifdef __cplusplus
extern "C" {
# endif
# if defined(_WIN32)
# define __KAI_KMPC_CONVENTION __cdecl
# else
# define __KAI_KMPC_CONVENTION
# endif
/* schedule kind constants */
typedef enum omp_sched_t {
omp_sched_static = 1,
omp_sched_dynamic = 2,
omp_sched_guided = 3,
omp_sched_auto = 4
} omp_sched_t;
/* set API functions */
extern void __KAI_KMPC_CONVENTION omp_set_num_threads (int);
extern void __KAI_KMPC_CONVENTION omp_set_dynamic (int);
extern void __KAI_KMPC_CONVENTION omp_set_nested (int);
extern void __KAI_KMPC_CONVENTION omp_set_max_active_levels (int);
extern void __KAI_KMPC_CONVENTION omp_set_schedule (omp_sched_t, int);
/* query API functions */
extern int __KAI_KMPC_CONVENTION omp_get_num_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_dynamic (void);
extern int __KAI_KMPC_CONVENTION omp_get_nested (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_thread_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_procs (void);
extern int __KAI_KMPC_CONVENTION omp_in_parallel (void);
extern int __KAI_KMPC_CONVENTION omp_in_final (void);
extern int __KAI_KMPC_CONVENTION omp_get_active_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_ancestor_thread_num (int);
extern int __KAI_KMPC_CONVENTION omp_get_team_size (int);
extern int __KAI_KMPC_CONVENTION omp_get_thread_limit (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_active_levels (void);
extern void __KAI_KMPC_CONVENTION omp_get_schedule (omp_sched_t *, int *);
extern int __KAI_KMPC_CONVENTION omp_get_max_task_priority (void);
/* lock API functions */
typedef struct omp_lock_t {
void * _lk;
} omp_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_lock (omp_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_lock (omp_lock_t *);
/* nested lock API functions */
typedef struct omp_nest_lock_t {
void * _lk;
} omp_nest_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_nest_lock (omp_nest_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_nest_lock (omp_nest_lock_t *);
/* lock hint type for dynamic user lock */
typedef enum omp_lock_hint_t {
omp_lock_hint_none = 0,
omp_lock_hint_uncontended = 1,
omp_lock_hint_contended = (1<<1 ),
omp_lock_hint_nonspeculative = (1<<2 ),
omp_lock_hint_speculative = (1<<3 ),
kmp_lock_hint_hle = (1<<16),
kmp_lock_hint_rtm = (1<<17),
kmp_lock_hint_adaptive = (1<<18)
} omp_lock_hint_t;
/* hinted lock initializers */
extern void __KAI_KMPC_CONVENTION omp_init_lock_with_hint(omp_lock_t *, omp_lock_hint_t);
extern void __KAI_KMPC_CONVENTION omp_init_nest_lock_with_hint(omp_nest_lock_t *, omp_lock_hint_t);
/* time API functions */
extern double __KAI_KMPC_CONVENTION omp_get_wtime (void);
extern double __KAI_KMPC_CONVENTION omp_get_wtick (void);
/* OpenMP 4.0 */
extern int __KAI_KMPC_CONVENTION omp_get_default_device (void);
extern void __KAI_KMPC_CONVENTION omp_set_default_device (int);
extern int __KAI_KMPC_CONVENTION omp_is_initial_device (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_devices (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_teams (void);
extern int __KAI_KMPC_CONVENTION omp_get_team_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_cancellation (void);
# include <stdlib.h>
/* OpenMP 4.5 */
extern int __KAI_KMPC_CONVENTION omp_get_initial_device (void);
extern void* __KAI_KMPC_CONVENTION omp_target_alloc(size_t, int);
extern void __KAI_KMPC_CONVENTION omp_target_free(void *, int);
extern int __KAI_KMPC_CONVENTION omp_target_is_present(void *, int);
extern int __KAI_KMPC_CONVENTION omp_target_memcpy(void *, void *, size_t, size_t, size_t, int, int);
extern int __KAI_KMPC_CONVENTION omp_target_memcpy_rect(void *, void *, size_t, int, const size_t *,
const size_t *, const size_t *, const size_t *, const size_t *, int, int);
extern int __KAI_KMPC_CONVENTION omp_target_associate_ptr(void *, void *, size_t, size_t, int);
extern int __KAI_KMPC_CONVENTION omp_target_disassociate_ptr(void *, int);
/* kmp API functions */
extern int __KAI_KMPC_CONVENTION kmp_get_stacksize (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize (int);
extern size_t __KAI_KMPC_CONVENTION kmp_get_stacksize_s (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize_s (size_t);
extern int __KAI_KMPC_CONVENTION kmp_get_blocktime (void);
extern int __KAI_KMPC_CONVENTION kmp_get_library (void);
extern void __KAI_KMPC_CONVENTION kmp_set_blocktime (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library_serial (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_turnaround (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_throughput (void);
extern void __KAI_KMPC_CONVENTION kmp_set_defaults (char const *);
extern void __KAI_KMPC_CONVENTION kmp_set_disp_num_buffers (int);
/* Intel affinity API */
typedef void * kmp_affinity_mask_t;
extern int __KAI_KMPC_CONVENTION kmp_set_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_max_proc (void);
extern void __KAI_KMPC_CONVENTION kmp_create_affinity_mask (kmp_affinity_mask_t *);
extern void __KAI_KMPC_CONVENTION kmp_destroy_affinity_mask (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_set_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_mask_proc (int, kmp_affinity_mask_t *);
/* OpenMP 4.0 affinity API */
typedef enum omp_proc_bind_t {
omp_proc_bind_false = 0,
omp_proc_bind_true = 1,
omp_proc_bind_master = 2,
omp_proc_bind_close = 3,
omp_proc_bind_spread = 4
} omp_proc_bind_t;
extern omp_proc_bind_t __KAI_KMPC_CONVENTION omp_get_proc_bind (void);
/* OpenMP 4.5 affinity API */
extern int __KAI_KMPC_CONVENTION omp_get_num_places (void);
extern int __KAI_KMPC_CONVENTION omp_get_place_num_procs (int);
extern void __KAI_KMPC_CONVENTION omp_get_place_proc_ids (int, int *);
extern int __KAI_KMPC_CONVENTION omp_get_place_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_partition_num_places (void);
extern void __KAI_KMPC_CONVENTION omp_get_partition_place_nums (int *);
extern void * __KAI_KMPC_CONVENTION kmp_malloc (size_t);
extern void * __KAI_KMPC_CONVENTION kmp_aligned_malloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_calloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_realloc (void *, size_t);
extern void __KAI_KMPC_CONVENTION kmp_free (void *);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_on(void);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_off(void);
# undef __KAI_KMPC_CONVENTION
/* Warning:
The following typedefs are not standard, deprecated and will be removed in a future release.
*/
typedef int omp_int_t;
typedef double omp_wtime_t;
# ifdef __cplusplus
}
# endif
#endif /* __OMP_H */

runtime/src/include/45/omp_lib.h.var

! include/45/omp_lib.h.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
!***
!*** Some of the directives for the following routine extend past column 72,
!*** so process this file in 132-column mode.
!***
!DIR$ fixedformlinesize:132
integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = 4
integer, parameter :: omp_lock_kind = int_ptr_kind()
integer, parameter :: omp_nest_lock_kind = int_ptr_kind()
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = int_ptr_kind()
integer, parameter :: kmp_size_t_kind = int_ptr_kind()
integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
integer, parameter :: omp_lock_hint_kind = omp_integer_kind
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*) kmp_build_date
parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none = 0
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended = 1
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended = 2
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative = 8
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 65536
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 131072
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 262144
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads) bind(c)
import
integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads) bind(c)
import
logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested) bind(c)
import
logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel() bind(c)
import
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final() bind(c)
import
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic() bind(c)
import
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested() bind(c)
import
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit() bind(c)
import
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels) bind(c)
import
integer (kind=omp_integer_kind), value :: max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level() bind(c)
import
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level() bind(c)
import
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level) bind(c)
import
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
integer (kind=omp_integer_kind), value :: level
end function omp_get_ancestor_thread_num
function omp_get_team_size(level) bind(c)
import
integer (kind=omp_integer_kind) omp_get_team_size
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind), value :: kind
integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
import
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_num_places() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_places
end function omp_get_num_places
function omp_get_place_num_procs(place_num) bind(c)
import
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
import
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) ids(*)
end subroutine omp_get_place_proc_ids
function omp_get_place_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num
function omp_get_partition_num_places() bind(c)
import
integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums) bind(c)
import
integer (kind=omp_integer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums
function omp_get_wtime() bind(c)
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick() bind(c)
double precision omp_get_wtick
end function omp_get_wtick
function omp_get_default_device() bind(c)
import
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num) bind(c)
import
integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_is_initial_device() bind(c)
import
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
function omp_get_initial_device() bind(c)
import
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
import
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_task_priority
end function omp_get_max_task_priority
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size) bind(c)
import
integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size) bind(c)
import
integer (kind=kmp_size_t_kind), value :: size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec) bind(c)
import
integer (kind=omp_integer_kind), value :: msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial() bind(c)
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround() bind(c)
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput() bind(c)
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum) bind(c)
import
integer (kind=omp_integer_kind), value :: libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string) bind(c)
character string(*)
end subroutine kmp_set_defaults
function kmp_get_stacksize() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s() bind(c)
import
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
subroutine kmp_set_disp_num_buffers(num) bind(c)
import
integer (kind=omp_integer_kind), value :: num
end subroutine kmp_set_disp_num_buffers
function kmp_set_affinity(mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask) bind(c)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask) bind(c)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind), value :: size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind), value :: size
integer (kind=kmp_size_t_kind), value :: alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind), value :: nelem
integer (kind=kmp_size_t_kind), value :: elsize
end function kmp_calloc
function kmp_realloc(ptr, size) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind), value :: ptr
integer (kind=kmp_size_t_kind), value :: size
end function kmp_realloc
subroutine kmp_free(ptr) bind(c)
import
integer (kind=kmp_pointer_kind), value :: ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on() bind(c)
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
subroutine omp_init_lock_with_hint(svar, hint) bind(c)
import
integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
import
integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint
end interface
!DIR$ IF DEFINED (__INTEL_OFFLOAD)
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_initial_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_task_priority
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_disp_num_buffers
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_aligned_malloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock_with_hint
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock_with_hint
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!$omp declare target(omp_set_num_threads )
!$omp declare target(omp_set_dynamic )
!$omp declare target(omp_set_nested )
!$omp declare target(omp_get_num_threads )
!$omp declare target(omp_get_max_threads )
!$omp declare target(omp_get_thread_num )
!$omp declare target(omp_get_num_procs )
!$omp declare target(omp_in_parallel )
!$omp declare target(omp_in_final )
!$omp declare target(omp_get_dynamic )
!$omp declare target(omp_get_nested )
!$omp declare target(omp_get_thread_limit )
!$omp declare target(omp_set_max_active_levels )
!$omp declare target(omp_get_max_active_levels )
!$omp declare target(omp_get_level )
!$omp declare target(omp_get_active_level )
!$omp declare target(omp_get_ancestor_thread_num )
!$omp declare target(omp_get_team_size )
!$omp declare target(omp_set_schedule )
!$omp declare target(omp_get_schedule )
!$omp declare target(omp_get_proc_bind )
!$omp declare target(omp_get_wtime )
!$omp declare target(omp_get_wtick )
!$omp declare target(omp_get_default_device )
!$omp declare target(omp_set_default_device )
!$omp declare target(omp_is_initial_device )
!$omp declare target(omp_get_initial_device )
!$omp declare target(omp_get_num_devices )
!$omp declare target(omp_get_num_teams )
!$omp declare target(omp_get_team_num )
!$omp declare target(omp_init_lock )
!$omp declare target(omp_destroy_lock )
!$omp declare target(omp_set_lock )
!$omp declare target(omp_unset_lock )
!$omp declare target(omp_test_lock )
!$omp declare target(omp_init_nest_lock )
!$omp declare target(omp_destroy_nest_lock )
!$omp declare target(omp_set_nest_lock )
!$omp declare target(omp_unset_nest_lock )
!$omp declare target(omp_test_nest_lock )
!$omp declare target(omp_get_max_task_priority )
!$omp declare target(kmp_set_stacksize )
!$omp declare target(kmp_set_stacksize_s )
!$omp declare target(kmp_set_blocktime )
!$omp declare target(kmp_set_library_serial )
!$omp declare target(kmp_set_library_turnaround )
!$omp declare target(kmp_set_library_throughput )
!$omp declare target(kmp_set_library )
!$omp declare target(kmp_set_defaults )
!$omp declare target(kmp_get_stacksize )
!$omp declare target(kmp_get_stacksize_s )
!$omp declare target(kmp_get_blocktime )
!$omp declare target(kmp_get_library )
!$omp declare target(kmp_set_disp_num_buffers )
!$omp declare target(kmp_set_affinity )
!$omp declare target(kmp_get_affinity )
!$omp declare target(kmp_get_affinity_max_proc )
!$omp declare target(kmp_create_affinity_mask )
!$omp declare target(kmp_destroy_affinity_mask )
!$omp declare target(kmp_set_affinity_mask_proc )
!$omp declare target(kmp_unset_affinity_mask_proc )
!$omp declare target(kmp_get_affinity_mask_proc )
!$omp declare target(kmp_malloc )
!$omp declare target(kmp_aligned_malloc )
!$omp declare target(kmp_calloc )
!$omp declare target(kmp_realloc )
!$omp declare target(kmp_free )
!$omp declare target(kmp_set_warnings_on )
!$omp declare target(kmp_set_warnings_off )
!$omp declare target(omp_init_lock_with_hint )
!$omp declare target(omp_init_nest_lock_with_hint )
!DIR$ ENDIF
!DIR$ ENDIF

runtime/src/include/45/omp_lib.f.var

! include/45/omp_lib.f.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
!***
!*** Some of the directives for the following routine extend past column 72,
!*** so process this file in 132-column mode.
!***
!dec$ fixedformlinesize:132
module omp_lib_kinds
integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = 4
integer, parameter :: omp_lock_kind = int_ptr_kind()
integer, parameter :: omp_nest_lock_kind = int_ptr_kind()
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = int_ptr_kind()
integer, parameter :: kmp_size_t_kind = int_ptr_kind()
integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
integer, parameter :: kmp_cancel_kind = omp_integer_kind
integer, parameter :: omp_lock_hint_kind = omp_integer_kind
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*), parameter :: kmp_build_date = '@LIBOMP_BUILD_DATE@'
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none = 0
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended = 1
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended = 2
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative = 8
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 65536
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 131072
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 262144
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads)
use omp_lib_kinds
integer (kind=omp_integer_kind) num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads)
use omp_lib_kinds
logical (kind=omp_logical_kind) dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested)
use omp_lib_kinds
logical (kind=omp_logical_kind) nested
end subroutine omp_set_nested
function omp_get_num_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels)
use omp_lib_kinds
integer (kind=omp_integer_kind) max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
end function omp_get_ancestor_thread_num
function omp_get_team_size(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_team_size
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind()
use omp_lib_kinds
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_num_places()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_places
end function omp_get_num_places
function omp_get_place_num_procs(place_num)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_num
integer (kind=omp_integer_kind) ids(*)
end subroutine omp_get_place_proc_ids
function omp_get_place_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num
function omp_get_partition_num_places()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums
function omp_get_wtime()
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick ()
double precision omp_get_wtick
end function omp_get_wtick
function omp_get_default_device()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num)
use omp_lib_kinds
integer (kind=omp_integer_kind) device_num
end subroutine omp_set_default_device
function omp_get_num_devices()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_get_cancellation()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_cancellation
end function omp_get_cancellation
function omp_is_initial_device()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
function omp_get_initial_device()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
subroutine omp_init_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_task_priority
end function omp_get_max_task_priority
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size)
use omp_lib_kinds
integer (kind=omp_integer_kind) size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec)
use omp_lib_kinds
integer (kind=omp_integer_kind) msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial()
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround()
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput()
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum)
use omp_lib_kinds
integer (kind=omp_integer_kind) libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string)
character*(*) string
end subroutine kmp_set_defaults
function kmp_get_stacksize()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s()
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
subroutine kmp_set_disp_num_buffers(num)
use omp_lib_kinds
integer (kind=omp_integer_kind) num
end subroutine kmp_set_disp_num_buffers
function kmp_set_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind) size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind) size
integer (kind=kmp_size_t_kind) alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind) nelem
integer (kind=kmp_size_t_kind) elsize
end function kmp_calloc
function kmp_realloc(ptr, size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind) ptr
integer (kind=kmp_size_t_kind) size
end function kmp_realloc
subroutine kmp_free(ptr)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on()
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off()
end subroutine kmp_set_warnings_off
function kmp_get_cancellation_status(cancelkind)
use omp_lib_kinds
integer (kind=kmp_cancel_kind) cancelkind
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
subroutine omp_init_lock_with_hint(svar, hint)
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind) hint
end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind) hint
end subroutine omp_init_nest_lock_with_hint
end interface
!dec$ if defined(_WIN32)
!dec$ if defined(_WIN64) .or. defined(_M_AMD64)
!***
!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
!*** option is specified. The alias attribute ensures that the specified
!*** string is used as the entry point.
!***
!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
!*** underscore prepended. On the Windows* OS Intel(R) 64
!*** architecture, no underscore is prepended.
!***
!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind
!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
!dec$ attributes alias:'OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
!dec$ attributes alias:'OMP_GET_NUM_DEVICES' :: omp_get_num_devices
!dec$ attributes alias:'OMP_GET_NUM_TEAMS' :: omp_get_num_teams
!dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device
!dec$ attributes alias:'OMP_GET_MAX_TASK_PRIORITY' :: omp_get_max_task_priority
!dec$ attributes alias:'omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'omp_init_lock_with_hint' :: omp_init_lock_with_hint
!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint
!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'KMP_FREE'::kmp_free
!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ attributes alias:'KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
!dec$ else
!***
!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
!***
!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind
!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'_OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
!dec$ attributes alias:'_OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
!dec$ attributes alias:'_OMP_GET_NUM_DEVICES' :: omp_get_num_devices
!dec$ attributes alias:'_OMP_GET_NUM_TEAMS' :: omp_get_num_teams
!dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'_OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device
!dec$ attributes alias:'_OMP_GET_MAX_TASK_PRIORTY' :: omp_get_max_task_priority
!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'_omp_init_lock_with_hint' :: omp_init_lock_with_hint
!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'_omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint
!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'_KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'_KMP_FREE'::kmp_free
!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ attributes alias:'_KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
!dec$ endif
!dec$ endif
!dec$ if defined(__linux)
!***
!*** The Linux* OS entry points are in lowercase, with an underscore appended.
!***
!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'omp_get_level_'::omp_get_level
!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind
!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'omp_get_default_device_'::omp_get_default_device
!dec$ attributes alias:'omp_set_default_device_'::omp_set_default_device
!dec$ attributes alias:'omp_get_num_devices_'::omp_get_num_devices
!dec$ attributes alias:'omp_get_num_teams_'::omp_get_num_teams
!dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'omp_get_initial_device_'::omp_get_initial_device
!dec$ attributes alias:'omp_get_max_task_priority_'::omp_get_max_task_priority
!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'omp_init_lock_with_hint_'::omp_init_lock_with_hint
!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint
!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'kmp_free_'::kmp_free
!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ attributes alias:'kmp_get_cancellation_status_'::kmp_get_cancellation_status
!dec$ endif
!dec$ if defined(__APPLE__)
!***
!*** The Mac entry points are in lowercase, with an both an underscore
!*** appended and an underscore prepended.
!***
!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'_omp_get_level_'::omp_get_level
!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind
!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'_omp_get_default_device_'::omp_get_default_device
!dec$ attributes alias:'_omp_set_default_device_'::omp_set_default_device
!dec$ attributes alias:'_omp_get_num_devices_'::omp_get_num_devices
!dec$ attributes alias:'_omp_get_num_teams_'::omp_get_num_teams
!dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'_omp_get_initial_device_'::omp_get_initial_device
!dec$ attributes alias:'_omp_get_max_task_priorty_'::omp_get_max_task_priority
!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'_omp_init_lock_with_hint_'::omp_init_lock_with_hint
!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'_omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint
!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'_kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'_kmp_free_'::kmp_free
!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ attributes alias:'_kmp_get_cancellation_status_'::kmp_get_cancellation_status
!dec$ endif
end module omp_lib

runtime/src/include/45/omp_lib.f90.var

! include/45/omp_lib.f90.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
module omp_lib_kinds
use, intrinsic :: iso_c_binding
integer, parameter :: omp_integer_kind = c_int
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = c_float
integer, parameter :: kmp_double_kind = c_double
integer, parameter :: omp_lock_kind = c_intptr_t
integer, parameter :: omp_nest_lock_kind = c_intptr_t
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = c_intptr_t
integer, parameter :: kmp_size_t_kind = c_size_t
integer, parameter :: kmp_affinity_mask_kind = c_intptr_t
integer, parameter :: kmp_cancel_kind = omp_integer_kind
integer, parameter :: omp_lock_hint_kind = omp_integer_kind
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*) kmp_build_date
parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none = 0
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended = 1
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended = 2
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative = 8
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 65536
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 131072
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 262144
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
integer (kind=omp_integer_kind), value :: level
end function omp_get_ancestor_thread_num
function omp_get_team_size(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_size
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind), value :: kind
integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
use omp_lib_kinds
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_num_places() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_places
end function omp_get_num_places
function omp_get_place_num_procs(place_num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) ids(*)
end subroutine omp_get_place_proc_ids
function omp_get_place_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num
function omp_get_partition_num_places() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums
function omp_get_wtime() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtime
end function omp_get_wtime
function omp_get_wtick() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtick
end function omp_get_wtick
function omp_get_default_device() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_get_cancellation() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_cancellation
end function omp_get_cancellation
function omp_is_initial_device() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
function omp_get_initial_device() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_task_priority
end function omp_get_max_task_priority
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind), value :: size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial() bind(c)
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround() bind(c)
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput() bind(c)
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string) bind(c)
use, intrinsic :: iso_c_binding
character (kind=c_char) :: string(*)
end subroutine kmp_set_defaults
function kmp_get_stacksize() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s() bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
subroutine kmp_set_disp_num_buffers(num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: num
end subroutine kmp_set_disp_num_buffers
function kmp_set_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind), value :: size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind), value :: size
integer (kind=kmp_size_t_kind), value :: alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind), value :: nelem
integer (kind=kmp_size_t_kind), value :: elsize
end function kmp_calloc
function kmp_realloc(ptr, size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind), value :: ptr
integer (kind=kmp_size_t_kind), value :: size
end function kmp_realloc
subroutine kmp_free(ptr) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind), value :: ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on() bind(c)
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
function kmp_get_cancellation_status(cancelkind) bind(c)
use omp_lib_kinds
integer (kind=kmp_cancel_kind), value :: cancelkind
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
subroutine omp_init_lock_with_hint(svar, hint) bind(c)
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint
end interface
end module omp_lib

runtime/src/include/50/omp-tools.h.var

/*
* include/50/omp-tools.h.var
*/
//===----------------------------------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#ifndef __OMPT__
#define __OMPT__
/*****************************************************************************
* system include files
*****************************************************************************/
#include <stdint.h>
#include <stddef.h>
/*****************************************************************************
* iteration macros
*****************************************************************************/
#define FOREACH_OMPT_INQUIRY_FN(macro) \
macro (ompt_enumerate_states) \
macro (ompt_enumerate_mutex_impls) \
\
macro (ompt_set_callback) \
macro (ompt_get_callback) \
\
macro (ompt_get_state) \
\
macro (ompt_get_parallel_info) \
macro (ompt_get_task_info) \
macro (ompt_get_task_memory) \
macro (ompt_get_thread_data) \
macro (ompt_get_unique_id) \
macro (ompt_finalize_tool) \
\
macro(ompt_get_num_procs) \
macro(ompt_get_num_places) \
macro(ompt_get_place_proc_ids) \
macro(ompt_get_place_num) \
macro(ompt_get_partition_place_nums) \
macro(ompt_get_proc_id) \
\
macro(ompt_get_target_info) \
macro(ompt_get_num_devices)
#define FOREACH_OMPT_STATE(macro) \
\
/* first available state */ \
macro (ompt_state_undefined, 0x102) /* undefined thread state */ \
\
/* work states (0..15) */ \
macro (ompt_state_work_serial, 0x000) /* working outside parallel */ \
macro (ompt_state_work_parallel, 0x001) /* working within parallel */ \
macro (ompt_state_work_reduction, 0x002) /* performing a reduction */ \
\
/* barrier wait states (16..31) */ \
macro (ompt_state_wait_barrier, 0x010) /* waiting at a barrier */ \
macro (ompt_state_wait_barrier_implicit_parallel, 0x011) \
/* implicit barrier at the end of parallel region */\
macro (ompt_state_wait_barrier_implicit_workshare, 0x012) \
/* implicit barrier at the end of worksharing */ \
macro (ompt_state_wait_barrier_implicit, 0x013) /* implicit barrier */ \
macro (ompt_state_wait_barrier_explicit, 0x014) /* explicit barrier */ \
\
/* task wait states (32..63) */ \
macro (ompt_state_wait_taskwait, 0x020) /* waiting at a taskwait */ \
macro (ompt_state_wait_taskgroup, 0x021) /* waiting at a taskgroup */ \
\
/* mutex wait states (64..127) */ \
macro (ompt_state_wait_mutex, 0x040) \
macro (ompt_state_wait_lock, 0x041) /* waiting for lock */ \
macro (ompt_state_wait_critical, 0x042) /* waiting for critical */ \
macro (ompt_state_wait_atomic, 0x043) /* waiting for atomic */ \
macro (ompt_state_wait_ordered, 0x044) /* waiting for ordered */ \
\
/* target wait states (128..255) */ \
macro (ompt_state_wait_target, 0x080) /* waiting for target region */ \
macro (ompt_state_wait_target_map, 0x081) /* waiting for target data mapping operation */ \
macro (ompt_state_wait_target_update, 0x082) /* waiting for target update operation */ \
\
/* misc (256..511) */ \
macro (ompt_state_idle, 0x100) /* waiting for work */ \
macro (ompt_state_overhead, 0x101) /* overhead excluding wait states */ \
\
/* implementation-specific states (512..) */
#define FOREACH_KMP_MUTEX_IMPL(macro) \
macro (kmp_mutex_impl_none, 0) /* unknown implementation */ \
macro (kmp_mutex_impl_spin, 1) /* based on spin */ \
macro (kmp_mutex_impl_queuing, 2) /* based on some fair policy */ \
macro (kmp_mutex_impl_speculative, 3) /* based on HW-supported speculation */
#define FOREACH_OMPT_EVENT(macro) \
\
/*--- Mandatory Events ---*/ \
macro (ompt_callback_thread_begin, ompt_callback_thread_begin_t, 1) /* thread begin */ \
macro (ompt_callback_thread_end, ompt_callback_thread_end_t, 2) /* thread end */ \
\
macro (ompt_callback_parallel_begin, ompt_callback_parallel_begin_t, 3) /* parallel begin */ \
macro (ompt_callback_parallel_end, ompt_callback_parallel_end_t, 4) /* parallel end */ \
\
macro (ompt_callback_task_create, ompt_callback_task_create_t, 5) /* task begin */ \
macro (ompt_callback_task_schedule, ompt_callback_task_schedule_t, 6) /* task schedule */ \
macro (ompt_callback_implicit_task, ompt_callback_implicit_task_t, 7) /* implicit task */ \
\
macro (ompt_callback_target, ompt_callback_target_t, 8) /* target */ \
macro (ompt_callback_target_data_op, ompt_callback_target_data_op_t, 9) /* target data op */ \
macro (ompt_callback_target_submit, ompt_callback_target_submit_t, 10) /* target submit */ \
\
macro (ompt_callback_control_tool, ompt_callback_control_tool_t, 11) /* control tool */ \
\
macro (ompt_callback_device_initialize, ompt_callback_device_initialize_t, 12) /* device initialize */ \
macro (ompt_callback_device_finalize, ompt_callback_device_finalize_t, 13) /* device finalize */ \
\
macro (ompt_callback_device_load, ompt_callback_device_load_t, 14) /* device load */ \
macro (ompt_callback_device_unload, ompt_callback_device_unload_t, 15) /* device unload */ \
\
/* Optional Events */ \
macro (ompt_callback_sync_region_wait, ompt_callback_sync_region_t, 16) /* sync region wait begin or end */ \
\
macro (ompt_callback_mutex_released, ompt_callback_mutex_t, 17) /* mutex released */ \
\
macro (ompt_callback_dependences, ompt_callback_dependences_t, 18) /* report task dependences */ \
macro (ompt_callback_task_dependence, ompt_callback_task_dependence_t, 19) /* report task dependence */ \
\
macro (ompt_callback_work, ompt_callback_work_t, 20) /* task at work begin or end */ \
\
macro (ompt_callback_master, ompt_callback_master_t, 21) /* task at master begin or end */ \
\
macro (ompt_callback_target_map, ompt_callback_target_map_t, 22) /* target map */ \
\
macro (ompt_callback_sync_region, ompt_callback_sync_region_t, 23) /* sync region begin or end */ \
\
macro (ompt_callback_lock_init, ompt_callback_mutex_acquire_t, 24) /* lock init */ \
macro (ompt_callback_lock_destroy, ompt_callback_mutex_t, 25) /* lock destroy */ \
\
macro (ompt_callback_mutex_acquire, ompt_callback_mutex_acquire_t, 26) /* mutex acquire */ \
macro (ompt_callback_mutex_acquired, ompt_callback_mutex_t, 27) /* mutex acquired */ \
\
macro (ompt_callback_nest_lock, ompt_callback_nest_lock_t, 28) /* nest lock */ \
\
macro (ompt_callback_flush, ompt_callback_flush_t, 29) /* after executing flush */ \
\
macro (ompt_callback_cancel, ompt_callback_cancel_t, 30) /* cancel innermost binding region */ \
\
macro (ompt_callback_reduction, ompt_callback_sync_region_t, 31) /* reduction */ \
\
macro (ompt_callback_dispatch, ompt_callback_dispatch_t, 32) /* dispatch of work */
/*****************************************************************************
* implementation specific types
*****************************************************************************/
typedef enum kmp_mutex_impl_t {
#define kmp_mutex_impl_macro(impl, code) impl = code,
FOREACH_KMP_MUTEX_IMPL(kmp_mutex_impl_macro)
#undef kmp_mutex_impl_macro
} kmp_mutex_impl_t;
/*****************************************************************************
* definitions generated from spec
*****************************************************************************/
typedef enum ompt_callbacks_t {
ompt_callback_thread_begin = 1,
ompt_callback_thread_end = 2,
ompt_callback_parallel_begin = 3,
ompt_callback_parallel_end = 4,
ompt_callback_task_create = 5,
ompt_callback_task_schedule = 6,
ompt_callback_implicit_task = 7,
ompt_callback_target = 8,
ompt_callback_target_data_op = 9,
ompt_callback_target_submit = 10,
ompt_callback_control_tool = 11,
ompt_callback_device_initialize = 12,
ompt_callback_device_finalize = 13,
ompt_callback_device_load = 14,
ompt_callback_device_unload = 15,
ompt_callback_sync_region_wait = 16,
ompt_callback_mutex_released = 17,
ompt_callback_dependences = 18,
ompt_callback_task_dependence = 19,
ompt_callback_work = 20,
ompt_callback_master = 21,
ompt_callback_target_map = 22,
ompt_callback_sync_region = 23,
ompt_callback_lock_init = 24,
ompt_callback_lock_destroy = 25,
ompt_callback_mutex_acquire = 26,
ompt_callback_mutex_acquired = 27,
ompt_callback_nest_lock = 28,
ompt_callback_flush = 29,
ompt_callback_cancel = 30,
ompt_callback_reduction = 31,
ompt_callback_dispatch = 32
} ompt_callbacks_t;
typedef enum ompt_record_t {
ompt_record_ompt = 1,
ompt_record_native = 2,
ompt_record_invalid = 3
} ompt_record_t;
typedef enum ompt_record_native_t {
ompt_record_native_info = 1,
ompt_record_native_event = 2
} ompt_record_native_t;
typedef enum ompt_set_result_t {
ompt_set_error = 0,
ompt_set_never = 1,
ompt_set_impossible = 2,
ompt_set_sometimes = 3,
ompt_set_sometimes_paired = 4,
ompt_set_always = 5
} ompt_set_result_t;
typedef uint64_t ompt_id_t;
typedef uint64_t ompt_device_time_t;
typedef uint64_t ompt_buffer_cursor_t;
typedef enum ompt_thread_t {
ompt_thread_initial = 1,
ompt_thread_worker = 2,
ompt_thread_other = 3,
ompt_thread_unknown = 4
} ompt_thread_t;
typedef enum ompt_scope_endpoint_t {
ompt_scope_begin = 1,
ompt_scope_end = 2
} ompt_scope_endpoint_t;
typedef enum ompt_dispatch_t {
ompt_dispatch_iteration = 1,
ompt_dispatch_section = 2
} ompt_dispatch_t;
typedef enum ompt_sync_region_t {
ompt_sync_region_barrier = 1,
ompt_sync_region_barrier_implicit = 2,
ompt_sync_region_barrier_explicit = 3,
ompt_sync_region_barrier_implementation = 4,
ompt_sync_region_taskwait = 5,
ompt_sync_region_taskgroup = 6,
ompt_sync_region_reduction = 7
} ompt_sync_region_t;
typedef enum ompt_target_data_op_t {
ompt_target_data_alloc = 1,
ompt_target_data_transfer_to_device = 2,
ompt_target_data_transfer_from_device = 3,
ompt_target_data_delete = 4,
ompt_target_data_associate = 5,
ompt_target_data_disassociate = 6
} ompt_target_data_op_t;
typedef enum ompt_work_t {
ompt_work_loop = 1,
ompt_work_sections = 2,
ompt_work_single_executor = 3,
ompt_work_single_other = 4,
ompt_work_workshare = 5,
ompt_work_distribute = 6,
ompt_work_taskloop = 7
} ompt_work_t;
typedef enum ompt_mutex_t {
ompt_mutex_lock = 1,
ompt_mutex_test_lock = 2,
ompt_mutex_nest_lock = 3,
ompt_mutex_test_nest_lock = 4,
ompt_mutex_critical = 5,
ompt_mutex_atomic = 6,
ompt_mutex_ordered = 7
} ompt_mutex_t;
typedef enum ompt_native_mon_flag_t {
ompt_native_data_motion_explicit = 0x01,
ompt_native_data_motion_implicit = 0x02,
ompt_native_kernel_invocation = 0x04,
ompt_native_kernel_execution = 0x08,
ompt_native_driver = 0x10,
ompt_native_runtime = 0x20,
ompt_native_overhead = 0x40,
ompt_native_idleness = 0x80
} ompt_native_mon_flag_t;
typedef enum ompt_task_flag_t {
ompt_task_initial = 0x00000001,
ompt_task_implicit = 0x00000002,
ompt_task_explicit = 0x00000004,
ompt_task_target = 0x00000008,
ompt_task_undeferred = 0x08000000,
ompt_task_untied = 0x10000000,
ompt_task_final = 0x20000000,
ompt_task_mergeable = 0x40000000,
ompt_task_merged = 0x80000000
} ompt_task_flag_t;
typedef enum ompt_task_status_t {
ompt_task_complete = 1,
ompt_task_yield = 2,
ompt_task_cancel = 3,
ompt_task_detach = 4,
ompt_task_early_fulfill = 5,
ompt_task_late_fulfill = 6,
ompt_task_switch = 7
} ompt_task_status_t;
typedef enum ompt_target_t {
ompt_target = 1,
ompt_target_enter_data = 2,
ompt_target_exit_data = 3,
ompt_target_update = 4
} ompt_target_t;
typedef enum ompt_parallel_flag_t {
ompt_parallel_invoker_program = 0x00000001,
ompt_parallel_invoker_runtime = 0x00000002,
ompt_parallel_league = 0x40000000,
ompt_parallel_team = 0x80000000
} ompt_parallel_flag_t;
typedef enum ompt_target_map_flag_t {
ompt_target_map_flag_to = 0x01,
ompt_target_map_flag_from = 0x02,
ompt_target_map_flag_alloc = 0x04,
ompt_target_map_flag_release = 0x08,
ompt_target_map_flag_delete = 0x10,
ompt_target_map_flag_implicit = 0x20
} ompt_target_map_flag_t;
typedef enum ompt_dependence_type_t {
ompt_dependence_type_in = 1,
ompt_dependence_type_out = 2,
ompt_dependence_type_inout = 3,
ompt_dependence_type_mutexinoutset = 4,
ompt_dependence_type_source = 5,
ompt_dependence_type_sink = 6
} ompt_dependence_type_t;
typedef enum ompt_cancel_flag_t {
ompt_cancel_parallel = 0x01,
ompt_cancel_sections = 0x02,
ompt_cancel_loop = 0x04,
ompt_cancel_taskgroup = 0x08,
ompt_cancel_activated = 0x10,
ompt_cancel_detected = 0x20,
ompt_cancel_discarded_task = 0x40
} ompt_cancel_flag_t;
typedef uint64_t ompt_hwid_t;
typedef uint64_t ompt_wait_id_t;
typedef enum ompt_frame_flag_t {
ompt_frame_runtime = 0x00,
ompt_frame_application = 0x01,
ompt_frame_cfa = 0x10,
ompt_frame_framepointer = 0x20,
ompt_frame_stackaddress = 0x30
} ompt_frame_flag_t;
typedef enum ompt_state_t {
ompt_state_work_serial = 0x000,
ompt_state_work_parallel = 0x001,
ompt_state_work_reduction = 0x002,
ompt_state_wait_barrier = 0x010,
ompt_state_wait_barrier_implicit_parallel = 0x011,
ompt_state_wait_barrier_implicit_workshare = 0x012,
ompt_state_wait_barrier_implicit = 0x013,
ompt_state_wait_barrier_explicit = 0x014,
ompt_state_wait_taskwait = 0x020,
ompt_state_wait_taskgroup = 0x021,
ompt_state_wait_mutex = 0x040,
ompt_state_wait_lock = 0x041,
ompt_state_wait_critical = 0x042,
ompt_state_wait_atomic = 0x043,
ompt_state_wait_ordered = 0x044,
ompt_state_wait_target = 0x080,
ompt_state_wait_target_map = 0x081,
ompt_state_wait_target_update = 0x082,
ompt_state_idle = 0x100,
ompt_state_overhead = 0x101,
ompt_state_undefined = 0x102
} ompt_state_t;
typedef uint64_t (*ompt_get_unique_id_t) (void);
typedef uint64_t ompd_size_t;
typedef uint64_t ompd_wait_id_t;
typedef uint64_t ompd_addr_t;
typedef int64_t ompd_word_t;
typedef uint64_t ompd_seg_t;
typedef uint64_t ompd_device_t;
typedef uint64_t ompd_thread_id_t;
typedef enum ompd_scope_t {
ompd_scope_global = 1,
ompd_scope_address_space = 2,
ompd_scope_thread = 3,
ompd_scope_parallel = 4,
ompd_scope_implicit_task = 5,
ompd_scope_task = 6
} ompd_scope_t;
typedef uint64_t ompd_icv_id_t;
typedef enum ompd_rc_t {
ompd_rc_ok = 0,
ompd_rc_unavailable = 1,
ompd_rc_stale_handle = 2,
ompd_rc_bad_input = 3,
ompd_rc_error = 4,
ompd_rc_unsupported = 5,
ompd_rc_needs_state_tracking = 6,
ompd_rc_incompatible = 7,
ompd_rc_device_read_error = 8,
ompd_rc_device_write_error = 9,
ompd_rc_nomem = 10,
} ompd_rc_t;
typedef void (*ompt_interface_fn_t) (void);
typedef ompt_interface_fn_t (*ompt_function_lookup_t) (
const char *interface_function_name
);
typedef union ompt_data_t {
uint64_t value;
void *ptr;
} ompt_data_t;
typedef struct ompt_frame_t {
ompt_data_t exit_frame;
ompt_data_t enter_frame;
int exit_frame_flags;
int enter_frame_flags;
} ompt_frame_t;
typedef void (*ompt_callback_t) (void);
typedef void ompt_device_t;
typedef void ompt_buffer_t;
typedef void (*ompt_callback_buffer_request_t) (
int device_num,
ompt_buffer_t **buffer,
size_t *bytes
);
typedef void (*ompt_callback_buffer_complete_t) (
int device_num,
ompt_buffer_t *buffer,
size_t bytes,
ompt_buffer_cursor_t begin,
int buffer_owned
);
typedef void (*ompt_finalize_t) (
ompt_data_t *tool_data
);
typedef int (*ompt_initialize_t) (
ompt_function_lookup_t lookup,
int initial_device_num,
ompt_data_t *tool_data
);
typedef struct ompt_start_tool_result_t {
ompt_initialize_t initialize;
ompt_finalize_t finalize;
ompt_data_t tool_data;
} ompt_start_tool_result_t;
typedef struct ompt_record_abstract_t {
ompt_record_native_t rclass;
const char *type;
ompt_device_time_t start_time;
ompt_device_time_t end_time;
ompt_hwid_t hwid;
} ompt_record_abstract_t;
typedef struct ompt_dependence_t {
ompt_data_t variable;
ompt_dependence_type_t dependence_type;
} ompt_dependence_t;
typedef int (*ompt_enumerate_states_t) (
int current_state,
int *next_state,
const char **next_state_name
);
typedef int (*ompt_enumerate_mutex_impls_t) (
int current_impl,
int *next_impl,
const char **next_impl_name
);
typedef ompt_set_result_t (*ompt_set_callback_t) (
ompt_callbacks_t event,
ompt_callback_t callback
);
typedef int (*ompt_get_callback_t) (
ompt_callbacks_t event,
ompt_callback_t *callback
);
typedef ompt_data_t *(*ompt_get_thread_data_t) (void);
typedef int (*ompt_get_num_procs_t) (void);
typedef int (*ompt_get_num_places_t) (void);
typedef int (*ompt_get_place_proc_ids_t) (
int place_num,
int ids_size,
int *ids
);
typedef int (*ompt_get_place_num_t) (void);
typedef int (*ompt_get_partition_place_nums_t) (
int place_nums_size,
int *place_nums
);
typedef int (*ompt_get_proc_id_t) (void);
typedef int (*ompt_get_state_t) (
ompt_wait_id_t *wait_id
);
typedef int (*ompt_get_parallel_info_t) (
int ancestor_level,
ompt_data_t **parallel_data,
int *team_size
);
typedef int (*ompt_get_task_info_t) (
int ancestor_level,
int *flags,
ompt_data_t **task_data,
ompt_frame_t **task_frame,
ompt_data_t **parallel_data,
int *thread_num
);
typedef int (*ompt_get_task_memory_t)(
void **addr,
size_t *size,
int block
);
typedef int (*ompt_get_target_info_t) (
uint64_t *device_num,
ompt_id_t *target_id,
ompt_id_t *host_op_id
);
typedef int (*ompt_get_num_devices_t) (void);
typedef void (*ompt_finalize_tool_t) (void);
typedef int (*ompt_get_device_num_procs_t) (
ompt_device_t *device
);
typedef ompt_device_time_t (*ompt_get_device_time_t) (
ompt_device_t *device
);
typedef double (*ompt_translate_time_t) (
ompt_device_t *device,
ompt_device_time_t time
);
typedef ompt_set_result_t (*ompt_set_trace_ompt_t) (
ompt_device_t *device,
unsigned int enable,
unsigned int etype
);
typedef ompt_set_result_t (*ompt_set_trace_native_t) (
ompt_device_t *device,
int enable,
int flags
);
typedef int (*ompt_start_trace_t) (
ompt_device_t *device,
ompt_callback_buffer_request_t request,
ompt_callback_buffer_complete_t complete
);
typedef int (*ompt_pause_trace_t) (
ompt_device_t *device,
int begin_pause
);
typedef int (*ompt_flush_trace_t) (
ompt_device_t *device
);
typedef int (*ompt_stop_trace_t) (
ompt_device_t *device
);
typedef int (*ompt_advance_buffer_cursor_t) (
ompt_device_t *device,
ompt_buffer_t *buffer,
size_t size,
ompt_buffer_cursor_t current,
ompt_buffer_cursor_t *next
);
typedef ompt_record_t (*ompt_get_record_type_t) (
ompt_buffer_t *buffer,
ompt_buffer_cursor_t current
);
typedef void *(*ompt_get_record_native_t) (
ompt_buffer_t *buffer,
ompt_buffer_cursor_t current,
ompt_id_t *host_op_id
);
typedef ompt_record_abstract_t *
(*ompt_get_record_abstract_t) (
void *native_record
);
typedef void (*ompt_callback_thread_begin_t) (
ompt_thread_t thread_type,
ompt_data_t *thread_data
);
typedef struct ompt_record_thread_begin_t {
ompt_thread_t thread_type;
} ompt_record_thread_begin_t;
typedef void (*ompt_callback_thread_end_t) (
ompt_data_t *thread_data
);
typedef void (*ompt_callback_parallel_begin_t) (
ompt_data_t *encountering_task_data,
const ompt_frame_t *encountering_task_frame,
ompt_data_t *parallel_data,
unsigned int requested_parallelism,
int flags,
const void *codeptr_ra
);
typedef struct ompt_record_parallel_begin_t {
ompt_id_t encountering_task_id;
ompt_id_t parallel_id;
unsigned int requested_parallelism;
int flags;
const void *codeptr_ra;
} ompt_record_parallel_begin_t;
typedef void (*ompt_callback_parallel_end_t) (
ompt_data_t *parallel_data,
ompt_data_t *encountering_task_data,
int flags,
const void *codeptr_ra
);
typedef struct ompt_record_parallel_end_t {
ompt_id_t parallel_id;
ompt_id_t encountering_task_id;
int flags;
const void *codeptr_ra;
} ompt_record_parallel_end_t;
typedef void (*ompt_callback_work_t) (
ompt_work_t wstype,
ompt_scope_endpoint_t endpoint,
ompt_data_t *parallel_data,
ompt_data_t *task_data,
uint64_t count,
const void *codeptr_ra
);
typedef struct ompt_record_work_t {
ompt_work_t wstype;
ompt_scope_endpoint_t endpoint;
ompt_id_t parallel_id;
ompt_id_t task_id;
uint64_t count;
const void *codeptr_ra;
} ompt_record_work_t;
typedef void (*ompt_callback_dispatch_t) (
ompt_data_t *parallel_data,
ompt_data_t *task_data,
ompt_dispatch_t kind,
ompt_data_t instance
);
typedef struct ompt_record_dispatch_t {
ompt_id_t parallel_id;
ompt_id_t task_id;
ompt_dispatch_t kind;
ompt_data_t instance;
} ompt_record_dispatch_t;
typedef void (*ompt_callback_task_create_t) (
ompt_data_t *encountering_task_data,
const ompt_frame_t *encountering_task_frame,
ompt_data_t *new_task_data,
int flags,
int has_dependences,
const void *codeptr_ra
);
typedef struct ompt_record_task_create_t {
ompt_id_t encountering_task_id;
ompt_id_t new_task_id;
int flags;
int has_dependences;
const void *codeptr_ra;
} ompt_record_task_create_t;
typedef void (*ompt_callback_dependences_t) (
ompt_data_t *task_data,
const ompt_dependence_t *deps,
int ndeps
);
typedef struct ompt_record_dependences_t {
ompt_id_t task_id;
ompt_dependence_t dep;
int ndeps;
} ompt_record_dependences_t;
typedef void (*ompt_callback_task_dependence_t) (
ompt_data_t *src_task_data,
ompt_data_t *sink_task_data
);
typedef struct ompt_record_task_dependence_t {
ompt_id_t src_task_id;
ompt_id_t sink_task_id;
} ompt_record_task_dependence_t;
typedef void (*ompt_callback_task_schedule_t) (
ompt_data_t *prior_task_data,
ompt_task_status_t prior_task_status,
ompt_data_t *next_task_data
);
typedef struct ompt_record_task_schedule_t {
ompt_id_t prior_task_id;
ompt_task_status_t prior_task_status;
ompt_id_t next_task_id;
} ompt_record_task_schedule_t;
typedef void (*ompt_callback_implicit_task_t) (
ompt_scope_endpoint_t endpoint,
ompt_data_t *parallel_data,
ompt_data_t *task_data,
unsigned int actual_parallelism,
unsigned int index,
int flags
);
typedef struct ompt_record_implicit_task_t {
ompt_scope_endpoint_t endpoint;
ompt_id_t parallel_id;
ompt_id_t task_id;
unsigned int actual_parallelism;
unsigned int index;
int flags;
} ompt_record_implicit_task_t;
typedef void (*ompt_callback_master_t) (
ompt_scope_endpoint_t endpoint,
ompt_data_t *parallel_data,
ompt_data_t *task_data,
const void *codeptr_ra
);
typedef struct ompt_record_master_t {
ompt_scope_endpoint_t endpoint;
ompt_id_t parallel_id;
ompt_id_t task_id;
const void *codeptr_ra;
} ompt_record_master_t;
typedef void (*ompt_callback_sync_region_t) (
ompt_sync_region_t kind,
ompt_scope_endpoint_t endpoint,
ompt_data_t *parallel_data,
ompt_data_t *task_data,
const void *codeptr_ra
);
typedef struct ompt_record_sync_region_t {
ompt_sync_region_t kind;
ompt_scope_endpoint_t endpoint;
ompt_id_t parallel_id;
ompt_id_t task_id;
const void *codeptr_ra;
} ompt_record_sync_region_t;
typedef void (*ompt_callback_mutex_acquire_t) (
ompt_mutex_t kind,
unsigned int hint,
unsigned int impl,
ompt_wait_id_t wait_id,
const void *codeptr_ra
);
typedef struct ompt_record_mutex_acquire_t {
ompt_mutex_t kind;
unsigned int hint;
unsigned int impl;
ompt_wait_id_t wait_id;
const void *codeptr_ra;
} ompt_record_mutex_acquire_t;
typedef void (*ompt_callback_mutex_t) (
ompt_mutex_t kind,
ompt_wait_id_t wait_id,
const void *codeptr_ra
);
typedef struct ompt_record_mutex_t {
ompt_mutex_t kind;
ompt_wait_id_t wait_id;
const void *codeptr_ra;
} ompt_record_mutex_t;
typedef void (*ompt_callback_nest_lock_t) (
ompt_scope_endpoint_t endpoint,
ompt_wait_id_t wait_id,
const void *codeptr_ra
);
typedef struct ompt_record_nest_lock_t {
ompt_scope_endpoint_t endpoint;
ompt_wait_id_t wait_id;
const void *codeptr_ra;
} ompt_record_nest_lock_t;
typedef void (*ompt_callback_flush_t) (
ompt_data_t *thread_data,
const void *codeptr_ra
);
typedef struct ompt_record_flush_t {
const void *codeptr_ra;
} ompt_record_flush_t;
typedef void (*ompt_callback_cancel_t) (
ompt_data_t *task_data,
int flags,
const void *codeptr_ra
);
typedef struct ompt_record_cancel_t {
ompt_id_t task_id;
int flags;
const void *codeptr_ra;
} ompt_record_cancel_t;
typedef void (*ompt_callback_device_initialize_t) (
int device_num,
const char *type,
ompt_device_t *device,
ompt_function_lookup_t lookup,
const char *documentation
);
typedef void (*ompt_callback_device_finalize_t) (
int device_num
);
typedef void (*ompt_callback_device_load_t) (
int device_num,
const char *filename,
int64_t offset_in_file,
void *vma_in_file,
size_t bytes,
void *host_addr,
void *device_addr,
uint64_t module_id
);
typedef void (*ompt_callback_device_unload_t) (
int device_num,
uint64_t module_id
);
typedef void (*ompt_callback_target_data_op_t) (
ompt_id_t target_id,
ompt_id_t host_op_id,
ompt_target_data_op_t optype,
void *src_addr,
int src_device_num,
void *dest_addr,
int dest_device_num,
size_t bytes,
const void *codeptr_ra
);
typedef struct ompt_record_target_data_op_t {
ompt_id_t host_op_id;
ompt_target_data_op_t optype;
void *src_addr;
int src_device_num;
void *dest_addr;
int dest_device_num;
size_t bytes;
ompt_device_time_t end_time;
const void *codeptr_ra;
} ompt_record_target_data_op_t;
typedef void (*ompt_callback_target_t) (
ompt_target_t kind,
ompt_scope_endpoint_t endpoint,
int device_num,
ompt_data_t *task_data,
ompt_id_t target_id,
const void *codeptr_ra
);
typedef struct ompt_record_target_t {
ompt_target_t kind;
ompt_scope_endpoint_t endpoint;
int device_num;
ompt_id_t task_id;
ompt_id_t target_id;
const void *codeptr_ra;
} ompt_record_target_t;
typedef void (*ompt_callback_target_map_t) (
ompt_id_t target_id,
unsigned int nitems,
void **host_addr,
void **device_addr,
size_t *bytes,
unsigned int *mapping_flags,
const void *codeptr_ra
);
typedef struct ompt_record_target_map_t {
ompt_id_t target_id;
unsigned int nitems;
void **host_addr;
void **device_addr;
size_t *bytes;
unsigned int *mapping_flags;
const void *codeptr_ra;
} ompt_record_target_map_t;
typedef void (*ompt_callback_target_submit_t) (
ompt_id_t target_id,
ompt_id_t host_op_id,
unsigned int requested_num_teams
);
typedef struct ompt_record_target_kernel_t {
ompt_id_t host_op_id;
unsigned int requested_num_teams;
unsigned int granted_num_teams;
ompt_device_time_t end_time;
} ompt_record_target_kernel_t;
typedef int (*ompt_callback_control_tool_t) (
uint64_t command,
uint64_t modifier,
void *arg,
const void *codeptr_ra
);
typedef struct ompt_record_control_tool_t {
uint64_t command;
uint64_t modifier;
const void *codeptr_ra;
} ompt_record_control_tool_t;
typedef struct ompd_address_t {
ompd_seg_t segment;
ompd_addr_t address;
} ompd_address_t;
typedef struct ompd_frame_info_t {
ompd_address_t frame_address;
ompd_word_t frame_flag;
} ompd_frame_info_t;
typedef struct _ompd_aspace_handle ompd_address_space_handle_t;
typedef struct _ompd_thread_handle ompd_thread_handle_t;
typedef struct _ompd_parallel_handle ompd_parallel_handle_t;
typedef struct _ompd_task_handle ompd_task_handle_t;
typedef struct _ompd_aspace_cont ompd_address_space_context_t;
typedef struct _ompd_thread_cont ompd_thread_context_t;
typedef struct ompd_device_type_sizes_t {
uint8_t sizeof_char;
uint8_t sizeof_short;
uint8_t sizeof_int;
uint8_t sizeof_long;
uint8_t sizeof_long_long;
uint8_t sizeof_pointer;
} ompd_device_type_sizes_t;
typedef struct ompt_record_ompt_t {
ompt_callbacks_t type;
ompt_device_time_t time;
ompt_id_t thread_id;
ompt_id_t target_id;
union {
ompt_record_thread_begin_t thread_begin;
ompt_record_parallel_begin_t parallel_begin;
ompt_record_parallel_end_t parallel_end;
ompt_record_work_t work;
ompt_record_dispatch_t dispatch;
ompt_record_task_create_t task_create;
ompt_record_dependences_t dependences;
ompt_record_task_dependence_t task_dependence;
ompt_record_task_schedule_t task_schedule;
ompt_record_implicit_task_t implicit_task;
ompt_record_master_t master;
ompt_record_sync_region_t sync_region;
ompt_record_mutex_acquire_t mutex_acquire;
ompt_record_mutex_t mutex;
ompt_record_nest_lock_t nest_lock;
ompt_record_flush_t flush;
ompt_record_cancel_t cancel;
ompt_record_target_t target;
ompt_record_target_data_op_t target_data_op;
ompt_record_target_map_t target_map;
ompt_record_target_kernel_t target_kernel;
ompt_record_control_tool_t control_tool;
} record;
} ompt_record_ompt_t;
typedef ompt_record_ompt_t *(*ompt_get_record_ompt_t) (
ompt_buffer_t *buffer,
ompt_buffer_cursor_t current
);
#define ompt_id_none 0
#define ompt_data_none {0}
#define ompt_time_none 0
#define ompt_hwid_none 0
#define ompt_addr_none ~0
#define ompt_mutex_impl_none 0
#define ompt_wait_id_none 0
#define ompd_segment_none 0
#endif /* __OMPT__ */

runtime/src/include/50/omp.h.var

/*
* include/50/omp.h.var
*/
//===----------------------------------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#ifndef __OMP_H
# define __OMP_H
# define KMP_VERSION_MAJOR @LIBOMP_VERSION_MAJOR@
# define KMP_VERSION_MINOR @LIBOMP_VERSION_MINOR@
# define KMP_VERSION_BUILD @LIBOMP_VERSION_BUILD@
# define KMP_BUILD_DATE "@LIBOMP_BUILD_DATE@"
# ifdef __cplusplus
extern "C" {
# endif
# define omp_set_affinity_format ompc_set_affinity_format
# define omp_get_affinity_format ompc_get_affinity_format
# define omp_display_affinity ompc_display_affinity
# define omp_capture_affinity ompc_capture_affinity
# if defined(_WIN32)
# define __KAI_KMPC_CONVENTION __cdecl
# ifndef __KMP_IMP
# define __KMP_IMP __declspec(dllimport)
# endif
# else
# define __KAI_KMPC_CONVENTION
# ifndef __KMP_IMP
# define __KMP_IMP
# endif
# endif
/* schedule kind constants */
typedef enum omp_sched_t {
omp_sched_static = 1,
omp_sched_dynamic = 2,
omp_sched_guided = 3,
omp_sched_auto = 4,
omp_sched_monotonic = 0x80000000
} omp_sched_t;
/* set API functions */
extern void __KAI_KMPC_CONVENTION omp_set_num_threads (int);
extern void __KAI_KMPC_CONVENTION omp_set_dynamic (int);
extern void __KAI_KMPC_CONVENTION omp_set_nested (int);
extern void __KAI_KMPC_CONVENTION omp_set_max_active_levels (int);
extern void __KAI_KMPC_CONVENTION omp_set_schedule (omp_sched_t, int);
/* query API functions */
extern int __KAI_KMPC_CONVENTION omp_get_num_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_dynamic (void);
extern int __KAI_KMPC_CONVENTION omp_get_nested (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_thread_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_procs (void);
extern int __KAI_KMPC_CONVENTION omp_in_parallel (void);
extern int __KAI_KMPC_CONVENTION omp_in_final (void);
extern int __KAI_KMPC_CONVENTION omp_get_active_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_ancestor_thread_num (int);
extern int __KAI_KMPC_CONVENTION omp_get_team_size (int);
extern int __KAI_KMPC_CONVENTION omp_get_thread_limit (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_active_levels (void);
extern void __KAI_KMPC_CONVENTION omp_get_schedule (omp_sched_t *, int *);
extern int __KAI_KMPC_CONVENTION omp_get_max_task_priority (void);
/* lock API functions */
typedef struct omp_lock_t {
void * _lk;
} omp_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_lock (omp_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_lock (omp_lock_t *);
/* nested lock API functions */
typedef struct omp_nest_lock_t {
void * _lk;
} omp_nest_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_nest_lock (omp_nest_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_nest_lock (omp_nest_lock_t *);
/* OpenMP 5.0 Synchronization hints*/
typedef enum omp_sync_hint_t {
omp_sync_hint_none = 0,
omp_lock_hint_none = omp_sync_hint_none,
omp_sync_hint_uncontended = 1,
omp_lock_hint_uncontended = omp_sync_hint_uncontended,
omp_sync_hint_contended = (1<<1),
omp_lock_hint_contended = omp_sync_hint_contended,
omp_sync_hint_nonspeculative = (1<<2),
omp_lock_hint_nonspeculative = omp_sync_hint_nonspeculative,
omp_sync_hint_speculative = (1<<3),
omp_lock_hint_speculative = omp_sync_hint_speculative,
kmp_lock_hint_hle = (1<<16),
kmp_lock_hint_rtm = (1<<17),
kmp_lock_hint_adaptive = (1<<18)
} omp_sync_hint_t;
/* lock hint type for dynamic user lock */
typedef omp_sync_hint_t omp_lock_hint_t;
/* hinted lock initializers */
extern void __KAI_KMPC_CONVENTION omp_init_lock_with_hint(omp_lock_t *, omp_lock_hint_t);
extern void __KAI_KMPC_CONVENTION omp_init_nest_lock_with_hint(omp_nest_lock_t *, omp_lock_hint_t);
/* time API functions */
extern double __KAI_KMPC_CONVENTION omp_get_wtime (void);
extern double __KAI_KMPC_CONVENTION omp_get_wtick (void);
/* OpenMP 4.0 */
extern int __KAI_KMPC_CONVENTION omp_get_default_device (void);
extern void __KAI_KMPC_CONVENTION omp_set_default_device (int);
extern int __KAI_KMPC_CONVENTION omp_is_initial_device (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_devices (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_teams (void);
extern int __KAI_KMPC_CONVENTION omp_get_team_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_cancellation (void);
# include <stdlib.h>
# include <stdint.h>
/* OpenMP 4.5 */
extern int __KAI_KMPC_CONVENTION omp_get_initial_device (void);
extern void* __KAI_KMPC_CONVENTION omp_target_alloc(size_t, int);
extern void __KAI_KMPC_CONVENTION omp_target_free(void *, int);
extern int __KAI_KMPC_CONVENTION omp_target_is_present(void *, int);
extern int __KAI_KMPC_CONVENTION omp_target_memcpy(void *, void *, size_t, size_t, size_t, int, int);
extern int __KAI_KMPC_CONVENTION omp_target_memcpy_rect(void *, void *, size_t, int, const size_t *,
const size_t *, const size_t *, const size_t *, const size_t *, int, int);
extern int __KAI_KMPC_CONVENTION omp_target_associate_ptr(void *, void *, size_t, size_t, int);
extern int __KAI_KMPC_CONVENTION omp_target_disassociate_ptr(void *, int);
/* OpenMP 5.0 */
extern int __KAI_KMPC_CONVENTION omp_get_device_num (void);
typedef void * omp_depend_t;
/* kmp API functions */
extern int __KAI_KMPC_CONVENTION kmp_get_stacksize (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize (int);
extern size_t __KAI_KMPC_CONVENTION kmp_get_stacksize_s (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize_s (size_t);
extern int __KAI_KMPC_CONVENTION kmp_get_blocktime (void);
extern int __KAI_KMPC_CONVENTION kmp_get_library (void);
extern void __KAI_KMPC_CONVENTION kmp_set_blocktime (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library_serial (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_turnaround (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_throughput (void);
extern void __KAI_KMPC_CONVENTION kmp_set_defaults (char const *);
extern void __KAI_KMPC_CONVENTION kmp_set_disp_num_buffers (int);
/* Intel affinity API */
typedef void * kmp_affinity_mask_t;
extern int __KAI_KMPC_CONVENTION kmp_set_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_max_proc (void);
extern void __KAI_KMPC_CONVENTION kmp_create_affinity_mask (kmp_affinity_mask_t *);
extern void __KAI_KMPC_CONVENTION kmp_destroy_affinity_mask (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_set_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_mask_proc (int, kmp_affinity_mask_t *);
/* OpenMP 4.0 affinity API */
typedef enum omp_proc_bind_t {
omp_proc_bind_false = 0,
omp_proc_bind_true = 1,
omp_proc_bind_master = 2,
omp_proc_bind_close = 3,
omp_proc_bind_spread = 4
} omp_proc_bind_t;
extern omp_proc_bind_t __KAI_KMPC_CONVENTION omp_get_proc_bind (void);
/* OpenMP 4.5 affinity API */
extern int __KAI_KMPC_CONVENTION omp_get_num_places (void);
extern int __KAI_KMPC_CONVENTION omp_get_place_num_procs (int);
extern void __KAI_KMPC_CONVENTION omp_get_place_proc_ids (int, int *);
extern int __KAI_KMPC_CONVENTION omp_get_place_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_partition_num_places (void);
extern void __KAI_KMPC_CONVENTION omp_get_partition_place_nums (int *);
extern void * __KAI_KMPC_CONVENTION kmp_malloc (size_t);
extern void * __KAI_KMPC_CONVENTION kmp_aligned_malloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_calloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_realloc (void *, size_t);
extern void __KAI_KMPC_CONVENTION kmp_free (void *);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_on(void);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_off(void);
/* OpenMP 5.0 Tool Control */
typedef enum omp_control_tool_result_t {
omp_control_tool_notool = -2,
omp_control_tool_nocallback = -1,
omp_control_tool_success = 0,
omp_control_tool_ignored = 1
} omp_control_tool_result_t;
typedef enum omp_control_tool_t {
omp_control_tool_start = 1,
omp_control_tool_pause = 2,
omp_control_tool_flush = 3,
omp_control_tool_end = 4
} omp_control_tool_t;
extern int __KAI_KMPC_CONVENTION omp_control_tool(int, int, void*);
/* OpenMP 5.0 Memory Management */
typedef uintptr_t omp_uintptr_t;
typedef enum {
OMP_ATK_THREADMODEL = 1,
OMP_ATK_ALIGNMENT = 2,
OMP_ATK_ACCESS = 3,
OMP_ATK_POOL_SIZE = 4,
OMP_ATK_FALLBACK = 5,
OMP_ATK_FB_DATA = 6,
OMP_ATK_PINNED = 7,
OMP_ATK_PARTITION = 8
} omp_alloctrait_key_t;
typedef enum {
OMP_ATV_FALSE = 0,
OMP_ATV_TRUE = 1,
OMP_ATV_DEFAULT = 2,
OMP_ATV_CONTENDED = 3,
OMP_ATV_UNCONTENDED = 4,
OMP_ATV_SEQUENTIAL = 5,
OMP_ATV_PRIVATE = 6,
OMP_ATV_ALL = 7,
OMP_ATV_THREAD = 8,
OMP_ATV_PTEAM = 9,
OMP_ATV_CGROUP = 10,
OMP_ATV_DEFAULT_MEM_FB = 11,
OMP_ATV_NULL_FB = 12,
OMP_ATV_ABORT_FB = 13,
OMP_ATV_ALLOCATOR_FB = 14,
OMP_ATV_ENVIRONMENT = 15,
OMP_ATV_NEAREST = 16,
OMP_ATV_BLOCKED = 17,
OMP_ATV_INTERLEAVED = 18
} omp_alloctrait_value_t;
typedef struct {
omp_alloctrait_key_t key;
omp_uintptr_t value;
} omp_alloctrait_t;
# if defined(_WIN32)
// On Windows cl and icl do not support 64-bit enum, let's use integer then.
typedef omp_uintptr_t omp_allocator_handle_t;
extern __KMP_IMP omp_allocator_handle_t const omp_null_allocator;
extern __KMP_IMP omp_allocator_handle_t const omp_default_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_large_cap_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_const_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_high_bw_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_low_lat_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_cgroup_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_pteam_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_thread_mem_alloc;
typedef omp_uintptr_t omp_memspace_handle_t;
extern __KMP_IMP omp_memspace_handle_t const omp_default_mem_space;
extern __KMP_IMP omp_memspace_handle_t const omp_large_cap_mem_space;
extern __KMP_IMP omp_memspace_handle_t const omp_const_mem_space;
extern __KMP_IMP omp_memspace_handle_t const omp_high_bw_mem_space;
extern __KMP_IMP omp_memspace_handle_t const omp_low_lat_mem_space;
# else
# if __cplusplus >= 201103
typedef enum omp_allocator_handle_t : omp_uintptr_t
# else
typedef enum omp_allocator_handle_t
# endif
{
omp_null_allocator = 0,
omp_default_mem_alloc = 1,
omp_large_cap_mem_alloc = 2,
omp_const_mem_alloc = 3,
omp_high_bw_mem_alloc = 4,
omp_low_lat_mem_alloc = 5,
omp_cgroup_mem_alloc = 6,
omp_pteam_mem_alloc = 7,
omp_thread_mem_alloc = 8,
KMP_ALLOCATOR_MAX_HANDLE = UINTPTR_MAX
} omp_allocator_handle_t;
# if __cplusplus >= 201103
typedef enum omp_memspace_handle_t : omp_uintptr_t
# else
typedef enum omp_memspace_handle_t
# endif
{
omp_default_mem_space = 0,
omp_large_cap_mem_space = 1,
omp_const_mem_space = 2,
omp_high_bw_mem_space = 3,
omp_low_lat_mem_space = 4,
KMP_MEMSPACE_MAX_HANDLE = UINTPTR_MAX
} omp_memspace_handle_t;
# endif
extern omp_allocator_handle_t __KAI_KMPC_CONVENTION omp_init_allocator(omp_memspace_handle_t m,
int ntraits, omp_alloctrait_t traits[]);
extern void __KAI_KMPC_CONVENTION omp_destroy_allocator(omp_allocator_handle_t allocator);
extern void __KAI_KMPC_CONVENTION omp_set_default_allocator(omp_allocator_handle_t a);
extern omp_allocator_handle_t __KAI_KMPC_CONVENTION omp_get_default_allocator(void);
# ifdef __cplusplus
extern void *__KAI_KMPC_CONVENTION omp_alloc(size_t size, omp_allocator_handle_t a = omp_null_allocator);
extern void __KAI_KMPC_CONVENTION omp_free(void * ptr, omp_allocator_handle_t a = omp_null_allocator);
# else
extern void *__KAI_KMPC_CONVENTION omp_alloc(size_t size, omp_allocator_handle_t a);
extern void __KAI_KMPC_CONVENTION omp_free(void *ptr, omp_allocator_handle_t a);
# endif
/* OpenMP 5.0 Affinity Format */
extern void __KAI_KMPC_CONVENTION omp_set_affinity_format(char const *);
extern size_t __KAI_KMPC_CONVENTION omp_get_affinity_format(char *, size_t);
extern void __KAI_KMPC_CONVENTION omp_display_affinity(char const *);
extern size_t __KAI_KMPC_CONVENTION omp_capture_affinity(char *, size_t, char const *);
/* OpenMP 5.0 events */
# if defined(_WIN32)
// On Windows cl and icl do not support 64-bit enum, let's use integer then.
typedef omp_uintptr_t omp_event_handle_t;
# else
typedef enum omp_event_handle_t { KMP_EVENT_MAX_HANDLE = UINTPTR_MAX } omp_event_handle_t;
# endif
extern void __KAI_KMPC_CONVENTION omp_fulfill_event ( omp_event_handle_t event );
/* OpenMP 5.0 Pause Resources */
typedef enum omp_pause_resource_t {
omp_pause_resume = 0,
omp_pause_soft = 1,
omp_pause_hard = 2
} omp_pause_resource_t;
extern int __KAI_KMPC_CONVENTION omp_pause_resource(omp_pause_resource_t, int);
extern int __KAI_KMPC_CONVENTION omp_pause_resource_all(omp_pause_resource_t);
extern int __KAI_KMPC_CONVENTION omp_get_supported_active_levels(void);
# undef __KAI_KMPC_CONVENTION
# undef __KMP_IMP
/* Warning:
The following typedefs are not standard, deprecated and will be removed in a future release.
*/
typedef int omp_int_t;
typedef double omp_wtime_t;
# ifdef __cplusplus
}
# endif
#endif /* __OMP_H */

runtime/src/include/50/omp_lib.h.var

! include/50/omp_lib.h.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
integer omp_integer_kind
parameter(omp_integer_kind=4)
integer omp_logical_kind
parameter(omp_logical_kind=4)
integer omp_real_kind
parameter(omp_real_kind=4)
integer omp_lock_kind
parameter(omp_lock_kind=int_ptr_kind())
integer omp_nest_lock_kind
parameter(omp_nest_lock_kind=int_ptr_kind())
integer omp_sched_kind
parameter(omp_sched_kind=omp_integer_kind)
integer omp_proc_bind_kind
parameter(omp_proc_bind_kind=omp_integer_kind)
integer kmp_pointer_kind
parameter(kmp_pointer_kind=int_ptr_kind())
integer kmp_size_t_kind
parameter(kmp_size_t_kind=int_ptr_kind())
integer kmp_affinity_mask_kind
parameter(kmp_affinity_mask_kind=int_ptr_kind())
integer omp_sync_hint_kind
parameter(omp_sync_hint_kind=omp_integer_kind)
integer omp_lock_hint_kind
parameter(omp_lock_hint_kind=omp_sync_hint_kind)
integer omp_control_tool_kind
parameter(omp_control_tool_kind=omp_integer_kind)
integer omp_control_tool_result_kind
parameter(omp_control_tool_result_kind=omp_integer_kind)
integer omp_allocator_handle_kind
parameter(omp_allocator_handle_kind=int_ptr_kind())
integer omp_memspace_handle_kind
parameter(omp_memspace_handle_kind=int_ptr_kind())
integer omp_alloctrait_key_kind
parameter(omp_alloctrait_key_kind=omp_integer_kind)
integer omp_alloctrait_val_kind
parameter(omp_alloctrait_val_kind=int_ptr_kind())
integer omp_pause_resource_kind
parameter(omp_pause_resource_kind=omp_integer_kind)
integer omp_depend_kind
parameter(omp_depend_kind=int_ptr_kind())
integer omp_event_handle_kind
parameter(omp_event_handle_kind=int_ptr_kind())
integer(kind=omp_integer_kind)openmp_version
parameter(openmp_version=@LIBOMP_OMP_YEAR_MONTH@)
integer(kind=omp_integer_kind)kmp_version_major
parameter(kmp_version_major=@LIBOMP_VERSION_MAJOR@)
integer(kind=omp_integer_kind)kmp_version_minor
parameter(kmp_version_minor=@LIBOMP_VERSION_MINOR@)
integer(kind=omp_integer_kind)kmp_version_build
parameter(kmp_version_build=@LIBOMP_VERSION_BUILD@)
character(*)kmp_build_date
parameter(kmp_build_date='@LIBOMP_BUILD_DATE@')
integer(kind=omp_sched_kind)omp_sched_static
parameter(omp_sched_static=1)
integer(kind=omp_sched_kind)omp_sched_dynamic
parameter(omp_sched_dynamic=2)
integer(kind=omp_sched_kind)omp_sched_guided
parameter(omp_sched_guided=3)
integer(kind=omp_sched_kind)omp_sched_auto
parameter(omp_sched_auto=4)
integer(kind=omp_sched_kind)omp_sched_monotonic
parameter(omp_sched_monotonic=Z'80000000')
integer(kind=omp_proc_bind_kind)omp_proc_bind_false
parameter(omp_proc_bind_false=0)
integer(kind=omp_proc_bind_kind)omp_proc_bind_true
parameter(omp_proc_bind_true=1)
integer(kind=omp_proc_bind_kind)omp_proc_bind_master
parameter(omp_proc_bind_master=2)
integer(kind=omp_proc_bind_kind)omp_proc_bind_close
parameter(omp_proc_bind_close=3)
integer(kind=omp_proc_bind_kind)omp_proc_bind_spread
parameter(omp_proc_bind_spread=4)
integer(kind=omp_sync_hint_kind)omp_sync_hint_none
parameter(omp_sync_hint_none=0)
integer(kind=omp_sync_hint_kind)omp_sync_hint_uncontended
parameter(omp_sync_hint_uncontended=1)
integer(kind=omp_sync_hint_kind)omp_sync_hint_contended
parameter(omp_sync_hint_contended=2)
integer(kind=omp_sync_hint_kind)omp_sync_hint_nonspeculative
parameter(omp_sync_hint_nonspeculative=4)
integer(kind=omp_sync_hint_kind)omp_sync_hint_speculative
parameter(omp_sync_hint_speculative=8)
integer(kind=omp_lock_hint_kind)omp_lock_hint_none
parameter(omp_lock_hint_none=omp_sync_hint_none)
integer(kind=omp_lock_hint_kind)omp_lock_hint_uncontended
parameter(omp_lock_hint_uncontended=omp_sync_hint_uncontended)
integer(kind=omp_lock_hint_kind)omp_lock_hint_contended
parameter(omp_lock_hint_contended=omp_sync_hint_contended)
integer(kind=omp_lock_hint_kind)omp_lock_hint_nonspeculative
parameter(omp_lock_hint_nonspeculative=4)
integer(kind=omp_lock_hint_kind)omp_lock_hint_speculative
parameter(omp_lock_hint_speculative=omp_sync_hint_speculative)
integer(kind=omp_lock_hint_kind)kmp_lock_hint_hle
parameter(kmp_lock_hint_hle=65536)
integer(kind=omp_lock_hint_kind)kmp_lock_hint_rtm
parameter(kmp_lock_hint_rtm=131072)
integer(kind=omp_lock_hint_kind)kmp_lock_hint_adaptive
parameter(kmp_lock_hint_adaptive=262144)
integer(kind=omp_control_tool_kind)omp_control_tool_start
parameter(omp_control_tool_start=1)
integer(kind=omp_control_tool_kind)omp_control_tool_pause
parameter(omp_control_tool_pause=2)
integer(kind=omp_control_tool_kind)omp_control_tool_flush
parameter(omp_control_tool_flush=3)
integer(kind=omp_control_tool_kind)omp_control_tool_end
parameter(omp_control_tool_end=4)
integer(omp_control_tool_result_kind)omp_control_tool_notool
parameter(omp_control_tool_notool=-2)
integer(omp_control_tool_result_kind)omp_control_tool_nocallback
parameter(omp_control_tool_nocallback=-1)
integer(omp_control_tool_result_kind)omp_control_tool_success
parameter(omp_control_tool_success=0)
integer(omp_control_tool_result_kind)omp_control_tool_ignored
parameter(omp_control_tool_ignored=1)
integer(kind=omp_alloctrait_key_kind)omp_atk_threadmodel
parameter(omp_atk_threadmodel=1)
integer(kind=omp_alloctrait_key_kind)omp_atk_alignment
parameter(omp_atk_alignment=2)
integer(kind=omp_alloctrait_key_kind)omp_atk_access
parameter(omp_atk_access=3)
integer(kind=omp_alloctrait_key_kind)omp_atk_pool_size
parameter(omp_atk_pool_size=4)
integer(kind=omp_alloctrait_key_kind)omp_atk_fallback
parameter(omp_atk_fallback=5)
integer(kind=omp_alloctrait_key_kind)omp_atk_fb_data
parameter(omp_atk_fb_data=6)
integer(kind=omp_alloctrait_key_kind)omp_atk_pinned
parameter(omp_atk_pinned=7)
integer(kind=omp_alloctrait_key_kind)omp_atk_partition
parameter(omp_atk_partition=8)
! Reserved for future use
integer(kind=omp_alloctrait_val_kind)omp_atv_false
parameter(omp_atv_false=0)
! Reserved for future use
integer(kind=omp_alloctrait_val_kind)omp_atv_true
parameter(omp_atv_true=1)
integer(kind=omp_alloctrait_val_kind)omp_atv_default
parameter(omp_atv_default=2)
integer(kind=omp_alloctrait_val_kind)omp_atv_contended
parameter(omp_atv_contended=3)
integer(kind=omp_alloctrait_val_kind)omp_atv_uncontended
parameter(omp_atv_uncontended=4)
integer(kind=omp_alloctrait_val_kind)omp_atv_sequential
parameter(omp_atv_sequential=5)
integer(kind=omp_alloctrait_val_kind)omp_atv_private
parameter(omp_atv_private=6)
integer(kind=omp_alloctrait_val_kind)omp_atv_all
parameter(omp_atv_all=7)
integer(kind=omp_alloctrait_val_kind)omp_atv_thread
parameter(omp_atv_thread=8)
integer(kind=omp_alloctrait_val_kind)omp_atv_pteam
parameter(omp_atv_pteam=9)
integer(kind=omp_alloctrait_val_kind)omp_atv_cgroup
parameter(omp_atv_cgroup=10)
integer(kind=omp_alloctrait_val_kind)omp_atv_default_mem_fb
parameter(omp_atv_default_mem_fb=11)
integer(kind=omp_alloctrait_val_kind)omp_atv_null_fb
parameter(omp_atv_null_fb=12)
integer(kind=omp_alloctrait_val_kind)omp_atv_abort_fb
parameter(omp_atv_abort_fb=13)
integer(kind=omp_alloctrait_val_kind)omp_atv_allocator_fb
parameter(omp_atv_allocator_fb=14)
integer(kind=omp_alloctrait_val_kind)omp_atv_environment
parameter(omp_atv_environment=15)
integer(kind=omp_alloctrait_val_kind)omp_atv_nearest
parameter(omp_atv_nearest=16)
integer(kind=omp_alloctrait_val_kind)omp_atv_blocked
parameter(omp_atv_blocked=17)
integer(kind=omp_alloctrait_val_kind)omp_atv_interleaved
parameter(omp_atv_interleaved=18)
type omp_alloctrait
integer (kind=omp_alloctrait_key_kind) key
integer (kind=omp_alloctrait_val_kind) value
end type omp_alloctrait
integer(kind=omp_allocator_handle_kind)omp_null_allocator
parameter(omp_null_allocator=0)
integer(kind=omp_allocator_handle_kind)omp_default_mem_alloc
parameter(omp_default_mem_alloc=1)
integer(kind=omp_allocator_handle_kind)omp_large_cap_mem_alloc
parameter(omp_large_cap_mem_alloc=2)
integer(kind=omp_allocator_handle_kind)omp_const_mem_alloc
parameter(omp_const_mem_alloc=3)
integer(kind=omp_allocator_handle_kind)omp_high_bw_mem_alloc
parameter(omp_high_bw_mem_alloc=4)
integer(kind=omp_allocator_handle_kind)omp_low_lat_mem_alloc
parameter(omp_low_lat_mem_alloc=5)
integer(kind=omp_allocator_handle_kind)omp_cgroup_mem_alloc
parameter(omp_cgroup_mem_alloc=6)
integer(kind=omp_allocator_handle_kind)omp_pteam_mem_alloc
parameter(omp_pteam_mem_alloc=7)
integer(kind=omp_allocator_handle_kind)omp_thread_mem_alloc
parameter(omp_thread_mem_alloc=8)
integer(kind=omp_memspace_handle_kind)omp_default_mem_space
parameter(omp_default_mem_space=0)
integer(kind=omp_memspace_handle_kind)omp_large_cap_mem_space
parameter(omp_large_cap_mem_space=1)
integer(kind=omp_memspace_handle_kind)omp_const_mem_space
parameter(omp_const_mem_space=2)
integer(kind=omp_memspace_handle_kind)omp_high_bw_mem_space
parameter(omp_high_bw_mem_space=3)
integer(kind=omp_memspace_handle_kind)omp_low_lat_mem_space
parameter(omp_low_lat_mem_space=4)
integer(kind=omp_pause_resource_kind)omp_pause_resume
parameter(omp_pause_resume=0)
integer(kind=omp_pause_resource_kind)omp_pause_soft
parameter(omp_pause_soft=1)
integer(kind=omp_pause_resource_kind)omp_pause_hard
parameter(omp_pause_hard=2)
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads) bind(c)
import
integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads) bind(c)
import
logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested) bind(c)
import
logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel() bind(c)
import
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final() bind(c)
import
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic() bind(c)
import
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested() bind(c)
import
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit() bind(c)
import
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels) bind(c)
import
integer (kind=omp_integer_kind), value :: max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level() bind(c)
import
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level() bind(c)
import
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level) bind(c)
import
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
integer (kind=omp_integer_kind), value :: level
end function omp_get_ancestor_thread_num
function omp_get_team_size(level) bind(c)
import
integer (kind=omp_integer_kind) omp_get_team_size
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind), value :: kind
integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
import
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_num_places() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_places
end function omp_get_num_places
function omp_get_place_num_procs(place_num) bind(c)
import
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
import
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) ids(*)
end subroutine omp_get_place_proc_ids
function omp_get_place_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num
function omp_get_partition_num_places() bind(c)
import
integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums) bind(c)
import
integer (kind=omp_integer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums
function omp_get_wtime() bind(c)
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick() bind(c)
double precision omp_get_wtick
end function omp_get_wtick
function omp_get_default_device() bind(c)
import
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num) bind(c)
import
integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_is_initial_device() bind(c)
import
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
function omp_get_initial_device() bind(c)
import
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
function omp_get_device_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_device_num
end function omp_get_device_num
function omp_pause_resource(kind, device_num) bind(c)
import
integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind), value :: device_num
integer (kind=omp_integer_kind) omp_pause_resource
end function omp_pause_resource
function omp_pause_resource_all(kind) bind(c)
import
integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind) omp_pause_resource_all
end function omp_pause_resource_all
function omp_get_supported_active_levels() bind(c)
import
integer (kind=omp_integer_kind) omp_get_supported_active_levels
end function omp_get_supported_active_levels
subroutine omp_fulfill_event(event) bind(c)
import
integer (kind=omp_event_handle_kind), value :: event
end subroutine omp_fulfill_event
subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
import
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_task_priority
end function omp_get_max_task_priority
function omp_init_allocator(memspace, ntraits, traits)
import
integer (omp_allocator_handle_kind) omp_init_allocator
integer (omp_memspace_handle_kind) :: memspace
integer (omp_integer_kind) :: ntraits
type(omp_alloctrait), intent(in) :: traits(*)
end function omp_init_allocator
subroutine omp_destroy_allocator(allocator) bind(c)
import
integer (omp_allocator_handle_kind), value :: allocator
end subroutine omp_destroy_allocator
subroutine omp_set_default_allocator(allocator) bind(c)
import
integer (omp_allocator_handle_kind), value :: allocator
end subroutine omp_set_default_allocator
function omp_get_default_allocator() bind(c)
import
integer (omp_allocator_handle_kind) omp_get_default_allocator
end function omp_get_default_allocator
subroutine omp_set_affinity_format(format)
character (len=*) :: format
end subroutine omp_set_affinity_format
function omp_get_affinity_format(buffer)
import
character (len=*) :: buffer
integer (kind=kmp_size_t_kind) :: omp_get_affinity_format
end function omp_get_affinity_format
subroutine omp_display_affinity(format)
character (len=*) :: format
end subroutine omp_display_affinity
function omp_capture_affinity(buffer, format)
import
character (len=*) :: format
character (len=*) :: buffer
integer (kind=kmp_size_t_kind) :: omp_capture_affinity
end function omp_capture_affinity
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size) bind(c)
import
integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size) bind(c)
import
integer (kind=kmp_size_t_kind), value :: size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec) bind(c)
import
integer (kind=omp_integer_kind), value :: msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial() bind(c)
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround() bind(c)
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput() bind(c)
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum) bind(c)
import
integer (kind=omp_integer_kind), value :: libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string) bind(c)
character string(*)
end subroutine kmp_set_defaults
function kmp_get_stacksize() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s() bind(c)
import
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
subroutine kmp_set_disp_num_buffers(num) bind(c)
import
integer (kind=omp_integer_kind), value :: num
end subroutine kmp_set_disp_num_buffers
function kmp_set_affinity(mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask) bind(c)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask) bind(c)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind), value :: size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind), value :: size
integer (kind=kmp_size_t_kind), value :: alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind), value :: nelem
integer (kind=kmp_size_t_kind), value :: elsize
end function kmp_calloc
function kmp_realloc(ptr, size) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind), value :: ptr
integer (kind=kmp_size_t_kind), value :: size
end function kmp_realloc
subroutine kmp_free(ptr) bind(c)
import
integer (kind=kmp_pointer_kind), value :: ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on() bind(c)
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
subroutine omp_init_lock_with_hint(svar, hint) bind(c)
import
integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
import
integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint
function omp_control_tool(command, modifier, arg) bind(c)
import
integer (kind=omp_integer_kind) omp_control_tool
integer (kind=omp_control_tool_kind), value :: command
integer (kind=omp_control_tool_kind), value :: modifier
integer (kind=kmp_pointer_kind), optional :: arg
end function omp_control_tool
end interface
!DIR$ IF DEFINED (__INTEL_OFFLOAD)
!DIR$ IF(__INTEL_COMPILER.LT.1900)
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_initial_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_device_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource_all
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_supported_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_fulfill_event
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_task_priority
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_affinity_format
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_affinity_format
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_display_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_capture_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_disp_num_buffers
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_aligned_malloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock_with_hint
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock_with_hint
!DIR$ ENDIF
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!$omp declare target(omp_set_num_threads )
!$omp declare target(omp_set_dynamic )
!$omp declare target(omp_set_nested )
!$omp declare target(omp_get_num_threads )
!$omp declare target(omp_get_max_threads )
!$omp declare target(omp_get_thread_num )
!$omp declare target(omp_get_num_procs )
!$omp declare target(omp_in_parallel )
!$omp declare target(omp_in_final )
!$omp declare target(omp_get_dynamic )
!$omp declare target(omp_get_nested )
!$omp declare target(omp_get_thread_limit )
!$omp declare target(omp_set_max_active_levels )
!$omp declare target(omp_get_max_active_levels )
!$omp declare target(omp_get_level )
!$omp declare target(omp_get_active_level )
!$omp declare target(omp_get_ancestor_thread_num )
!$omp declare target(omp_get_team_size )
!$omp declare target(omp_set_schedule )
!$omp declare target(omp_get_schedule )
!$omp declare target(omp_get_proc_bind )
!$omp declare target(omp_get_wtime )
!$omp declare target(omp_get_wtick )
!$omp declare target(omp_get_default_device )
!$omp declare target(omp_set_default_device )
!$omp declare target(omp_is_initial_device )
!$omp declare target(omp_get_initial_device )
!$omp declare target(omp_get_num_devices )
!$omp declare target(omp_get_device_num )
!$omp declare target(omp_pause_resource )
!$omp declare target(omp_pause_resource_all )
!$omp declare target(omp_get_supported_active_levels )
!$omp declare target(omp_fulfill_event)
!$omp declare target(omp_get_num_teams )
!$omp declare target(omp_get_team_num )
!$omp declare target(omp_init_lock )
!$omp declare target(omp_destroy_lock )
!$omp declare target(omp_set_lock )
!$omp declare target(omp_unset_lock )
!$omp declare target(omp_test_lock )
!$omp declare target(omp_init_nest_lock )
!$omp declare target(omp_destroy_nest_lock )
!$omp declare target(omp_set_nest_lock )
!$omp declare target(omp_unset_nest_lock )
!$omp declare target(omp_test_nest_lock )
!$omp declare target(omp_get_max_task_priority )
!$omp declare target(omp_set_affinity_format )
!$omp declare target(omp_get_affinity_format )
!$omp declare target(omp_display_affinity )
!$omp declare target(omp_capture_affinity )
!$omp declare target(kmp_set_stacksize )
!$omp declare target(kmp_set_stacksize_s )
!$omp declare target(kmp_set_blocktime )
!$omp declare target(kmp_set_library_serial )
!$omp declare target(kmp_set_library_turnaround )
!$omp declare target(kmp_set_library_throughput )
!$omp declare target(kmp_set_library )
!$omp declare target(kmp_set_defaults )
!$omp declare target(kmp_get_stacksize )
!$omp declare target(kmp_get_stacksize_s )
!$omp declare target(kmp_get_blocktime )
!$omp declare target(kmp_get_library )
!$omp declare target(kmp_set_disp_num_buffers )
!$omp declare target(kmp_set_affinity )
!$omp declare target(kmp_get_affinity )
!$omp declare target(kmp_get_affinity_max_proc )
!$omp declare target(kmp_create_affinity_mask )
!$omp declare target(kmp_destroy_affinity_mask )
!$omp declare target(kmp_set_affinity_mask_proc )
!$omp declare target(kmp_unset_affinity_mask_proc )
!$omp declare target(kmp_get_affinity_mask_proc )
!$omp declare target(kmp_malloc )
!$omp declare target(kmp_aligned_malloc )
!$omp declare target(kmp_calloc )
!$omp declare target(kmp_realloc )
!$omp declare target(kmp_free )
!$omp declare target(kmp_set_warnings_on )
!$omp declare target(kmp_set_warnings_off )
!$omp declare target(omp_init_lock_with_hint )
!$omp declare target(omp_init_nest_lock_with_hint )
!DIR$ ENDIF
!DIR$ ENDIF

runtime/src/include/50/omp_lib.f.var

! include/50/omp_lib.f.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
!***
!*** Some of the directives for the following routine extend past column 72,
!*** so process this file in 132-column mode.
!***
!dec$ fixedformlinesize:132
module omp_lib_kinds
integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = 4
integer, parameter :: omp_lock_kind = int_ptr_kind()
integer, parameter :: omp_nest_lock_kind = int_ptr_kind()
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = int_ptr_kind()
integer, parameter :: kmp_size_t_kind = int_ptr_kind()
integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
integer, parameter :: kmp_cancel_kind = omp_integer_kind
integer, parameter :: omp_lock_hint_kind = omp_integer_kind
integer, parameter :: omp_control_tool_kind = omp_integer_kind
integer, parameter :: omp_control_tool_result_kind = omp_integer_kind
integer, parameter :: omp_allocator_handle_kind = int_ptr_kind()
integer, parameter :: omp_memspace_handle_kind = int_ptr_kind()
integer, parameter :: omp_alloctrait_key_kind = omp_integer_kind
integer, parameter :: omp_alloctrait_val_kind = int_ptr_kind()
type omp_alloctrait
integer(kind=omp_alloctrait_key_kind) key
integer(kind=omp_alloctrait_val_kind) value
end type omp_alloctrait
integer, parameter :: omp_pause_resource_kind = omp_integer_kind
integer, parameter :: omp_depend_kind = int_ptr_kind()
integer, parameter :: omp_event_handle_kind = int_ptr_kind()
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*), parameter :: kmp_build_date = '@LIBOMP_BUILD_DATE@'
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer(kind=omp_sched_kind), parameter :: omp_sched_monotonic = Z'80000000'
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none = 0
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended = 1
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended = 2
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative = 8
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 65536
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 131072
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 262144
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_threadmodel = 1
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_alignment = 2
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_access = 3
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_pool_size = 4
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_fallback = 5
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_fb_data = 6
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_pinned = 7
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_partition = 8
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_false = 0
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_true = 1
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_default = 2
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_contended = 3
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_uncontended = 4
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_sequential = 5
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_private = 6
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_all = 7
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_thread = 8
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_pteam = 9
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_cgroup = 10
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_default_mem_fb = 11
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_null_fb = 12
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_abort_fb = 13
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_allocator_fb = 14
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_environment = 15
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_nearest = 16
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_blocked = 17
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_interleaved = 18
integer (kind=omp_allocator_handle_kind), parameter :: omp_null_allocator = 0
integer (kind=omp_allocator_handle_kind), parameter :: omp_default_mem_alloc = 1
integer (kind=omp_allocator_handle_kind), parameter :: omp_large_cap_mem_alloc = 2
integer (kind=omp_allocator_handle_kind), parameter :: omp_const_mem_alloc = 3
integer (kind=omp_allocator_handle_kind), parameter :: omp_high_bw_mem_alloc = 4
integer (kind=omp_allocator_handle_kind), parameter :: omp_low_lat_mem_alloc = 5
integer (kind=omp_allocator_handle_kind), parameter :: omp_cgroup_mem_alloc = 6
integer (kind=omp_allocator_handle_kind), parameter :: omp_pteam_mem_alloc = 7
integer (kind=omp_allocator_handle_kind), parameter :: omp_thread_mem_alloc = 8
integer (kind=omp_memspace_handle_kind), parameter :: omp_default_mem_space = 0
integer (kind=omp_memspace_handle_kind), parameter :: omp_large_cap_mem_space = 1
integer (kind=omp_memspace_handle_kind), parameter :: omp_const_mem_space = 2
integer (kind=omp_memspace_handle_kind), parameter :: omp_high_bw_mem_space = 3
integer (kind=omp_memspace_handle_kind), parameter :: omp_low_lat_mem_space = 4
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_resume = 0
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_soft = 1
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_hard = 2
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads)
use omp_lib_kinds
integer (kind=omp_integer_kind) num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads)
use omp_lib_kinds
logical (kind=omp_logical_kind) dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested)
use omp_lib_kinds
logical (kind=omp_logical_kind) nested
end subroutine omp_set_nested
function omp_get_num_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels)
use omp_lib_kinds
integer (kind=omp_integer_kind) max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
end function omp_get_ancestor_thread_num
function omp_get_team_size(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_team_size
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind()
use omp_lib_kinds
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_num_places()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_places
end function omp_get_num_places
function omp_get_place_num_procs(place_num)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_num
integer (kind=omp_integer_kind) ids(*)
end subroutine omp_get_place_proc_ids
function omp_get_place_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num
function omp_get_partition_num_places()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums
function omp_get_wtime()
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick ()
double precision omp_get_wtick
end function omp_get_wtick
function omp_get_default_device()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num)
use omp_lib_kinds
integer (kind=omp_integer_kind) device_num
end subroutine omp_set_default_device
function omp_get_num_devices()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_get_cancellation()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_cancellation
end function omp_get_cancellation
function omp_is_initial_device()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
function omp_get_initial_device()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
function omp_get_device_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_device_num
end function omp_get_device_num
function omp_pause_resource(kind, device_num)
use omp_lib_kinds
integer (kind=omp_pause_resource_kind) kind
integer (kind=omp_integer_kind) device_num
integer (kind=omp_integer_kind) omp_pause_resource
end function omp_pause_resource
function omp_pause_resource_all(kind)
use omp_lib_kinds
integer (kind=omp_pause_resource_kind) kind
integer (kind=omp_integer_kind) omp_pause_resource_all
end function omp_pause_resource_all
function omp_get_supported_active_levels()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_supported_active_levels
end function omp_get_supported_active_levels
subroutine omp_fulfill_event(event)
use omp_lib_kinds
integer (kind=omp_event_handle_kind) event
end subroutine omp_fulfill_event
subroutine omp_init_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_task_priority
end function omp_get_max_task_priority
function omp_init_allocator(memspace, ntraits, traits)
use omp_lib_kinds
integer (omp_allocator_handle_kind) omp_init_allocator
integer (omp_memspace_handle_kind) :: memspace
integer (omp_integer_kind) :: ntraits
type(omp_alloctrait), intent(in) :: traits(*)
end function omp_init_allocator
subroutine omp_destroy_allocator(allocator) bind(c)
use omp_lib_kinds
integer (omp_allocator_handle_kind), value :: allocator
end subroutine omp_destroy_allocator
subroutine omp_set_default_allocator(allocator) bind(c)
use omp_lib_kinds
integer (omp_allocator_handle_kind) allocator
end subroutine omp_set_default_allocator
function omp_get_default_allocator() bind(c)
use omp_lib_kinds
integer(omp_allocator_handle_kind)omp_get_default_allocator
end function omp_get_default_allocator
subroutine omp_set_affinity_format(format)
character (len=*) format
end subroutine omp_set_affinity_format
function omp_get_affinity_format(buffer)
use omp_lib_kinds
character (len=*) buffer
integer (kind=kmp_size_t_kind) omp_get_affinity_format
end function omp_get_affinity_format
subroutine omp_display_affinity(format)
character (len=*) format
end subroutine omp_display_affinity
function omp_capture_affinity(buffer, format)
use omp_lib_kinds
character (len=*) format
character (len=*) buffer
integer (kind=kmp_size_t_kind) omp_capture_affinity
end function omp_capture_affinity
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size)
use omp_lib_kinds
integer (kind=omp_integer_kind) size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec)
use omp_lib_kinds
integer (kind=omp_integer_kind) msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial()
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround()
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput()
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum)
use omp_lib_kinds
integer (kind=omp_integer_kind) libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string)
character*(*) string
end subroutine kmp_set_defaults
function kmp_get_stacksize()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s()
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
subroutine kmp_set_disp_num_buffers(num)
use omp_lib_kinds
integer (kind=omp_integer_kind) num
end subroutine kmp_set_disp_num_buffers
function kmp_set_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind) size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind) size
integer (kind=kmp_size_t_kind) alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind) nelem
integer (kind=kmp_size_t_kind) elsize
end function kmp_calloc
function kmp_realloc(ptr, size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind) ptr
integer (kind=kmp_size_t_kind) size
end function kmp_realloc
subroutine kmp_free(ptr)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on()
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off()
end subroutine kmp_set_warnings_off
function kmp_get_cancellation_status(cancelkind)
use omp_lib_kinds
integer (kind=kmp_cancel_kind) cancelkind
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
subroutine omp_init_lock_with_hint(svar, hint)
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind) hint
end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind) hint
end subroutine omp_init_nest_lock_with_hint
function omp_control_tool(command, modifier)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_control_tool
integer (kind=omp_control_tool_kind) command
integer (kind=omp_control_tool_kind) modifier
end function omp_control_tool
end interface
!dec$ if defined(_WIN32)
!dec$ if defined(_WIN64) .or. defined(_M_AMD64)
!***
!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
!*** option is specified. The alias attribute ensures that the specified
!*** string is used as the entry point.
!***
!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
!*** underscore prepended. On the Windows* OS Intel(R) 64
!*** architecture, no underscore is prepended.
!***
!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind
!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
!dec$ attributes alias:'OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
!dec$ attributes alias:'OMP_GET_NUM_DEVICES' :: omp_get_num_devices
!dec$ attributes alias:'OMP_GET_NUM_TEAMS' :: omp_get_num_teams
!dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device
!dec$ attributes alias:'OMP_GET_MAX_TASK_PRIORITY' :: omp_get_max_task_priority
!dec$ attributes alias:'OMP_GET_DEVICE_NUM' :: omp_get_device_num
!dec$ attributes alias:'OMP_PAUSE_RESOURCE' :: omp_pause_resource
!dec$ attributes alias:'OMP_PAUSE_RESOURCE_ALL' :: omp_pause_resource_all
!dec$ attributes alias:'OMP_GET_SUPPORTED_ACTIVE_LEVELS' :: omp_get_supported_active_levels
!dec$ attributes alias:'OMP_FULFILL_EVENT' :: omp_fulfill_event
!dec$ attributes alias:'OMP_CONTROL_TOOL' :: omp_control_tool
!dec$ attributes alias:'OMP_SET_AFFINITY_FORMAT' :: omp_set_affinity_format
!dec$ attributes alias:'OMP_GET_AFFINITY_FORMAT' :: omp_get_affinity_format
!dec$ attributes alias:'OMP_DISPLAY_AFFINITY' :: omp_display_affinity
!dec$ attributes alias:'OMP_CAPTURE_AFFINITY' :: omp_capture_affinity
!dec$ attributes alias:'omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'omp_init_lock_with_hint' :: omp_init_lock_with_hint
!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint
!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'KMP_FREE'::kmp_free
!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ attributes alias:'KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
!dec$ else
!***
!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
!***
!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind
!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'_OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
!dec$ attributes alias:'_OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
!dec$ attributes alias:'_OMP_GET_NUM_DEVICES' :: omp_get_num_devices
!dec$ attributes alias:'_OMP_GET_NUM_TEAMS' :: omp_get_num_teams
!dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'_OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device
!dec$ attributes alias:'_OMP_GET_MAX_TASK_PRIORTY' :: omp_get_max_task_priority
!dec$ attributes alias:'_OMP_GET_DEVICE_NUM' :: omp_get_device_num
!dec$ attributes alias:'_OMP_PAUSE_RESOURCE' :: omp_pause_resource
!dec$ attributes alias:'_OMP_PAUSE_RESOURCE_ALL' :: omp_pause_resource_all
!dec$ attributes alias:'_OMP_GET_SUPPORTED_ACTIVE_LEVELS' :: omp_get_supported_active_levels
!dec$ attributes alias:'_OMP_FULFILL_EVENT' :: omp_fulfill_event
!dec$ attributes alias:'_OMP_CONTROL_TOOL' :: omp_control_tool
!dec$ attributes alias:'_OMP_SET_AFFINITY_FORMAT' :: omp_set_affinity_format
!dec$ attributes alias:'_OMP_GET_AFFINITY_FORMAT' :: omp_get_affinity_format
!dec$ attributes alias:'_OMP_DISPLAY_AFFINITY' :: omp_display_affinity
!dec$ attributes alias:'_OMP_CAPTURE_AFFINITY' :: omp_capture_affinity
!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'_omp_init_lock_with_hint' :: omp_init_lock_with_hint
!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'_omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint
!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'_KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'_KMP_FREE'::kmp_free
!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ attributes alias:'_KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
!dec$ endif
!dec$ endif
!dec$ if defined(__linux)
!***
!*** The Linux* OS entry points are in lowercase, with an underscore appended.
!***
!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'omp_get_level_'::omp_get_level
!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind
!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'omp_get_default_device_'::omp_get_default_device
!dec$ attributes alias:'omp_set_default_device_'::omp_set_default_device
!dec$ attributes alias:'omp_get_num_devices_'::omp_get_num_devices
!dec$ attributes alias:'omp_get_num_teams_'::omp_get_num_teams
!dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'omp_get_initial_device_'::omp_get_initial_device
!dec$ attributes alias:'omp_get_max_task_priority_'::omp_get_max_task_priority
!dec$ attributes alias:'omp_get_device_num_'::omp_get_device_num
!dec$ attributes alias:'omp_pause_resource_' :: omp_pause_resource
!dec$ attributes alias:'omp_pause_resource_all_' :: omp_pause_resource_all
!dec$ attributes alias:'omp_get_supported_active_levels_' :: omp_get_supported_active_levels
!dec$ attributes alias:'omp_fulfill_event_' :: omp_fulfill_event
!dec$ attributes alias:'omp_set_affinity_format_' :: omp_set_affinity_format
!dec$ attributes alias:'omp_get_affinity_format_' :: omp_get_affinity_format
!dec$ attributes alias:'omp_display_affinity_' :: omp_display_affinity
!dec$ attributes alias:'omp_capture_affinity_' :: omp_capture_affinity
!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'omp_init_lock_with_hint_'::omp_init_lock_with_hint
!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint
!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'omp_control_tool_'::omp_control_tool
!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'kmp_free_'::kmp_free
!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ attributes alias:'kmp_get_cancellation_status_'::kmp_get_cancellation_status
!dec$ endif
!dec$ if defined(__APPLE__)
!***
!*** The Mac entry points are in lowercase, with an both an underscore
!*** appended and an underscore prepended.
!***
!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'_omp_get_level_'::omp_get_level
!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind
!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'_omp_get_default_device_'::omp_get_default_device
!dec$ attributes alias:'_omp_set_default_device_'::omp_set_default_device
!dec$ attributes alias:'_omp_get_num_devices_'::omp_get_num_devices
!dec$ attributes alias:'_omp_get_num_teams_'::omp_get_num_teams
!dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'_omp_get_initial_device_'::omp_get_initial_device
!dec$ attributes alias:'_omp_get_max_task_priorty_'::omp_get_max_task_priority
!dec$ attributes alias:'_omp_get_device_num_'::omp_get_device_num
!dec$ attributes alias:'_omp_pause_resource_' :: omp_pause_resource
!dec$ attributes alias:'_omp_pause_resource_all_' :: omp_pause_resource_all
!dec$ attributes alias:'_omp_get_supported_active_levels_' :: omp_get_supported_active_levels
!dec$ attributes alias:'_omp_fulfill_event_' :: omp_fulfill_event
!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'_omp_init_lock_with_hint_'::omp_init_lock_with_hint
!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'_omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint
!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'_omp_control_tool_'::omp_control_tool
!dec$ attributes alias:'_omp_set_affinity_format_' :: omp_set_affinity_format
!dec$ attributes alias:'_omp_get_affinity_format_' :: omp_get_affinity_format
!dec$ attributes alias:'_omp_display_affinity_' :: omp_display_affinity
!dec$ attributes alias:'_omp_capture_affinity_' :: omp_capture_affinity
!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'_kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'_kmp_free_'::kmp_free
!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ attributes alias:'_kmp_get_cancellation_status_'::kmp_get_cancellation_status
!dec$ endif
end module omp_lib

runtime/src/include/50/omp_lib.f90.var

! include/50/omp_lib.f90.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
module omp_lib_kinds
use, intrinsic :: iso_c_binding
integer, parameter :: omp_integer_kind = c_int
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = c_float
integer, parameter :: kmp_double_kind = c_double
integer, parameter :: omp_lock_kind = c_intptr_t
integer, parameter :: omp_nest_lock_kind = c_intptr_t
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = c_intptr_t
integer, parameter :: kmp_size_t_kind = c_size_t
integer, parameter :: kmp_affinity_mask_kind = c_intptr_t
integer, parameter :: kmp_cancel_kind = omp_integer_kind
integer, parameter :: omp_sync_hint_kind = omp_integer_kind
integer, parameter :: omp_lock_hint_kind = omp_sync_hint_kind
integer, parameter :: omp_control_tool_kind = omp_integer_kind
integer, parameter :: omp_control_tool_result_kind = omp_integer_kind
integer, parameter :: omp_allocator_handle_kind = c_intptr_t
integer, parameter :: omp_memspace_handle_kind = c_intptr_t
integer, parameter :: omp_alloctrait_key_kind = omp_integer_kind
integer, parameter :: omp_alloctrait_val_kind = c_intptr_t
type omp_alloctrait
integer(kind=omp_alloctrait_key_kind) key
integer(kind=omp_alloctrait_val_kind) value
end type omp_alloctrait
integer, parameter :: omp_pause_resource_kind = omp_integer_kind
integer, parameter :: omp_depend_kind = c_intptr_t
integer, parameter :: omp_event_handle_kind = c_intptr_t
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*) kmp_build_date
parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer(kind=omp_sched_kind), parameter :: omp_sched_monotonic = int(Z'80000000', kind=omp_sched_kind)
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_none = 0
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_uncontended = 1
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_contended = 2
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_nonspeculative = 4
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_speculative = 8
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none = omp_sync_hint_none
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended = omp_sync_hint_uncontended
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended = omp_sync_hint_contended
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = omp_sync_hint_nonspeculative
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative = omp_sync_hint_speculative
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 65536
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 131072
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 262144
integer (kind=omp_control_tool_kind), parameter :: omp_control_tool_start = 1
integer (kind=omp_control_tool_kind), parameter :: omp_control_tool_pause = 2
integer (kind=omp_control_tool_kind), parameter :: omp_control_tool_flush = 3
integer (kind=omp_control_tool_kind), parameter :: omp_control_tool_end = 4
integer (kind=omp_control_tool_result_kind), parameter :: omp_control_tool_notool = -2
integer (kind=omp_control_tool_result_kind), parameter :: omp_control_tool_nocallback = -1
integer (kind=omp_control_tool_result_kind), parameter :: omp_control_tool_success = 0
integer (kind=omp_control_tool_result_kind), parameter :: omp_control_tool_ignored = 1
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_threadmodel = 1
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_alignment = 2
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_access = 3
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_pool_size = 4
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_fallback = 5
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_fb_data = 6
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_pinned = 7
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_partition = 8
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_false = 0
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_true = 1
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_default = 2
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_contended = 3
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_uncontended = 4
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_sequential = 5
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_private = 6
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_all = 7
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_thread = 8
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_pteam = 9
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_cgroup = 10
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_default_mem_fb = 11
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_null_fb = 12
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_abort_fb = 13
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_allocator_fb = 14
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_environment = 15
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_nearest = 16
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_blocked = 17
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_interleaved = 18
integer (kind=omp_allocator_handle_kind), parameter :: omp_null_allocator = 0
integer (kind=omp_allocator_handle_kind), parameter :: omp_default_mem_alloc = 1
integer (kind=omp_allocator_handle_kind), parameter :: omp_large_cap_mem_alloc = 2
integer (kind=omp_allocator_handle_kind), parameter :: omp_const_mem_alloc = 3
integer (kind=omp_allocator_handle_kind), parameter :: omp_high_bw_mem_alloc = 4
integer (kind=omp_allocator_handle_kind), parameter :: omp_low_lat_mem_alloc = 5
integer (kind=omp_allocator_handle_kind), parameter :: omp_cgroup_mem_alloc = 6
integer (kind=omp_allocator_handle_kind), parameter :: omp_pteam_mem_alloc = 7
integer (kind=omp_allocator_handle_kind), parameter :: omp_thread_mem_alloc = 8
integer (kind=omp_memspace_handle_kind), parameter :: omp_default_mem_space = 0
integer (kind=omp_memspace_handle_kind), parameter :: omp_large_cap_mem_space = 1
integer (kind=omp_memspace_handle_kind), parameter :: omp_const_mem_space = 2
integer (kind=omp_memspace_handle_kind), parameter :: omp_high_bw_mem_space = 3
integer (kind=omp_memspace_handle_kind), parameter :: omp_low_lat_mem_space = 4
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_resume = 0
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_soft = 1
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_hard = 2
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
integer (kind=omp_integer_kind), value :: level
end function omp_get_ancestor_thread_num
function omp_get_team_size(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_size
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind), value :: kind
integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
use omp_lib_kinds
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_num_places() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_places
end function omp_get_num_places
function omp_get_place_num_procs(place_num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) ids(*)
end subroutine omp_get_place_proc_ids
function omp_get_place_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num
function omp_get_partition_num_places() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums
function omp_get_wtime() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtime
end function omp_get_wtime
function omp_get_wtick() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtick
end function omp_get_wtick
function omp_get_default_device() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_get_cancellation() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_cancellation
end function omp_get_cancellation
function omp_is_initial_device() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
function omp_get_initial_device() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
function omp_get_device_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_device_num
end function omp_get_device_num
function omp_pause_resource(kind, device_num) bind(c)
use omp_lib_kinds
integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind), value :: device_num
integer (kind=omp_integer_kind) omp_pause_resource
end function omp_pause_resource
function omp_pause_resource_all(kind) bind(c)
use omp_lib_kinds
integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind) omp_pause_resource_all
end function omp_pause_resource_all
function omp_get_supported_active_levels() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_supported_active_levels
end function omp_get_supported_active_levels
subroutine omp_fulfill_event(event) bind(c)
use omp_lib_kinds
integer (kind=omp_event_handle_kind), value :: event
end subroutine omp_fulfill_event
subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_task_priority
end function omp_get_max_task_priority
function omp_init_allocator(memspace, ntraits, traits)
use omp_lib_kinds
integer (kind=omp_allocator_handle_kind) omp_init_allocator
integer (kind=omp_memspace_handle_kind) :: memspace
integer (kind=omp_integer_kind) :: ntraits
type(omp_alloctrait), intent(in) :: traits(*)
end function omp_init_allocator
subroutine omp_destroy_allocator(allocator) bind(c)
use omp_lib_kinds
integer (kind=omp_allocator_handle_kind), value :: allocator
end subroutine omp_destroy_allocator
subroutine omp_set_default_allocator(allocator) bind(c)
use omp_lib_kinds
integer (kind=omp_allocator_handle_kind), value :: allocator
end subroutine omp_set_default_allocator
function omp_get_default_allocator() bind(c)
use omp_lib_kinds
integer (kind=omp_allocator_handle_kind) omp_get_default_allocator
end function omp_get_default_allocator
subroutine omp_set_affinity_format(format)
character (len=*) :: format
end subroutine omp_set_affinity_format
function omp_get_affinity_format(buffer)
use omp_lib_kinds
character (len=*) :: buffer
integer (kind=kmp_size_t_kind) :: omp_get_affinity_format
end function omp_get_affinity_format
subroutine omp_display_affinity(format)
character (len=*) :: format
end subroutine omp_display_affinity
function omp_capture_affinity(buffer, format)
use omp_lib_kinds
character (len=*) :: format
character (len=*) :: buffer
integer (kind=kmp_size_t_kind) :: omp_capture_affinity
end function omp_capture_affinity
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind), value :: size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial() bind(c)
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround() bind(c)
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput() bind(c)
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string) bind(c)
use, intrinsic :: iso_c_binding
character (kind=c_char) :: string(*)
end subroutine kmp_set_defaults
function kmp_get_stacksize() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s() bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
subroutine kmp_set_disp_num_buffers(num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: num
end subroutine kmp_set_disp_num_buffers
function kmp_set_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind), value :: size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind), value :: size
integer (kind=kmp_size_t_kind), value :: alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind), value :: nelem
integer (kind=kmp_size_t_kind), value :: elsize
end function kmp_calloc
function kmp_realloc(ptr, size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind), value :: ptr
integer (kind=kmp_size_t_kind), value :: size
end function kmp_realloc
subroutine kmp_free(ptr) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind), value :: ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on() bind(c)
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
function kmp_get_cancellation_status(cancelkind) bind(c)
use omp_lib_kinds
integer (kind=kmp_cancel_kind), value :: cancelkind
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
subroutine omp_init_lock_with_hint(svar, hint) bind(c)
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint
function omp_control_tool(command, modifier, arg) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_control_tool
integer (kind=omp_control_tool_kind), value :: command
integer (kind=omp_control_tool_kind), value :: modifier
integer (kind=kmp_pointer_kind), optional :: arg
end function omp_control_tool
end interface
end module omp_lib

runtime/src/include/omp-tools.h.var

/*
* include/omp-tools.h.var
*/
//===----------------------------------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#ifndef __OMPT__
#define __OMPT__
/*****************************************************************************
* system include files
*****************************************************************************/
#include <stdint.h>
#include <stddef.h>
/*****************************************************************************
* iteration macros
*****************************************************************************/
#define FOREACH_OMPT_INQUIRY_FN(macro) \
macro (ompt_enumerate_states) \
macro (ompt_enumerate_mutex_impls) \
\
macro (ompt_set_callback) \
macro (ompt_get_callback) \
\
macro (ompt_get_state) \
\
macro (ompt_get_parallel_info) \
macro (ompt_get_task_info) \
macro (ompt_get_task_memory) \
macro (ompt_get_thread_data) \
macro (ompt_get_unique_id) \
macro (ompt_finalize_tool) \
\
macro(ompt_get_num_procs) \
macro(ompt_get_num_places) \
macro(ompt_get_place_proc_ids) \
macro(ompt_get_place_num) \
macro(ompt_get_partition_place_nums) \
macro(ompt_get_proc_id) \
\
macro(ompt_get_target_info) \
macro(ompt_get_num_devices)
#define FOREACH_OMPT_STATE(macro) \
\
/* first available state */ \
macro (ompt_state_undefined, 0x102) /* undefined thread state */ \
\
/* work states (0..15) */ \
macro (ompt_state_work_serial, 0x000) /* working outside parallel */ \
macro (ompt_state_work_parallel, 0x001) /* working within parallel */ \
macro (ompt_state_work_reduction, 0x002) /* performing a reduction */ \
\
/* barrier wait states (16..31) */ \
macro (ompt_state_wait_barrier, 0x010) /* waiting at a barrier */ \
macro (ompt_state_wait_barrier_implicit_parallel, 0x011) \
/* implicit barrier at the end of parallel region */\
macro (ompt_state_wait_barrier_implicit_workshare, 0x012) \
/* implicit barrier at the end of worksharing */ \
macro (ompt_state_wait_barrier_implicit, 0x013) /* implicit barrier */ \
macro (ompt_state_wait_barrier_explicit, 0x014) /* explicit barrier */ \
\
/* task wait states (32..63) */ \
macro (ompt_state_wait_taskwait, 0x020) /* waiting at a taskwait */ \
macro (ompt_state_wait_taskgroup, 0x021) /* waiting at a taskgroup */ \
\
/* mutex wait states (64..127) */ \
macro (ompt_state_wait_mutex, 0x040) \
macro (ompt_state_wait_lock, 0x041) /* waiting for lock */ \
macro (ompt_state_wait_critical, 0x042) /* waiting for critical */ \
macro (ompt_state_wait_atomic, 0x043) /* waiting for atomic */ \
macro (ompt_state_wait_ordered, 0x044) /* waiting for ordered */ \
\
/* target wait states (128..255) */ \
macro (ompt_state_wait_target, 0x080) /* waiting for target region */ \
macro (ompt_state_wait_target_map, 0x081) /* waiting for target data mapping operation */ \
macro (ompt_state_wait_target_update, 0x082) /* waiting for target update operation */ \
\
/* misc (256..511) */ \
macro (ompt_state_idle, 0x100) /* waiting for work */ \
macro (ompt_state_overhead, 0x101) /* overhead excluding wait states */ \
\
/* implementation-specific states (512..) */
#define FOREACH_KMP_MUTEX_IMPL(macro) \
macro (kmp_mutex_impl_none, 0) /* unknown implementation */ \
macro (kmp_mutex_impl_spin, 1) /* based on spin */ \
macro (kmp_mutex_impl_queuing, 2) /* based on some fair policy */ \
macro (kmp_mutex_impl_speculative, 3) /* based on HW-supported speculation */
#define FOREACH_OMPT_EVENT(macro) \
\
/*--- Mandatory Events ---*/ \
macro (ompt_callback_thread_begin, ompt_callback_thread_begin_t, 1) /* thread begin */ \
macro (ompt_callback_thread_end, ompt_callback_thread_end_t, 2) /* thread end */ \
\
macro (ompt_callback_parallel_begin, ompt_callback_parallel_begin_t, 3) /* parallel begin */ \
macro (ompt_callback_parallel_end, ompt_callback_parallel_end_t, 4) /* parallel end */ \
\
macro (ompt_callback_task_create, ompt_callback_task_create_t, 5) /* task begin */ \
macro (ompt_callback_task_schedule, ompt_callback_task_schedule_t, 6) /* task schedule */ \
macro (ompt_callback_implicit_task, ompt_callback_implicit_task_t, 7) /* implicit task */ \
\
macro (ompt_callback_target, ompt_callback_target_t, 8) /* target */ \
macro (ompt_callback_target_data_op, ompt_callback_target_data_op_t, 9) /* target data op */ \
macro (ompt_callback_target_submit, ompt_callback_target_submit_t, 10) /* target submit */ \
\
macro (ompt_callback_control_tool, ompt_callback_control_tool_t, 11) /* control tool */ \
\
macro (ompt_callback_device_initialize, ompt_callback_device_initialize_t, 12) /* device initialize */ \
macro (ompt_callback_device_finalize, ompt_callback_device_finalize_t, 13) /* device finalize */ \
\
macro (ompt_callback_device_load, ompt_callback_device_load_t, 14) /* device load */ \
macro (ompt_callback_device_unload, ompt_callback_device_unload_t, 15) /* device unload */ \
\
/* Optional Events */ \
macro (ompt_callback_sync_region_wait, ompt_callback_sync_region_t, 16) /* sync region wait begin or end */ \
\
macro (ompt_callback_mutex_released, ompt_callback_mutex_t, 17) /* mutex released */ \
\
macro (ompt_callback_dependences, ompt_callback_dependences_t, 18) /* report task dependences */ \
macro (ompt_callback_task_dependence, ompt_callback_task_dependence_t, 19) /* report task dependence */ \
\
macro (ompt_callback_work, ompt_callback_work_t, 20) /* task at work begin or end */ \
\
macro (ompt_callback_master, ompt_callback_master_t, 21) /* task at master begin or end */ \
\
macro (ompt_callback_target_map, ompt_callback_target_map_t, 22) /* target map */ \
\
macro (ompt_callback_sync_region, ompt_callback_sync_region_t, 23) /* sync region begin or end */ \
\
macro (ompt_callback_lock_init, ompt_callback_mutex_acquire_t, 24) /* lock init */ \
macro (ompt_callback_lock_destroy, ompt_callback_mutex_t, 25) /* lock destroy */ \
\
macro (ompt_callback_mutex_acquire, ompt_callback_mutex_acquire_t, 26) /* mutex acquire */ \
macro (ompt_callback_mutex_acquired, ompt_callback_mutex_t, 27) /* mutex acquired */ \
\
macro (ompt_callback_nest_lock, ompt_callback_nest_lock_t, 28) /* nest lock */ \
\
macro (ompt_callback_flush, ompt_callback_flush_t, 29) /* after executing flush */ \
\
macro (ompt_callback_cancel, ompt_callback_cancel_t, 30) /* cancel innermost binding region */ \
\
macro (ompt_callback_reduction, ompt_callback_sync_region_t, 31) /* reduction */ \
\
macro (ompt_callback_dispatch, ompt_callback_dispatch_t, 32) /* dispatch of work */
/*****************************************************************************
* implementation specific types
*****************************************************************************/
typedef enum kmp_mutex_impl_t {
#define kmp_mutex_impl_macro(impl, code) impl = code,
FOREACH_KMP_MUTEX_IMPL(kmp_mutex_impl_macro)
#undef kmp_mutex_impl_macro
} kmp_mutex_impl_t;
/*****************************************************************************
* definitions generated from spec
*****************************************************************************/
typedef enum ompt_callbacks_t {
ompt_callback_thread_begin = 1,
ompt_callback_thread_end = 2,
ompt_callback_parallel_begin = 3,
ompt_callback_parallel_end = 4,
ompt_callback_task_create = 5,
ompt_callback_task_schedule = 6,
ompt_callback_implicit_task = 7,
ompt_callback_target = 8,
ompt_callback_target_data_op = 9,
ompt_callback_target_submit = 10,
ompt_callback_control_tool = 11,
ompt_callback_device_initialize = 12,
ompt_callback_device_finalize = 13,
ompt_callback_device_load = 14,
ompt_callback_device_unload = 15,
ompt_callback_sync_region_wait = 16,
ompt_callback_mutex_released = 17,
ompt_callback_dependences = 18,
ompt_callback_task_dependence = 19,
ompt_callback_work = 20,
ompt_callback_master = 21,
ompt_callback_target_map = 22,
ompt_callback_sync_region = 23,
ompt_callback_lock_init = 24,
ompt_callback_lock_destroy = 25,
ompt_callback_mutex_acquire = 26,
ompt_callback_mutex_acquired = 27,
ompt_callback_nest_lock = 28,
ompt_callback_flush = 29,
ompt_callback_cancel = 30,
ompt_callback_reduction = 31,
ompt_callback_dispatch = 32
} ompt_callbacks_t;
typedef enum ompt_record_t {
ompt_record_ompt = 1,
ompt_record_native = 2,
ompt_record_invalid = 3
} ompt_record_t;
typedef enum ompt_record_native_t {
ompt_record_native_info = 1,
ompt_record_native_event = 2
} ompt_record_native_t;
typedef enum ompt_set_result_t {
ompt_set_error = 0,
ompt_set_never = 1,
ompt_set_impossible = 2,
ompt_set_sometimes = 3,
ompt_set_sometimes_paired = 4,
ompt_set_always = 5
} ompt_set_result_t;
typedef uint64_t ompt_id_t;
typedef uint64_t ompt_device_time_t;
typedef uint64_t ompt_buffer_cursor_t;
typedef enum ompt_thread_t {
ompt_thread_initial = 1,
ompt_thread_worker = 2,
ompt_thread_other = 3,
ompt_thread_unknown = 4
} ompt_thread_t;
typedef enum ompt_scope_endpoint_t {
ompt_scope_begin = 1,
ompt_scope_end = 2
} ompt_scope_endpoint_t;
typedef enum ompt_dispatch_t {
ompt_dispatch_iteration = 1,
ompt_dispatch_section = 2
} ompt_dispatch_t;
typedef enum ompt_sync_region_t {
ompt_sync_region_barrier = 1,
ompt_sync_region_barrier_implicit = 2,
ompt_sync_region_barrier_explicit = 3,
ompt_sync_region_barrier_implementation = 4,
ompt_sync_region_taskwait = 5,
ompt_sync_region_taskgroup = 6,
ompt_sync_region_reduction = 7
} ompt_sync_region_t;
typedef enum ompt_target_data_op_t {
ompt_target_data_alloc = 1,
ompt_target_data_transfer_to_device = 2,
ompt_target_data_transfer_from_device = 3,
ompt_target_data_delete = 4,
ompt_target_data_associate = 5,
ompt_target_data_disassociate = 6
} ompt_target_data_op_t;
typedef enum ompt_work_t {
ompt_work_loop = 1,
ompt_work_sections = 2,
ompt_work_single_executor = 3,
ompt_work_single_other = 4,
ompt_work_workshare = 5,
ompt_work_distribute = 6,
ompt_work_taskloop = 7
} ompt_work_t;
typedef enum ompt_mutex_t {
ompt_mutex_lock = 1,
ompt_mutex_test_lock = 2,
ompt_mutex_nest_lock = 3,
ompt_mutex_test_nest_lock = 4,
ompt_mutex_critical = 5,
ompt_mutex_atomic = 6,
ompt_mutex_ordered = 7
} ompt_mutex_t;
typedef enum ompt_native_mon_flag_t {
ompt_native_data_motion_explicit = 0x01,
ompt_native_data_motion_implicit = 0x02,
ompt_native_kernel_invocation = 0x04,
ompt_native_kernel_execution = 0x08,
ompt_native_driver = 0x10,
ompt_native_runtime = 0x20,
ompt_native_overhead = 0x40,
ompt_native_idleness = 0x80
} ompt_native_mon_flag_t;
typedef enum ompt_task_flag_t {
ompt_task_initial = 0x00000001,
ompt_task_implicit = 0x00000002,
ompt_task_explicit = 0x00000004,
ompt_task_target = 0x00000008,
ompt_task_undeferred = 0x08000000,
ompt_task_untied = 0x10000000,
ompt_task_final = 0x20000000,
ompt_task_mergeable = 0x40000000,
ompt_task_merged = 0x80000000
} ompt_task_flag_t;
typedef enum ompt_task_status_t {
ompt_task_complete = 1,
ompt_task_yield = 2,
ompt_task_cancel = 3,
ompt_task_detach = 4,
ompt_task_early_fulfill = 5,
ompt_task_late_fulfill = 6,
ompt_task_switch = 7
} ompt_task_status_t;
typedef enum ompt_target_t {
ompt_target = 1,
ompt_target_enter_data = 2,
ompt_target_exit_data = 3,
ompt_target_update = 4
} ompt_target_t;
typedef enum ompt_parallel_flag_t {
ompt_parallel_invoker_program = 0x00000001,
ompt_parallel_invoker_runtime = 0x00000002,
ompt_parallel_league = 0x40000000,
ompt_parallel_team = 0x80000000
} ompt_parallel_flag_t;
typedef enum ompt_target_map_flag_t {
ompt_target_map_flag_to = 0x01,
ompt_target_map_flag_from = 0x02,
ompt_target_map_flag_alloc = 0x04,
ompt_target_map_flag_release = 0x08,
ompt_target_map_flag_delete = 0x10,
ompt_target_map_flag_implicit = 0x20
} ompt_target_map_flag_t;
typedef enum ompt_dependence_type_t {
ompt_dependence_type_in = 1,
ompt_dependence_type_out = 2,
ompt_dependence_type_inout = 3,
ompt_dependence_type_mutexinoutset = 4,
ompt_dependence_type_source = 5,
ompt_dependence_type_sink = 6
} ompt_dependence_type_t;
typedef enum ompt_cancel_flag_t {
ompt_cancel_parallel = 0x01,
ompt_cancel_sections = 0x02,
ompt_cancel_loop = 0x04,
ompt_cancel_taskgroup = 0x08,
ompt_cancel_activated = 0x10,
ompt_cancel_detected = 0x20,
ompt_cancel_discarded_task = 0x40
} ompt_cancel_flag_t;
typedef uint64_t ompt_hwid_t;
typedef uint64_t ompt_wait_id_t;
typedef enum ompt_frame_flag_t {
ompt_frame_runtime = 0x00,
ompt_frame_application = 0x01,
ompt_frame_cfa = 0x10,
ompt_frame_framepointer = 0x20,
ompt_frame_stackaddress = 0x30
} ompt_frame_flag_t;
typedef enum ompt_state_t {
ompt_state_work_serial = 0x000,
ompt_state_work_parallel = 0x001,
ompt_state_work_reduction = 0x002,
ompt_state_wait_barrier = 0x010,
ompt_state_wait_barrier_implicit_parallel = 0x011,
ompt_state_wait_barrier_implicit_workshare = 0x012,
ompt_state_wait_barrier_implicit = 0x013,
ompt_state_wait_barrier_explicit = 0x014,
ompt_state_wait_taskwait = 0x020,
ompt_state_wait_taskgroup = 0x021,
ompt_state_wait_mutex = 0x040,
ompt_state_wait_lock = 0x041,
ompt_state_wait_critical = 0x042,
ompt_state_wait_atomic = 0x043,
ompt_state_wait_ordered = 0x044,
ompt_state_wait_target = 0x080,
ompt_state_wait_target_map = 0x081,
ompt_state_wait_target_update = 0x082,
ompt_state_idle = 0x100,
ompt_state_overhead = 0x101,
ompt_state_undefined = 0x102
} ompt_state_t;
typedef uint64_t (*ompt_get_unique_id_t) (void);
typedef uint64_t ompd_size_t;
typedef uint64_t ompd_wait_id_t;
typedef uint64_t ompd_addr_t;
typedef int64_t ompd_word_t;
typedef uint64_t ompd_seg_t;
typedef uint64_t ompd_device_t;
typedef uint64_t ompd_thread_id_t;
typedef enum ompd_scope_t {
ompd_scope_global = 1,
ompd_scope_address_space = 2,
ompd_scope_thread = 3,
ompd_scope_parallel = 4,
ompd_scope_implicit_task = 5,
ompd_scope_task = 6
} ompd_scope_t;
typedef uint64_t ompd_icv_id_t;
typedef enum ompd_rc_t {
ompd_rc_ok = 0,
ompd_rc_unavailable = 1,
ompd_rc_stale_handle = 2,
ompd_rc_bad_input = 3,
ompd_rc_error = 4,
ompd_rc_unsupported = 5,
ompd_rc_needs_state_tracking = 6,
ompd_rc_incompatible = 7,
ompd_rc_device_read_error = 8,
ompd_rc_device_write_error = 9,
ompd_rc_nomem = 10,
} ompd_rc_t;
typedef void (*ompt_interface_fn_t) (void);
typedef ompt_interface_fn_t (*ompt_function_lookup_t) (
const char *interface_function_name
);
typedef union ompt_data_t {
uint64_t value;
void *ptr;
} ompt_data_t;
typedef struct ompt_frame_t {
ompt_data_t exit_frame;
ompt_data_t enter_frame;
int exit_frame_flags;
int enter_frame_flags;
} ompt_frame_t;
typedef void (*ompt_callback_t) (void);
typedef void ompt_device_t;
typedef void ompt_buffer_t;
typedef void (*ompt_callback_buffer_request_t) (
int device_num,
ompt_buffer_t **buffer,
size_t *bytes
);
typedef void (*ompt_callback_buffer_complete_t) (
int device_num,
ompt_buffer_t *buffer,
size_t bytes,
ompt_buffer_cursor_t begin,
int buffer_owned
);
typedef void (*ompt_finalize_t) (
ompt_data_t *tool_data
);
typedef int (*ompt_initialize_t) (
ompt_function_lookup_t lookup,
int initial_device_num,
ompt_data_t *tool_data
);
typedef struct ompt_start_tool_result_t {
ompt_initialize_t initialize;
ompt_finalize_t finalize;
ompt_data_t tool_data;
} ompt_start_tool_result_t;
typedef struct ompt_record_abstract_t {
ompt_record_native_t rclass;
const char *type;
ompt_device_time_t start_time;
ompt_device_time_t end_time;
ompt_hwid_t hwid;
} ompt_record_abstract_t;
typedef struct ompt_dependence_t {
ompt_data_t variable;
ompt_dependence_type_t dependence_type;
} ompt_dependence_t;
typedef int (*ompt_enumerate_states_t) (
int current_state,
int *next_state,
const char **next_state_name
);
typedef int (*ompt_enumerate_mutex_impls_t) (
int current_impl,
int *next_impl,
const char **next_impl_name
);
typedef ompt_set_result_t (*ompt_set_callback_t) (
ompt_callbacks_t event,
ompt_callback_t callback
);
typedef int (*ompt_get_callback_t) (
ompt_callbacks_t event,
ompt_callback_t *callback
);
typedef ompt_data_t *(*ompt_get_thread_data_t) (void);
typedef int (*ompt_get_num_procs_t) (void);
typedef int (*ompt_get_num_places_t) (void);
typedef int (*ompt_get_place_proc_ids_t) (
int place_num,
int ids_size,
int *ids
);
typedef int (*ompt_get_place_num_t) (void);
typedef int (*ompt_get_partition_place_nums_t) (
int place_nums_size,
int *place_nums
);
typedef int (*ompt_get_proc_id_t) (void);
typedef int (*ompt_get_state_t) (
ompt_wait_id_t *wait_id
);
typedef int (*ompt_get_parallel_info_t) (
int ancestor_level,
ompt_data_t **parallel_data,
int *team_size
);
typedef int (*ompt_get_task_info_t) (
int ancestor_level,
int *flags,
ompt_data_t **task_data,
ompt_frame_t **task_frame,
ompt_data_t **parallel_data,
int *thread_num
);
typedef int (*ompt_get_task_memory_t)(
void **addr,
size_t *size,
int block
);
typedef int (*ompt_get_target_info_t) (
uint64_t *device_num,
ompt_id_t *target_id,
ompt_id_t *host_op_id
);
typedef int (*ompt_get_num_devices_t) (void);
typedef void (*ompt_finalize_tool_t) (void);
typedef int (*ompt_get_device_num_procs_t) (
ompt_device_t *device
);
typedef ompt_device_time_t (*ompt_get_device_time_t) (
ompt_device_t *device
);
typedef double (*ompt_translate_time_t) (
ompt_device_t *device,
ompt_device_time_t time
);
typedef ompt_set_result_t (*ompt_set_trace_ompt_t) (
ompt_device_t *device,
unsigned int enable,
unsigned int etype
);
typedef ompt_set_result_t (*ompt_set_trace_native_t) (
ompt_device_t *device,
int enable,
int flags
);
typedef int (*ompt_start_trace_t) (
ompt_device_t *device,
ompt_callback_buffer_request_t request,
ompt_callback_buffer_complete_t complete
);
typedef int (*ompt_pause_trace_t) (
ompt_device_t *device,
int begin_pause
);
typedef int (*ompt_flush_trace_t) (
ompt_device_t *device
);
typedef int (*ompt_stop_trace_t) (
ompt_device_t *device
);
typedef int (*ompt_advance_buffer_cursor_t) (
ompt_device_t *device,
ompt_buffer_t *buffer,
size_t size,
ompt_buffer_cursor_t current,
ompt_buffer_cursor_t *next
);
typedef ompt_record_t (*ompt_get_record_type_t) (
ompt_buffer_t *buffer,
ompt_buffer_cursor_t current
);
typedef void *(*ompt_get_record_native_t) (
ompt_buffer_t *buffer,
ompt_buffer_cursor_t current,
ompt_id_t *host_op_id
);
typedef ompt_record_abstract_t *
(*ompt_get_record_abstract_t) (
void *native_record
);
typedef void (*ompt_callback_thread_begin_t) (
ompt_thread_t thread_type,
ompt_data_t *thread_data
);
typedef struct ompt_record_thread_begin_t {
ompt_thread_t thread_type;
} ompt_record_thread_begin_t;
typedef void (*ompt_callback_thread_end_t) (
ompt_data_t *thread_data
);
typedef void (*ompt_callback_parallel_begin_t) (
ompt_data_t *encountering_task_data,
const ompt_frame_t *encountering_task_frame,
ompt_data_t *parallel_data,
unsigned int requested_parallelism,
int flags,
const void *codeptr_ra
);
typedef struct ompt_record_parallel_begin_t {
ompt_id_t encountering_task_id;
ompt_id_t parallel_id;
unsigned int requested_parallelism;
int flags;
const void *codeptr_ra;
} ompt_record_parallel_begin_t;
typedef void (*ompt_callback_parallel_end_t) (
ompt_data_t *parallel_data,
ompt_data_t *encountering_task_data,
int flags,
const void *codeptr_ra
);
typedef struct ompt_record_parallel_end_t {
ompt_id_t parallel_id;
ompt_id_t encountering_task_id;
int flags;
const void *codeptr_ra;
} ompt_record_parallel_end_t;
typedef void (*ompt_callback_work_t) (
ompt_work_t wstype,
ompt_scope_endpoint_t endpoint,
ompt_data_t *parallel_data,
ompt_data_t *task_data,
uint64_t count,
const void *codeptr_ra
);
typedef struct ompt_record_work_t {
ompt_work_t wstype;
ompt_scope_endpoint_t endpoint;
ompt_id_t parallel_id;
ompt_id_t task_id;
uint64_t count;
const void *codeptr_ra;
} ompt_record_work_t;
typedef void (*ompt_callback_dispatch_t) (
ompt_data_t *parallel_data,
ompt_data_t *task_data,
ompt_dispatch_t kind,
ompt_data_t instance
);
typedef struct ompt_record_dispatch_t {
ompt_id_t parallel_id;
ompt_id_t task_id;
ompt_dispatch_t kind;
ompt_data_t instance;
} ompt_record_dispatch_t;
typedef void (*ompt_callback_task_create_t) (
ompt_data_t *encountering_task_data,
const ompt_frame_t *encountering_task_frame,
ompt_data_t *new_task_data,
int flags,
int has_dependences,
const void *codeptr_ra
);
typedef struct ompt_record_task_create_t {
ompt_id_t encountering_task_id;
ompt_id_t new_task_id;
int flags;
int has_dependences;
const void *codeptr_ra;
} ompt_record_task_create_t;
typedef void (*ompt_callback_dependences_t) (
ompt_data_t *task_data,
const ompt_dependence_t *deps,
int ndeps
);
typedef struct ompt_record_dependences_t {
ompt_id_t task_id;
ompt_dependence_t dep;
int ndeps;
} ompt_record_dependences_t;
typedef void (*ompt_callback_task_dependence_t) (
ompt_data_t *src_task_data,
ompt_data_t *sink_task_data
);
typedef struct ompt_record_task_dependence_t {
ompt_id_t src_task_id;
ompt_id_t sink_task_id;
} ompt_record_task_dependence_t;
typedef void (*ompt_callback_task_schedule_t) (
ompt_data_t *prior_task_data,
ompt_task_status_t prior_task_status,
ompt_data_t *next_task_data
);
typedef struct ompt_record_task_schedule_t {
ompt_id_t prior_task_id;
ompt_task_status_t prior_task_status;
ompt_id_t next_task_id;
} ompt_record_task_schedule_t;
typedef void (*ompt_callback_implicit_task_t) (
ompt_scope_endpoint_t endpoint,
ompt_data_t *parallel_data,
ompt_data_t *task_data,
unsigned int actual_parallelism,
unsigned int index,
int flags
);
typedef struct ompt_record_implicit_task_t {
ompt_scope_endpoint_t endpoint;
ompt_id_t parallel_id;
ompt_id_t task_id;
unsigned int actual_parallelism;
unsigned int index;
int flags;
} ompt_record_implicit_task_t;
typedef void (*ompt_callback_master_t) (
ompt_scope_endpoint_t endpoint,
ompt_data_t *parallel_data,
ompt_data_t *task_data,
const void *codeptr_ra
);
typedef struct ompt_record_master_t {
ompt_scope_endpoint_t endpoint;
ompt_id_t parallel_id;
ompt_id_t task_id;
const void *codeptr_ra;
} ompt_record_master_t;
typedef void (*ompt_callback_sync_region_t) (
ompt_sync_region_t kind,
ompt_scope_endpoint_t endpoint,
ompt_data_t *parallel_data,
ompt_data_t *task_data,
const void *codeptr_ra
);
typedef struct ompt_record_sync_region_t {
ompt_sync_region_t kind;
ompt_scope_endpoint_t endpoint;
ompt_id_t parallel_id;
ompt_id_t task_id;
const void *codeptr_ra;
} ompt_record_sync_region_t;
typedef void (*ompt_callback_mutex_acquire_t) (
ompt_mutex_t kind,
unsigned int hint,
unsigned int impl,
ompt_wait_id_t wait_id,
const void *codeptr_ra
);
typedef struct ompt_record_mutex_acquire_t {
ompt_mutex_t kind;
unsigned int hint;
unsigned int impl;
ompt_wait_id_t wait_id;
const void *codeptr_ra;
} ompt_record_mutex_acquire_t;
typedef void (*ompt_callback_mutex_t) (
ompt_mutex_t kind,
ompt_wait_id_t wait_id,
const void *codeptr_ra
);
typedef struct ompt_record_mutex_t {
ompt_mutex_t kind;
ompt_wait_id_t wait_id;
const void *codeptr_ra;
} ompt_record_mutex_t;
typedef void (*ompt_callback_nest_lock_t) (
ompt_scope_endpoint_t endpoint,
ompt_wait_id_t wait_id,
const void *codeptr_ra
);
typedef struct ompt_record_nest_lock_t {
ompt_scope_endpoint_t endpoint;
ompt_wait_id_t wait_id;
const void *codeptr_ra;
} ompt_record_nest_lock_t;
typedef void (*ompt_callback_flush_t) (
ompt_data_t *thread_data,
const void *codeptr_ra
);
typedef struct ompt_record_flush_t {
const void *codeptr_ra;
} ompt_record_flush_t;
typedef void (*ompt_callback_cancel_t) (
ompt_data_t *task_data,
int flags,
const void *codeptr_ra
);
typedef struct ompt_record_cancel_t {
ompt_id_t task_id;
int flags;
const void *codeptr_ra;
} ompt_record_cancel_t;
typedef void (*ompt_callback_device_initialize_t) (
int device_num,
const char *type,
ompt_device_t *device,
ompt_function_lookup_t lookup,
const char *documentation
);
typedef void (*ompt_callback_device_finalize_t) (
int device_num
);
typedef void (*ompt_callback_device_load_t) (
int device_num,
const char *filename,
int64_t offset_in_file,
void *vma_in_file,
size_t bytes,
void *host_addr,
void *device_addr,
uint64_t module_id
);
typedef void (*ompt_callback_device_unload_t) (
int device_num,
uint64_t module_id
);
typedef void (*ompt_callback_target_data_op_t) (
ompt_id_t target_id,
ompt_id_t host_op_id,
ompt_target_data_op_t optype,
void *src_addr,
int src_device_num,
void *dest_addr,
int dest_device_num,
size_t bytes,
const void *codeptr_ra
);
typedef struct ompt_record_target_data_op_t {
ompt_id_t host_op_id;
ompt_target_data_op_t optype;
void *src_addr;
int src_device_num;
void *dest_addr;
int dest_device_num;
size_t bytes;
ompt_device_time_t end_time;
const void *codeptr_ra;
} ompt_record_target_data_op_t;
typedef void (*ompt_callback_target_t) (
ompt_target_t kind,
ompt_scope_endpoint_t endpoint,
int device_num,
ompt_data_t *task_data,
ompt_id_t target_id,
const void *codeptr_ra
);
typedef struct ompt_record_target_t {
ompt_target_t kind;
ompt_scope_endpoint_t endpoint;
int device_num;
ompt_id_t task_id;
ompt_id_t target_id;
const void *codeptr_ra;
} ompt_record_target_t;
typedef void (*ompt_callback_target_map_t) (
ompt_id_t target_id,
unsigned int nitems,
void **host_addr,
void **device_addr,
size_t *bytes,
unsigned int *mapping_flags,
const void *codeptr_ra
);
typedef struct ompt_record_target_map_t {
ompt_id_t target_id;
unsigned int nitems;
void **host_addr;
void **device_addr;
size_t *bytes;
unsigned int *mapping_flags;
const void *codeptr_ra;
} ompt_record_target_map_t;
typedef void (*ompt_callback_target_submit_t) (
ompt_id_t target_id,
ompt_id_t host_op_id,
unsigned int requested_num_teams
);
typedef struct ompt_record_target_kernel_t {
ompt_id_t host_op_id;
unsigned int requested_num_teams;
unsigned int granted_num_teams;
ompt_device_time_t end_time;
} ompt_record_target_kernel_t;
typedef int (*ompt_callback_control_tool_t) (
uint64_t command,
uint64_t modifier,
void *arg,
const void *codeptr_ra
);
typedef struct ompt_record_control_tool_t {
uint64_t command;
uint64_t modifier;
const void *codeptr_ra;
} ompt_record_control_tool_t;
typedef struct ompd_address_t {
ompd_seg_t segment;
ompd_addr_t address;
} ompd_address_t;
typedef struct ompd_frame_info_t {
ompd_address_t frame_address;
ompd_word_t frame_flag;
} ompd_frame_info_t;
typedef struct _ompd_aspace_handle ompd_address_space_handle_t;
typedef struct _ompd_thread_handle ompd_thread_handle_t;
typedef struct _ompd_parallel_handle ompd_parallel_handle_t;
typedef struct _ompd_task_handle ompd_task_handle_t;
typedef struct _ompd_aspace_cont ompd_address_space_context_t;
typedef struct _ompd_thread_cont ompd_thread_context_t;
typedef struct ompd_device_type_sizes_t {
uint8_t sizeof_char;
uint8_t sizeof_short;
uint8_t sizeof_int;
uint8_t sizeof_long;
uint8_t sizeof_long_long;
uint8_t sizeof_pointer;
} ompd_device_type_sizes_t;
typedef struct ompt_record_ompt_t {
ompt_callbacks_t type;
ompt_device_time_t time;
ompt_id_t thread_id;
ompt_id_t target_id;
union {
ompt_record_thread_begin_t thread_begin;
ompt_record_parallel_begin_t parallel_begin;
ompt_record_parallel_end_t parallel_end;
ompt_record_work_t work;
ompt_record_dispatch_t dispatch;
ompt_record_task_create_t task_create;
ompt_record_dependences_t dependences;
ompt_record_task_dependence_t task_dependence;
ompt_record_task_schedule_t task_schedule;
ompt_record_implicit_task_t implicit_task;
ompt_record_master_t master;
ompt_record_sync_region_t sync_region;
ompt_record_mutex_acquire_t mutex_acquire;
ompt_record_mutex_t mutex;
ompt_record_nest_lock_t nest_lock;
ompt_record_flush_t flush;
ompt_record_cancel_t cancel;
ompt_record_target_t target;
ompt_record_target_data_op_t target_data_op;
ompt_record_target_map_t target_map;
ompt_record_target_kernel_t target_kernel;
ompt_record_control_tool_t control_tool;
} record;
} ompt_record_ompt_t;
typedef ompt_record_ompt_t *(*ompt_get_record_ompt_t) (
ompt_buffer_t *buffer,
ompt_buffer_cursor_t current
);
#define ompt_id_none 0
#define ompt_data_none {0}
#define ompt_time_none 0
#define ompt_hwid_none 0
#define ompt_addr_none ~0
#define ompt_mutex_impl_none 0
#define ompt_wait_id_none 0
#define ompd_segment_none 0
#endif /* __OMPT__ */

runtime/src/include/omp.h.var

/*
* include/omp.h.var
*/
//===----------------------------------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#ifndef __OMP_H
# define __OMP_H
# define KMP_VERSION_MAJOR @LIBOMP_VERSION_MAJOR@
# define KMP_VERSION_MINOR @LIBOMP_VERSION_MINOR@
# define KMP_VERSION_BUILD @LIBOMP_VERSION_BUILD@
# define KMP_BUILD_DATE "@LIBOMP_BUILD_DATE@"
# ifdef __cplusplus
extern "C" {
# endif
# define omp_set_affinity_format ompc_set_affinity_format
# define omp_get_affinity_format ompc_get_affinity_format
# define omp_display_affinity ompc_display_affinity
# define omp_capture_affinity ompc_capture_affinity
# if defined(_WIN32)
# define __KAI_KMPC_CONVENTION __cdecl
# ifndef __KMP_IMP
# define __KMP_IMP __declspec(dllimport)
# endif
# else
# define __KAI_KMPC_CONVENTION
# ifndef __KMP_IMP
# define __KMP_IMP
# endif
# endif
/* schedule kind constants */
typedef enum omp_sched_t {
omp_sched_static = 1,
omp_sched_dynamic = 2,
omp_sched_guided = 3,
omp_sched_auto = 4,
omp_sched_monotonic = 0x80000000
} omp_sched_t;
/* set API functions */
extern void __KAI_KMPC_CONVENTION omp_set_num_threads (int);
extern void __KAI_KMPC_CONVENTION omp_set_dynamic (int);
extern void __KAI_KMPC_CONVENTION omp_set_nested (int);
extern void __KAI_KMPC_CONVENTION omp_set_max_active_levels (int);
extern void __KAI_KMPC_CONVENTION omp_set_schedule (omp_sched_t, int);
/* query API functions */
extern int __KAI_KMPC_CONVENTION omp_get_num_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_dynamic (void);
extern int __KAI_KMPC_CONVENTION omp_get_nested (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_threads (void);
extern int __KAI_KMPC_CONVENTION omp_get_thread_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_procs (void);
extern int __KAI_KMPC_CONVENTION omp_in_parallel (void);
extern int __KAI_KMPC_CONVENTION omp_in_final (void);
extern int __KAI_KMPC_CONVENTION omp_get_active_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_level (void);
extern int __KAI_KMPC_CONVENTION omp_get_ancestor_thread_num (int);
extern int __KAI_KMPC_CONVENTION omp_get_team_size (int);
extern int __KAI_KMPC_CONVENTION omp_get_thread_limit (void);
extern int __KAI_KMPC_CONVENTION omp_get_max_active_levels (void);
extern void __KAI_KMPC_CONVENTION omp_get_schedule (omp_sched_t *, int *);
extern int __KAI_KMPC_CONVENTION omp_get_max_task_priority (void);
/* lock API functions */
typedef struct omp_lock_t {
void * _lk;
} omp_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_lock (omp_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_lock (omp_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_lock (omp_lock_t *);
/* nested lock API functions */
typedef struct omp_nest_lock_t {
void * _lk;
} omp_nest_lock_t;
extern void __KAI_KMPC_CONVENTION omp_init_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_set_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_unset_nest_lock (omp_nest_lock_t *);
extern void __KAI_KMPC_CONVENTION omp_destroy_nest_lock (omp_nest_lock_t *);
extern int __KAI_KMPC_CONVENTION omp_test_nest_lock (omp_nest_lock_t *);
/* OpenMP 5.0 Synchronization hints*/
typedef enum omp_sync_hint_t {
omp_sync_hint_none = 0,
omp_lock_hint_none = omp_sync_hint_none,
omp_sync_hint_uncontended = 1,
omp_lock_hint_uncontended = omp_sync_hint_uncontended,
omp_sync_hint_contended = (1<<1),
omp_lock_hint_contended = omp_sync_hint_contended,
omp_sync_hint_nonspeculative = (1<<2),
omp_lock_hint_nonspeculative = omp_sync_hint_nonspeculative,
omp_sync_hint_speculative = (1<<3),
omp_lock_hint_speculative = omp_sync_hint_speculative,
kmp_lock_hint_hle = (1<<16),
kmp_lock_hint_rtm = (1<<17),
kmp_lock_hint_adaptive = (1<<18)
} omp_sync_hint_t;
/* lock hint type for dynamic user lock */
typedef omp_sync_hint_t omp_lock_hint_t;
/* hinted lock initializers */
extern void __KAI_KMPC_CONVENTION omp_init_lock_with_hint(omp_lock_t *, omp_lock_hint_t);
extern void __KAI_KMPC_CONVENTION omp_init_nest_lock_with_hint(omp_nest_lock_t *, omp_lock_hint_t);
/* time API functions */
extern double __KAI_KMPC_CONVENTION omp_get_wtime (void);
extern double __KAI_KMPC_CONVENTION omp_get_wtick (void);
/* OpenMP 4.0 */
extern int __KAI_KMPC_CONVENTION omp_get_default_device (void);
extern void __KAI_KMPC_CONVENTION omp_set_default_device (int);
extern int __KAI_KMPC_CONVENTION omp_is_initial_device (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_devices (void);
extern int __KAI_KMPC_CONVENTION omp_get_num_teams (void);
extern int __KAI_KMPC_CONVENTION omp_get_team_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_cancellation (void);
# include <stdlib.h>
# include <stdint.h>
/* OpenMP 4.5 */
extern int __KAI_KMPC_CONVENTION omp_get_initial_device (void);
extern void* __KAI_KMPC_CONVENTION omp_target_alloc(size_t, int);
extern void __KAI_KMPC_CONVENTION omp_target_free(void *, int);
extern int __KAI_KMPC_CONVENTION omp_target_is_present(void *, int);
extern int __KAI_KMPC_CONVENTION omp_target_memcpy(void *, void *, size_t, size_t, size_t, int, int);
extern int __KAI_KMPC_CONVENTION omp_target_memcpy_rect(void *, void *, size_t, int, const size_t *,
const size_t *, const size_t *, const size_t *, const size_t *, int, int);
extern int __KAI_KMPC_CONVENTION omp_target_associate_ptr(void *, void *, size_t, size_t, int);
extern int __KAI_KMPC_CONVENTION omp_target_disassociate_ptr(void *, int);
/* OpenMP 5.0 */
extern int __KAI_KMPC_CONVENTION omp_get_device_num (void);
typedef void * omp_depend_t;
/* kmp API functions */
extern int __KAI_KMPC_CONVENTION kmp_get_stacksize (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize (int);
extern size_t __KAI_KMPC_CONVENTION kmp_get_stacksize_s (void);
extern void __KAI_KMPC_CONVENTION kmp_set_stacksize_s (size_t);
extern int __KAI_KMPC_CONVENTION kmp_get_blocktime (void);
extern int __KAI_KMPC_CONVENTION kmp_get_library (void);
extern void __KAI_KMPC_CONVENTION kmp_set_blocktime (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library (int);
extern void __KAI_KMPC_CONVENTION kmp_set_library_serial (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_turnaround (void);
extern void __KAI_KMPC_CONVENTION kmp_set_library_throughput (void);
extern void __KAI_KMPC_CONVENTION kmp_set_defaults (char const *);
extern void __KAI_KMPC_CONVENTION kmp_set_disp_num_buffers (int);
/* Intel affinity API */
typedef void * kmp_affinity_mask_t;
extern int __KAI_KMPC_CONVENTION kmp_set_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_max_proc (void);
extern void __KAI_KMPC_CONVENTION kmp_create_affinity_mask (kmp_affinity_mask_t *);
extern void __KAI_KMPC_CONVENTION kmp_destroy_affinity_mask (kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_set_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_unset_affinity_mask_proc (int, kmp_affinity_mask_t *);
extern int __KAI_KMPC_CONVENTION kmp_get_affinity_mask_proc (int, kmp_affinity_mask_t *);
/* OpenMP 4.0 affinity API */
typedef enum omp_proc_bind_t {
omp_proc_bind_false = 0,
omp_proc_bind_true = 1,
omp_proc_bind_master = 2,
omp_proc_bind_close = 3,
omp_proc_bind_spread = 4
} omp_proc_bind_t;
extern omp_proc_bind_t __KAI_KMPC_CONVENTION omp_get_proc_bind (void);
/* OpenMP 4.5 affinity API */
extern int __KAI_KMPC_CONVENTION omp_get_num_places (void);
extern int __KAI_KMPC_CONVENTION omp_get_place_num_procs (int);
extern void __KAI_KMPC_CONVENTION omp_get_place_proc_ids (int, int *);
extern int __KAI_KMPC_CONVENTION omp_get_place_num (void);
extern int __KAI_KMPC_CONVENTION omp_get_partition_num_places (void);
extern void __KAI_KMPC_CONVENTION omp_get_partition_place_nums (int *);
extern void * __KAI_KMPC_CONVENTION kmp_malloc (size_t);
extern void * __KAI_KMPC_CONVENTION kmp_aligned_malloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_calloc (size_t, size_t);
extern void * __KAI_KMPC_CONVENTION kmp_realloc (void *, size_t);
extern void __KAI_KMPC_CONVENTION kmp_free (void *);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_on(void);
extern void __KAI_KMPC_CONVENTION kmp_set_warnings_off(void);
/* OpenMP 5.0 Tool Control */
typedef enum omp_control_tool_result_t {
omp_control_tool_notool = -2,
omp_control_tool_nocallback = -1,
omp_control_tool_success = 0,
omp_control_tool_ignored = 1
} omp_control_tool_result_t;
typedef enum omp_control_tool_t {
omp_control_tool_start = 1,
omp_control_tool_pause = 2,
omp_control_tool_flush = 3,
omp_control_tool_end = 4
} omp_control_tool_t;
extern int __KAI_KMPC_CONVENTION omp_control_tool(int, int, void*);
/* OpenMP 5.0 Memory Management */
typedef uintptr_t omp_uintptr_t;
typedef enum {
OMP_ATK_THREADMODEL = 1,
OMP_ATK_ALIGNMENT = 2,
OMP_ATK_ACCESS = 3,
OMP_ATK_POOL_SIZE = 4,
OMP_ATK_FALLBACK = 5,
OMP_ATK_FB_DATA = 6,
OMP_ATK_PINNED = 7,
OMP_ATK_PARTITION = 8
} omp_alloctrait_key_t;
typedef enum {
OMP_ATV_FALSE = 0,
OMP_ATV_TRUE = 1,
OMP_ATV_DEFAULT = 2,
OMP_ATV_CONTENDED = 3,
OMP_ATV_UNCONTENDED = 4,
OMP_ATV_SEQUENTIAL = 5,
OMP_ATV_PRIVATE = 6,
OMP_ATV_ALL = 7,
OMP_ATV_THREAD = 8,
OMP_ATV_PTEAM = 9,
OMP_ATV_CGROUP = 10,
OMP_ATV_DEFAULT_MEM_FB = 11,
OMP_ATV_NULL_FB = 12,
OMP_ATV_ABORT_FB = 13,
OMP_ATV_ALLOCATOR_FB = 14,
OMP_ATV_ENVIRONMENT = 15,
OMP_ATV_NEAREST = 16,
OMP_ATV_BLOCKED = 17,
OMP_ATV_INTERLEAVED = 18
} omp_alloctrait_value_t;
typedef struct {
omp_alloctrait_key_t key;
omp_uintptr_t value;
} omp_alloctrait_t;
# if defined(_WIN32)
// On Windows cl and icl do not support 64-bit enum, let's use integer then.
typedef omp_uintptr_t omp_allocator_handle_t;
extern __KMP_IMP omp_allocator_handle_t const omp_null_allocator;
extern __KMP_IMP omp_allocator_handle_t const omp_default_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_large_cap_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_const_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_high_bw_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_low_lat_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_cgroup_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_pteam_mem_alloc;
extern __KMP_IMP omp_allocator_handle_t const omp_thread_mem_alloc;
typedef omp_uintptr_t omp_memspace_handle_t;
extern __KMP_IMP omp_memspace_handle_t const omp_default_mem_space;
extern __KMP_IMP omp_memspace_handle_t const omp_large_cap_mem_space;
extern __KMP_IMP omp_memspace_handle_t const omp_const_mem_space;
extern __KMP_IMP omp_memspace_handle_t const omp_high_bw_mem_space;
extern __KMP_IMP omp_memspace_handle_t const omp_low_lat_mem_space;
# else
# if __cplusplus >= 201103
typedef enum omp_allocator_handle_t : omp_uintptr_t
# else
typedef enum omp_allocator_handle_t
# endif
{
omp_null_allocator = 0,
omp_default_mem_alloc = 1,
omp_large_cap_mem_alloc = 2,
omp_const_mem_alloc = 3,
omp_high_bw_mem_alloc = 4,
omp_low_lat_mem_alloc = 5,
omp_cgroup_mem_alloc = 6,
omp_pteam_mem_alloc = 7,
omp_thread_mem_alloc = 8,
KMP_ALLOCATOR_MAX_HANDLE = UINTPTR_MAX
} omp_allocator_handle_t;
# if __cplusplus >= 201103
typedef enum omp_memspace_handle_t : omp_uintptr_t
# else
typedef enum omp_memspace_handle_t
# endif
{
omp_default_mem_space = 0,
omp_large_cap_mem_space = 1,
omp_const_mem_space = 2,
omp_high_bw_mem_space = 3,
omp_low_lat_mem_space = 4,
KMP_MEMSPACE_MAX_HANDLE = UINTPTR_MAX
} omp_memspace_handle_t;
# endif
extern omp_allocator_handle_t __KAI_KMPC_CONVENTION omp_init_allocator(omp_memspace_handle_t m,
int ntraits, omp_alloctrait_t traits[]);
extern void __KAI_KMPC_CONVENTION omp_destroy_allocator(omp_allocator_handle_t allocator);
extern void __KAI_KMPC_CONVENTION omp_set_default_allocator(omp_allocator_handle_t a);
extern omp_allocator_handle_t __KAI_KMPC_CONVENTION omp_get_default_allocator(void);
# ifdef __cplusplus
extern void *__KAI_KMPC_CONVENTION omp_alloc(size_t size, omp_allocator_handle_t a = omp_null_allocator);
extern void __KAI_KMPC_CONVENTION omp_free(void * ptr, omp_allocator_handle_t a = omp_null_allocator);
# else
extern void *__KAI_KMPC_CONVENTION omp_alloc(size_t size, omp_allocator_handle_t a);
extern void __KAI_KMPC_CONVENTION omp_free(void *ptr, omp_allocator_handle_t a);
# endif
/* OpenMP 5.0 Affinity Format */
extern void __KAI_KMPC_CONVENTION omp_set_affinity_format(char const *);
extern size_t __KAI_KMPC_CONVENTION omp_get_affinity_format(char *, size_t);
extern void __KAI_KMPC_CONVENTION omp_display_affinity(char const *);
extern size_t __KAI_KMPC_CONVENTION omp_capture_affinity(char *, size_t, char const *);
/* OpenMP 5.0 events */
# if defined(_WIN32)
// On Windows cl and icl do not support 64-bit enum, let's use integer then.
typedef omp_uintptr_t omp_event_handle_t;
# else
typedef enum omp_event_handle_t { KMP_EVENT_MAX_HANDLE = UINTPTR_MAX } omp_event_handle_t;
# endif
extern void __KAI_KMPC_CONVENTION omp_fulfill_event ( omp_event_handle_t event );
/* OpenMP 5.0 Pause Resources */
typedef enum omp_pause_resource_t {
omp_pause_resume = 0,
omp_pause_soft = 1,
omp_pause_hard = 2
} omp_pause_resource_t;
extern int __KAI_KMPC_CONVENTION omp_pause_resource(omp_pause_resource_t, int);
extern int __KAI_KMPC_CONVENTION omp_pause_resource_all(omp_pause_resource_t);
extern int __KAI_KMPC_CONVENTION omp_get_supported_active_levels(void);
# undef __KAI_KMPC_CONVENTION
# undef __KMP_IMP
/* Warning:
The following typedefs are not standard, deprecated and will be removed in a future release.
*/
typedef int omp_int_t;
typedef double omp_wtime_t;
# ifdef __cplusplus
}
# endif
#endif /* __OMP_H */

runtime/src/include/omp_lib.h.var

! include/omp_lib.h.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
integer omp_integer_kind
parameter(omp_integer_kind=4)
integer omp_logical_kind
parameter(omp_logical_kind=4)
integer omp_real_kind
parameter(omp_real_kind=4)
integer omp_lock_kind
parameter(omp_lock_kind=int_ptr_kind())
integer omp_nest_lock_kind
parameter(omp_nest_lock_kind=int_ptr_kind())
integer omp_sched_kind
parameter(omp_sched_kind=omp_integer_kind)
integer omp_proc_bind_kind
parameter(omp_proc_bind_kind=omp_integer_kind)
integer kmp_pointer_kind
parameter(kmp_pointer_kind=int_ptr_kind())
integer kmp_size_t_kind
parameter(kmp_size_t_kind=int_ptr_kind())
integer kmp_affinity_mask_kind
parameter(kmp_affinity_mask_kind=int_ptr_kind())
integer omp_sync_hint_kind
parameter(omp_sync_hint_kind=omp_integer_kind)
integer omp_lock_hint_kind
parameter(omp_lock_hint_kind=omp_sync_hint_kind)
integer omp_control_tool_kind
parameter(omp_control_tool_kind=omp_integer_kind)
integer omp_control_tool_result_kind
parameter(omp_control_tool_result_kind=omp_integer_kind)
integer omp_allocator_handle_kind
parameter(omp_allocator_handle_kind=int_ptr_kind())
integer omp_memspace_handle_kind
parameter(omp_memspace_handle_kind=int_ptr_kind())
integer omp_alloctrait_key_kind
parameter(omp_alloctrait_key_kind=omp_integer_kind)
integer omp_alloctrait_val_kind
parameter(omp_alloctrait_val_kind=int_ptr_kind())
integer omp_pause_resource_kind
parameter(omp_pause_resource_kind=omp_integer_kind)
integer omp_depend_kind
parameter(omp_depend_kind=int_ptr_kind())
integer omp_event_handle_kind
parameter(omp_event_handle_kind=int_ptr_kind())
integer(kind=omp_integer_kind)openmp_version
parameter(openmp_version=@LIBOMP_OMP_YEAR_MONTH@)
integer(kind=omp_integer_kind)kmp_version_major
parameter(kmp_version_major=@LIBOMP_VERSION_MAJOR@)
integer(kind=omp_integer_kind)kmp_version_minor
parameter(kmp_version_minor=@LIBOMP_VERSION_MINOR@)
integer(kind=omp_integer_kind)kmp_version_build
parameter(kmp_version_build=@LIBOMP_VERSION_BUILD@)
character(*)kmp_build_date
parameter(kmp_build_date='@LIBOMP_BUILD_DATE@')
integer(kind=omp_sched_kind)omp_sched_static
parameter(omp_sched_static=1)
integer(kind=omp_sched_kind)omp_sched_dynamic
parameter(omp_sched_dynamic=2)
integer(kind=omp_sched_kind)omp_sched_guided
parameter(omp_sched_guided=3)
integer(kind=omp_sched_kind)omp_sched_auto
parameter(omp_sched_auto=4)
integer(kind=omp_sched_kind)omp_sched_monotonic
parameter(omp_sched_monotonic=Z'80000000')
integer(kind=omp_proc_bind_kind)omp_proc_bind_false
parameter(omp_proc_bind_false=0)
integer(kind=omp_proc_bind_kind)omp_proc_bind_true
parameter(omp_proc_bind_true=1)
integer(kind=omp_proc_bind_kind)omp_proc_bind_master
parameter(omp_proc_bind_master=2)
integer(kind=omp_proc_bind_kind)omp_proc_bind_close
parameter(omp_proc_bind_close=3)
integer(kind=omp_proc_bind_kind)omp_proc_bind_spread
parameter(omp_proc_bind_spread=4)
integer(kind=omp_sync_hint_kind)omp_sync_hint_none
parameter(omp_sync_hint_none=0)
integer(kind=omp_sync_hint_kind)omp_sync_hint_uncontended
parameter(omp_sync_hint_uncontended=1)
integer(kind=omp_sync_hint_kind)omp_sync_hint_contended
parameter(omp_sync_hint_contended=2)
integer(kind=omp_sync_hint_kind)omp_sync_hint_nonspeculative
parameter(omp_sync_hint_nonspeculative=4)
integer(kind=omp_sync_hint_kind)omp_sync_hint_speculative
parameter(omp_sync_hint_speculative=8)
integer(kind=omp_lock_hint_kind)omp_lock_hint_none
parameter(omp_lock_hint_none=omp_sync_hint_none)
integer(kind=omp_lock_hint_kind)omp_lock_hint_uncontended
parameter(omp_lock_hint_uncontended=omp_sync_hint_uncontended)
integer(kind=omp_lock_hint_kind)omp_lock_hint_contended
parameter(omp_lock_hint_contended=omp_sync_hint_contended)
integer(kind=omp_lock_hint_kind)omp_lock_hint_nonspeculative
parameter(omp_lock_hint_nonspeculative=4)
integer(kind=omp_lock_hint_kind)omp_lock_hint_speculative
parameter(omp_lock_hint_speculative=omp_sync_hint_speculative)
integer(kind=omp_lock_hint_kind)kmp_lock_hint_hle
parameter(kmp_lock_hint_hle=65536)
integer(kind=omp_lock_hint_kind)kmp_lock_hint_rtm
parameter(kmp_lock_hint_rtm=131072)
integer(kind=omp_lock_hint_kind)kmp_lock_hint_adaptive
parameter(kmp_lock_hint_adaptive=262144)
integer(kind=omp_control_tool_kind)omp_control_tool_start
parameter(omp_control_tool_start=1)
integer(kind=omp_control_tool_kind)omp_control_tool_pause
parameter(omp_control_tool_pause=2)
integer(kind=omp_control_tool_kind)omp_control_tool_flush
parameter(omp_control_tool_flush=3)
integer(kind=omp_control_tool_kind)omp_control_tool_end
parameter(omp_control_tool_end=4)
integer(omp_control_tool_result_kind)omp_control_tool_notool
parameter(omp_control_tool_notool=-2)
integer(omp_control_tool_result_kind)omp_control_tool_nocallback
parameter(omp_control_tool_nocallback=-1)
integer(omp_control_tool_result_kind)omp_control_tool_success
parameter(omp_control_tool_success=0)
integer(omp_control_tool_result_kind)omp_control_tool_ignored
parameter(omp_control_tool_ignored=1)
integer(kind=omp_alloctrait_key_kind)omp_atk_threadmodel
parameter(omp_atk_threadmodel=1)
integer(kind=omp_alloctrait_key_kind)omp_atk_alignment
parameter(omp_atk_alignment=2)
integer(kind=omp_alloctrait_key_kind)omp_atk_access
parameter(omp_atk_access=3)
integer(kind=omp_alloctrait_key_kind)omp_atk_pool_size
parameter(omp_atk_pool_size=4)
integer(kind=omp_alloctrait_key_kind)omp_atk_fallback
parameter(omp_atk_fallback=5)
integer(kind=omp_alloctrait_key_kind)omp_atk_fb_data
parameter(omp_atk_fb_data=6)
integer(kind=omp_alloctrait_key_kind)omp_atk_pinned
parameter(omp_atk_pinned=7)
integer(kind=omp_alloctrait_key_kind)omp_atk_partition
parameter(omp_atk_partition=8)
! Reserved for future use
integer(kind=omp_alloctrait_val_kind)omp_atv_false
parameter(omp_atv_false=0)
! Reserved for future use
integer(kind=omp_alloctrait_val_kind)omp_atv_true
parameter(omp_atv_true=1)
integer(kind=omp_alloctrait_val_kind)omp_atv_default
parameter(omp_atv_default=2)
integer(kind=omp_alloctrait_val_kind)omp_atv_contended
parameter(omp_atv_contended=3)
integer(kind=omp_alloctrait_val_kind)omp_atv_uncontended
parameter(omp_atv_uncontended=4)
integer(kind=omp_alloctrait_val_kind)omp_atv_sequential
parameter(omp_atv_sequential=5)
integer(kind=omp_alloctrait_val_kind)omp_atv_private
parameter(omp_atv_private=6)
integer(kind=omp_alloctrait_val_kind)omp_atv_all
parameter(omp_atv_all=7)
integer(kind=omp_alloctrait_val_kind)omp_atv_thread
parameter(omp_atv_thread=8)
integer(kind=omp_alloctrait_val_kind)omp_atv_pteam
parameter(omp_atv_pteam=9)
integer(kind=omp_alloctrait_val_kind)omp_atv_cgroup
parameter(omp_atv_cgroup=10)
integer(kind=omp_alloctrait_val_kind)omp_atv_default_mem_fb
parameter(omp_atv_default_mem_fb=11)
integer(kind=omp_alloctrait_val_kind)omp_atv_null_fb
parameter(omp_atv_null_fb=12)
integer(kind=omp_alloctrait_val_kind)omp_atv_abort_fb
parameter(omp_atv_abort_fb=13)
integer(kind=omp_alloctrait_val_kind)omp_atv_allocator_fb
parameter(omp_atv_allocator_fb=14)
integer(kind=omp_alloctrait_val_kind)omp_atv_environment
parameter(omp_atv_environment=15)
integer(kind=omp_alloctrait_val_kind)omp_atv_nearest
parameter(omp_atv_nearest=16)
integer(kind=omp_alloctrait_val_kind)omp_atv_blocked
parameter(omp_atv_blocked=17)
integer(kind=omp_alloctrait_val_kind)omp_atv_interleaved
parameter(omp_atv_interleaved=18)
type omp_alloctrait
integer (kind=omp_alloctrait_key_kind) key
integer (kind=omp_alloctrait_val_kind) value
end type omp_alloctrait
integer(kind=omp_allocator_handle_kind)omp_null_allocator
parameter(omp_null_allocator=0)
integer(kind=omp_allocator_handle_kind)omp_default_mem_alloc
parameter(omp_default_mem_alloc=1)
integer(kind=omp_allocator_handle_kind)omp_large_cap_mem_alloc
parameter(omp_large_cap_mem_alloc=2)
integer(kind=omp_allocator_handle_kind)omp_const_mem_alloc
parameter(omp_const_mem_alloc=3)
integer(kind=omp_allocator_handle_kind)omp_high_bw_mem_alloc
parameter(omp_high_bw_mem_alloc=4)
integer(kind=omp_allocator_handle_kind)omp_low_lat_mem_alloc
parameter(omp_low_lat_mem_alloc=5)
integer(kind=omp_allocator_handle_kind)omp_cgroup_mem_alloc
parameter(omp_cgroup_mem_alloc=6)
integer(kind=omp_allocator_handle_kind)omp_pteam_mem_alloc
parameter(omp_pteam_mem_alloc=7)
integer(kind=omp_allocator_handle_kind)omp_thread_mem_alloc
parameter(omp_thread_mem_alloc=8)
integer(kind=omp_memspace_handle_kind)omp_default_mem_space
parameter(omp_default_mem_space=0)
integer(kind=omp_memspace_handle_kind)omp_large_cap_mem_space
parameter(omp_large_cap_mem_space=1)
integer(kind=omp_memspace_handle_kind)omp_const_mem_space
parameter(omp_const_mem_space=2)
integer(kind=omp_memspace_handle_kind)omp_high_bw_mem_space
parameter(omp_high_bw_mem_space=3)
integer(kind=omp_memspace_handle_kind)omp_low_lat_mem_space
parameter(omp_low_lat_mem_space=4)
integer(kind=omp_pause_resource_kind)omp_pause_resume
parameter(omp_pause_resume=0)
integer(kind=omp_pause_resource_kind)omp_pause_soft
parameter(omp_pause_soft=1)
integer(kind=omp_pause_resource_kind)omp_pause_hard
parameter(omp_pause_hard=2)
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads) bind(c)
import
integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads) bind(c)
import
logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested) bind(c)
import
logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel() bind(c)
import
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final() bind(c)
import
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic() bind(c)
import
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested() bind(c)
import
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit() bind(c)
import
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels) bind(c)
import
integer (kind=omp_integer_kind), value :: max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level() bind(c)
import
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level() bind(c)
import
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level) bind(c)
import
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
integer (kind=omp_integer_kind), value :: level
end function omp_get_ancestor_thread_num
function omp_get_team_size(level) bind(c)
import
integer (kind=omp_integer_kind) omp_get_team_size
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind), value :: kind
integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size) bind(c)
import
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
import
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_num_places() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_places
end function omp_get_num_places
function omp_get_place_num_procs(place_num) bind(c)
import
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
import
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) ids(*)
end subroutine omp_get_place_proc_ids
function omp_get_place_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num
function omp_get_partition_num_places() bind(c)
import
integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums) bind(c)
import
integer (kind=omp_integer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums
function omp_get_wtime() bind(c)
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick() bind(c)
double precision omp_get_wtick
end function omp_get_wtick
function omp_get_default_device() bind(c)
import
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num) bind(c)
import
integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams() bind(c)
import
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_is_initial_device() bind(c)
import
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
function omp_get_initial_device() bind(c)
import
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
function omp_get_device_num() bind(c)
import
integer (kind=omp_integer_kind) omp_get_device_num
end function omp_get_device_num
function omp_pause_resource(kind, device_num) bind(c)
import
integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind), value :: device_num
integer (kind=omp_integer_kind) omp_pause_resource
end function omp_pause_resource
function omp_pause_resource_all(kind) bind(c)
import
integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind) omp_pause_resource_all
end function omp_pause_resource_all
function omp_get_supported_active_levels() bind(c)
import
integer (kind=omp_integer_kind) omp_get_supported_active_levels
end function omp_get_supported_active_levels
subroutine omp_fulfill_event(event) bind(c)
import
integer (kind=omp_event_handle_kind), value :: event
end subroutine omp_fulfill_event
subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
import
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
import
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
import
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority() bind(c)
import
integer (kind=omp_integer_kind) omp_get_max_task_priority
end function omp_get_max_task_priority
function omp_init_allocator(memspace, ntraits, traits)
import
integer (omp_allocator_handle_kind) omp_init_allocator
integer (omp_memspace_handle_kind) :: memspace
integer (omp_integer_kind) :: ntraits
type(omp_alloctrait), intent(in) :: traits(*)
end function omp_init_allocator
subroutine omp_destroy_allocator(allocator) bind(c)
import
integer (omp_allocator_handle_kind), value :: allocator
end subroutine omp_destroy_allocator
subroutine omp_set_default_allocator(allocator) bind(c)
import
integer (omp_allocator_handle_kind), value :: allocator
end subroutine omp_set_default_allocator
function omp_get_default_allocator() bind(c)
import
integer (omp_allocator_handle_kind) omp_get_default_allocator
end function omp_get_default_allocator
subroutine omp_set_affinity_format(format)
character (len=*) :: format
end subroutine omp_set_affinity_format
function omp_get_affinity_format(buffer)
import
character (len=*) :: buffer
integer (kind=kmp_size_t_kind) :: omp_get_affinity_format
end function omp_get_affinity_format
subroutine omp_display_affinity(format)
character (len=*) :: format
end subroutine omp_display_affinity
function omp_capture_affinity(buffer, format)
import
character (len=*) :: format
character (len=*) :: buffer
integer (kind=kmp_size_t_kind) :: omp_capture_affinity
end function omp_capture_affinity
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size) bind(c)
import
integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size) bind(c)
import
integer (kind=kmp_size_t_kind), value :: size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec) bind(c)
import
integer (kind=omp_integer_kind), value :: msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial() bind(c)
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround() bind(c)
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput() bind(c)
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum) bind(c)
import
integer (kind=omp_integer_kind), value :: libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string) bind(c)
character string(*)
end subroutine kmp_set_defaults
function kmp_get_stacksize() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s() bind(c)
import
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
subroutine kmp_set_disp_num_buffers(num) bind(c)
import
integer (kind=omp_integer_kind), value :: num
end subroutine kmp_set_disp_num_buffers
function kmp_set_affinity(mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc() bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask) bind(c)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask) bind(c)
import
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask) bind(c)
import
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind), value :: size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind), value :: size
integer (kind=kmp_size_t_kind), value :: alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind), value :: nelem
integer (kind=kmp_size_t_kind), value :: elsize
end function kmp_calloc
function kmp_realloc(ptr, size) bind(c)
import
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind), value :: ptr
integer (kind=kmp_size_t_kind), value :: size
end function kmp_realloc
subroutine kmp_free(ptr) bind(c)
import
integer (kind=kmp_pointer_kind), value :: ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on() bind(c)
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
subroutine omp_init_lock_with_hint(svar, hint) bind(c)
import
integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
import
integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint
function omp_control_tool(command, modifier, arg) bind(c)
import
integer (kind=omp_integer_kind) omp_control_tool
integer (kind=omp_control_tool_kind), value :: command
integer (kind=omp_control_tool_kind), value :: modifier
integer (kind=kmp_pointer_kind), optional :: arg
end function omp_control_tool
end interface
!DIR$ IF DEFINED (__INTEL_OFFLOAD)
!DIR$ IF(__INTEL_COMPILER.LT.1900)
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_num_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_dynamic
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nested
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_threads
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_procs
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_parallel
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_in_final
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_dynamic
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_nested
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_thread_limit
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_max_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_level
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_active_level
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_ancestor_thread_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_size
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_schedule
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_schedule
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_proc_bind
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_wtick
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_default_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_is_initial_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_initial_device
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_devices
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_device_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_pause_resource_all
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_supported_active_levels
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_fulfill_event
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_num_teams
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_team_num
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_destroy_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_unset_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_test_nest_lock
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_max_task_priority
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_set_affinity_format
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_get_affinity_format
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_display_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_capture_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_stacksize_s
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_blocktime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_serial
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_turnaround
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library_throughput
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_library
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_defaults
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_stacksize_s
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_blocktime
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_library
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_disp_num_buffers
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_max_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_create_affinity_mask
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_destroy_affinity_mask
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_unset_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_get_affinity_mask_proc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_malloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_aligned_malloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_calloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_realloc
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_free
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_on
!DIR$ ATTRIBUTES OFFLOAD:MIC :: kmp_set_warnings_off
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_lock_with_hint
!DIR$ ATTRIBUTES OFFLOAD:MIC :: omp_init_nest_lock_with_hint
!DIR$ ENDIF
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!$omp declare target(omp_set_num_threads )
!$omp declare target(omp_set_dynamic )
!$omp declare target(omp_set_nested )
!$omp declare target(omp_get_num_threads )
!$omp declare target(omp_get_max_threads )
!$omp declare target(omp_get_thread_num )
!$omp declare target(omp_get_num_procs )
!$omp declare target(omp_in_parallel )
!$omp declare target(omp_in_final )
!$omp declare target(omp_get_dynamic )
!$omp declare target(omp_get_nested )
!$omp declare target(omp_get_thread_limit )
!$omp declare target(omp_set_max_active_levels )
!$omp declare target(omp_get_max_active_levels )
!$omp declare target(omp_get_level )
!$omp declare target(omp_get_active_level )
!$omp declare target(omp_get_ancestor_thread_num )
!$omp declare target(omp_get_team_size )
!$omp declare target(omp_set_schedule )
!$omp declare target(omp_get_schedule )
!$omp declare target(omp_get_proc_bind )
!$omp declare target(omp_get_wtime )
!$omp declare target(omp_get_wtick )
!$omp declare target(omp_get_default_device )
!$omp declare target(omp_set_default_device )
!$omp declare target(omp_is_initial_device )
!$omp declare target(omp_get_initial_device )
!$omp declare target(omp_get_num_devices )
!$omp declare target(omp_get_device_num )
!$omp declare target(omp_pause_resource )
!$omp declare target(omp_pause_resource_all )
!$omp declare target(omp_get_supported_active_levels )
!$omp declare target(omp_fulfill_event)
!$omp declare target(omp_get_num_teams )
!$omp declare target(omp_get_team_num )
!$omp declare target(omp_init_lock )
!$omp declare target(omp_destroy_lock )
!$omp declare target(omp_set_lock )
!$omp declare target(omp_unset_lock )
!$omp declare target(omp_test_lock )
!$omp declare target(omp_init_nest_lock )
!$omp declare target(omp_destroy_nest_lock )
!$omp declare target(omp_set_nest_lock )
!$omp declare target(omp_unset_nest_lock )
!$omp declare target(omp_test_nest_lock )
!$omp declare target(omp_get_max_task_priority )
!$omp declare target(omp_set_affinity_format )
!$omp declare target(omp_get_affinity_format )
!$omp declare target(omp_display_affinity )
!$omp declare target(omp_capture_affinity )
!$omp declare target(kmp_set_stacksize )
!$omp declare target(kmp_set_stacksize_s )
!$omp declare target(kmp_set_blocktime )
!$omp declare target(kmp_set_library_serial )
!$omp declare target(kmp_set_library_turnaround )
!$omp declare target(kmp_set_library_throughput )
!$omp declare target(kmp_set_library )
!$omp declare target(kmp_set_defaults )
!$omp declare target(kmp_get_stacksize )
!$omp declare target(kmp_get_stacksize_s )
!$omp declare target(kmp_get_blocktime )
!$omp declare target(kmp_get_library )
!$omp declare target(kmp_set_disp_num_buffers )
!$omp declare target(kmp_set_affinity )
!$omp declare target(kmp_get_affinity )
!$omp declare target(kmp_get_affinity_max_proc )
!$omp declare target(kmp_create_affinity_mask )
!$omp declare target(kmp_destroy_affinity_mask )
!$omp declare target(kmp_set_affinity_mask_proc )
!$omp declare target(kmp_unset_affinity_mask_proc )
!$omp declare target(kmp_get_affinity_mask_proc )
!$omp declare target(kmp_malloc )
!$omp declare target(kmp_aligned_malloc )
!$omp declare target(kmp_calloc )
!$omp declare target(kmp_realloc )
!$omp declare target(kmp_free )
!$omp declare target(kmp_set_warnings_on )
!$omp declare target(kmp_set_warnings_off )
!$omp declare target(omp_init_lock_with_hint )
!$omp declare target(omp_init_nest_lock_with_hint )
!DIR$ ENDIF
!DIR$ ENDIF

runtime/src/include/omp_lib.f.var

! include/omp_lib.f.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
!***
!*** Some of the directives for the following routine extend past column 72,
!*** so process this file in 132-column mode.
!***
!dec$ fixedformlinesize:132
module omp_lib_kinds
integer, parameter :: omp_integer_kind = 4
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = 4
integer, parameter :: omp_lock_kind = int_ptr_kind()
integer, parameter :: omp_nest_lock_kind = int_ptr_kind()
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = int_ptr_kind()
integer, parameter :: kmp_size_t_kind = int_ptr_kind()
integer, parameter :: kmp_affinity_mask_kind = int_ptr_kind()
integer, parameter :: kmp_cancel_kind = omp_integer_kind
integer, parameter :: omp_lock_hint_kind = omp_integer_kind
integer, parameter :: omp_control_tool_kind = omp_integer_kind
integer, parameter :: omp_control_tool_result_kind = omp_integer_kind
integer, parameter :: omp_allocator_handle_kind = int_ptr_kind()
integer, parameter :: omp_memspace_handle_kind = int_ptr_kind()
integer, parameter :: omp_alloctrait_key_kind = omp_integer_kind
integer, parameter :: omp_alloctrait_val_kind = int_ptr_kind()
type omp_alloctrait
integer(kind=omp_alloctrait_key_kind) key
integer(kind=omp_alloctrait_val_kind) value
end type omp_alloctrait
integer, parameter :: omp_pause_resource_kind = omp_integer_kind
integer, parameter :: omp_depend_kind = int_ptr_kind()
integer, parameter :: omp_event_handle_kind = int_ptr_kind()
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*), parameter :: kmp_build_date = '@LIBOMP_BUILD_DATE@'
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer(kind=omp_sched_kind), parameter :: omp_sched_monotonic = Z'80000000'
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none = 0
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended = 1
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended = 2
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = 4
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative = 8
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 65536
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 131072
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 262144
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_threadmodel = 1
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_alignment = 2
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_access = 3
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_pool_size = 4
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_fallback = 5
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_fb_data = 6
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_pinned = 7
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_partition = 8
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_false = 0
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_true = 1
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_default = 2
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_contended = 3
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_uncontended = 4
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_sequential = 5
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_private = 6
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_all = 7
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_thread = 8
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_pteam = 9
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_cgroup = 10
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_default_mem_fb = 11
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_null_fb = 12
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_abort_fb = 13
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_allocator_fb = 14
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_environment = 15
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_nearest = 16
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_blocked = 17
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_interleaved = 18
integer (kind=omp_allocator_handle_kind), parameter :: omp_null_allocator = 0
integer (kind=omp_allocator_handle_kind), parameter :: omp_default_mem_alloc = 1
integer (kind=omp_allocator_handle_kind), parameter :: omp_large_cap_mem_alloc = 2
integer (kind=omp_allocator_handle_kind), parameter :: omp_const_mem_alloc = 3
integer (kind=omp_allocator_handle_kind), parameter :: omp_high_bw_mem_alloc = 4
integer (kind=omp_allocator_handle_kind), parameter :: omp_low_lat_mem_alloc = 5
integer (kind=omp_allocator_handle_kind), parameter :: omp_cgroup_mem_alloc = 6
integer (kind=omp_allocator_handle_kind), parameter :: omp_pteam_mem_alloc = 7
integer (kind=omp_allocator_handle_kind), parameter :: omp_thread_mem_alloc = 8
integer (kind=omp_memspace_handle_kind), parameter :: omp_default_mem_space = 0
integer (kind=omp_memspace_handle_kind), parameter :: omp_large_cap_mem_space = 1
integer (kind=omp_memspace_handle_kind), parameter :: omp_const_mem_space = 2
integer (kind=omp_memspace_handle_kind), parameter :: omp_high_bw_mem_space = 3
integer (kind=omp_memspace_handle_kind), parameter :: omp_low_lat_mem_space = 4
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_resume = 0
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_soft = 1
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_hard = 2
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads)
use omp_lib_kinds
integer (kind=omp_integer_kind) num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads)
use omp_lib_kinds
logical (kind=omp_logical_kind) dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested)
use omp_lib_kinds
logical (kind=omp_logical_kind) nested
end subroutine omp_set_nested
function omp_get_num_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels)
use omp_lib_kinds
integer (kind=omp_integer_kind) max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
end function omp_get_ancestor_thread_num
function omp_get_team_size(level)
use omp_lib_kinds
integer (kind=omp_integer_kind) level
integer (kind=omp_integer_kind) omp_get_team_size
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind()
use omp_lib_kinds
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_num_places()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_places
end function omp_get_num_places
function omp_get_place_num_procs(place_num)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_num
integer (kind=omp_integer_kind) ids(*)
end subroutine omp_get_place_proc_ids
function omp_get_place_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num
function omp_get_partition_num_places()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums
function omp_get_wtime()
double precision omp_get_wtime
end function omp_get_wtime
function omp_get_wtick ()
double precision omp_get_wtick
end function omp_get_wtick
function omp_get_default_device()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num)
use omp_lib_kinds
integer (kind=omp_integer_kind) device_num
end subroutine omp_set_default_device
function omp_get_num_devices()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_get_cancellation()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_cancellation
end function omp_get_cancellation
function omp_is_initial_device()
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
function omp_get_initial_device()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
function omp_get_device_num()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_device_num
end function omp_get_device_num
function omp_pause_resource(kind, device_num)
use omp_lib_kinds
integer (kind=omp_pause_resource_kind) kind
integer (kind=omp_integer_kind) device_num
integer (kind=omp_integer_kind) omp_pause_resource
end function omp_pause_resource
function omp_pause_resource_all(kind)
use omp_lib_kinds
integer (kind=omp_pause_resource_kind) kind
integer (kind=omp_integer_kind) omp_pause_resource_all
end function omp_pause_resource_all
function omp_get_supported_active_levels()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_supported_active_levels
end function omp_get_supported_active_levels
subroutine omp_fulfill_event(event)
use omp_lib_kinds
integer (kind=omp_event_handle_kind) event
end subroutine omp_fulfill_event
subroutine omp_init_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority()
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_task_priority
end function omp_get_max_task_priority
function omp_init_allocator(memspace, ntraits, traits)
use omp_lib_kinds
integer (omp_allocator_handle_kind) omp_init_allocator
integer (omp_memspace_handle_kind) :: memspace
integer (omp_integer_kind) :: ntraits
type(omp_alloctrait), intent(in) :: traits(*)
end function omp_init_allocator
subroutine omp_destroy_allocator(allocator) bind(c)
use omp_lib_kinds
integer (omp_allocator_handle_kind), value :: allocator
end subroutine omp_destroy_allocator
subroutine omp_set_default_allocator(allocator) bind(c)
use omp_lib_kinds
integer (omp_allocator_handle_kind) allocator
end subroutine omp_set_default_allocator
function omp_get_default_allocator() bind(c)
use omp_lib_kinds
integer(omp_allocator_handle_kind)omp_get_default_allocator
end function omp_get_default_allocator
subroutine omp_set_affinity_format(format)
character (len=*) format
end subroutine omp_set_affinity_format
function omp_get_affinity_format(buffer)
use omp_lib_kinds
character (len=*) buffer
integer (kind=kmp_size_t_kind) omp_get_affinity_format
end function omp_get_affinity_format
subroutine omp_display_affinity(format)
character (len=*) format
end subroutine omp_display_affinity
function omp_capture_affinity(buffer, format)
use omp_lib_kinds
character (len=*) format
character (len=*) buffer
integer (kind=kmp_size_t_kind) omp_capture_affinity
end function omp_capture_affinity
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size)
use omp_lib_kinds
integer (kind=omp_integer_kind) size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec)
use omp_lib_kinds
integer (kind=omp_integer_kind) msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial()
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround()
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput()
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum)
use omp_lib_kinds
integer (kind=omp_integer_kind) libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string)
character*(*) string
end subroutine kmp_set_defaults
function kmp_get_stacksize()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s()
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
subroutine kmp_set_disp_num_buffers(num)
use omp_lib_kinds
integer (kind=omp_integer_kind) num
end subroutine kmp_set_disp_num_buffers
function kmp_set_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc()
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind) proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind) size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind) size
integer (kind=kmp_size_t_kind) alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind) nelem
integer (kind=kmp_size_t_kind) elsize
end function kmp_calloc
function kmp_realloc(ptr, size)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind) ptr
integer (kind=kmp_size_t_kind) size
end function kmp_realloc
subroutine kmp_free(ptr)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on()
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off()
end subroutine kmp_set_warnings_off
function kmp_get_cancellation_status(cancelkind)
use omp_lib_kinds
integer (kind=kmp_cancel_kind) cancelkind
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
subroutine omp_init_lock_with_hint(svar, hint)
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind) hint
end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind) hint
end subroutine omp_init_nest_lock_with_hint
function omp_control_tool(command, modifier)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_control_tool
integer (kind=omp_control_tool_kind) command
integer (kind=omp_control_tool_kind) modifier
end function omp_control_tool
end interface
!dec$ if defined(_WIN32)
!dec$ if defined(_WIN64) .or. defined(_M_AMD64)
!***
!*** The Fortran entry points must be in uppercase, even if the /Qlowercase
!*** option is specified. The alias attribute ensures that the specified
!*** string is used as the entry point.
!***
!*** On the Windows* OS IA-32 architecture, the Fortran entry points have an
!*** underscore prepended. On the Windows* OS Intel(R) 64
!*** architecture, no underscore is prepended.
!***
!dec$ attributes alias:'OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'OMP_GET_PROC_BIND' :: omp_get_proc_bind
!dec$ attributes alias:'OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
!dec$ attributes alias:'OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
!dec$ attributes alias:'OMP_GET_NUM_DEVICES' :: omp_get_num_devices
!dec$ attributes alias:'OMP_GET_NUM_TEAMS' :: omp_get_num_teams
!dec$ attributes alias:'OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device
!dec$ attributes alias:'OMP_GET_MAX_TASK_PRIORITY' :: omp_get_max_task_priority
!dec$ attributes alias:'OMP_GET_DEVICE_NUM' :: omp_get_device_num
!dec$ attributes alias:'OMP_PAUSE_RESOURCE' :: omp_pause_resource
!dec$ attributes alias:'OMP_PAUSE_RESOURCE_ALL' :: omp_pause_resource_all
!dec$ attributes alias:'OMP_GET_SUPPORTED_ACTIVE_LEVELS' :: omp_get_supported_active_levels
!dec$ attributes alias:'OMP_FULFILL_EVENT' :: omp_fulfill_event
!dec$ attributes alias:'OMP_CONTROL_TOOL' :: omp_control_tool
!dec$ attributes alias:'OMP_SET_AFFINITY_FORMAT' :: omp_set_affinity_format
!dec$ attributes alias:'OMP_GET_AFFINITY_FORMAT' :: omp_get_affinity_format
!dec$ attributes alias:'OMP_DISPLAY_AFFINITY' :: omp_display_affinity
!dec$ attributes alias:'OMP_CAPTURE_AFFINITY' :: omp_capture_affinity
!dec$ attributes alias:'omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'omp_init_lock_with_hint' :: omp_init_lock_with_hint
!dec$ attributes alias:'omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint
!dec$ attributes alias:'omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'KMP_FREE'::kmp_free
!dec$ attributes alias:'KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ attributes alias:'KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
!dec$ else
!***
!*** On Windows* OS IA-32 architecture, the Fortran entry points have an underscore prepended.
!***
!dec$ attributes alias:'_OMP_SET_NUM_THREADS' :: omp_set_num_threads
!dec$ attributes alias:'_OMP_SET_DYNAMIC' :: omp_set_dynamic
!dec$ attributes alias:'_OMP_SET_NESTED' :: omp_set_nested
!dec$ attributes alias:'_OMP_GET_NUM_THREADS' :: omp_get_num_threads
!dec$ attributes alias:'_OMP_GET_MAX_THREADS' :: omp_get_max_threads
!dec$ attributes alias:'_OMP_GET_THREAD_NUM' :: omp_get_thread_num
!dec$ attributes alias:'_OMP_GET_NUM_PROCS' :: omp_get_num_procs
!dec$ attributes alias:'_OMP_IN_PARALLEL' :: omp_in_parallel
!dec$ attributes alias:'_OMP_GET_DYNAMIC' :: omp_get_dynamic
!dec$ attributes alias:'_OMP_GET_NESTED' :: omp_get_nested
!dec$ attributes alias:'_OMP_GET_THREAD_LIMIT' :: omp_get_thread_limit
!dec$ attributes alias:'_OMP_SET_MAX_ACTIVE_LEVELS' :: omp_set_max_active_levels
!dec$ attributes alias:'_OMP_GET_MAX_ACTIVE_LEVELS' :: omp_get_max_active_levels
!dec$ attributes alias:'_OMP_GET_LEVEL' :: omp_get_level
!dec$ attributes alias:'_OMP_GET_ACTIVE_LEVEL' :: omp_get_active_level
!dec$ attributes alias:'_OMP_GET_ANCESTOR_THREAD_NUM' :: omp_get_ancestor_thread_num
!dec$ attributes alias:'_OMP_GET_TEAM_SIZE' :: omp_get_team_size
!dec$ attributes alias:'_OMP_SET_SCHEDULE' :: omp_set_schedule
!dec$ attributes alias:'_OMP_GET_SCHEDULE' :: omp_get_schedule
!dec$ attributes alias:'_OMP_GET_PROC_BIND' :: omp_get_proc_bind
!dec$ attributes alias:'_OMP_GET_WTIME' :: omp_get_wtime
!dec$ attributes alias:'_OMP_GET_WTICK' :: omp_get_wtick
!dec$ attributes alias:'_OMP_GET_DEFAULT_DEVICE' :: omp_get_default_device
!dec$ attributes alias:'_OMP_SET_DEFAULT_DEVICE' :: omp_set_default_device
!dec$ attributes alias:'_OMP_GET_NUM_DEVICES' :: omp_get_num_devices
!dec$ attributes alias:'_OMP_GET_NUM_TEAMS' :: omp_get_num_teams
!dec$ attributes alias:'_OMP_GET_TEAM_NUM' :: omp_get_team_num
!dec$ attributes alias:'_OMP_GET_CANCELLATION' :: omp_get_cancellation
!dec$ attributes alias:'_OMP_IS_INITIAL_DEVICE' :: omp_is_initial_device
!dec$ attributes alias:'_OMP_GET_INITIAL_DEVICE' :: omp_get_initial_device
!dec$ attributes alias:'_OMP_GET_MAX_TASK_PRIORTY' :: omp_get_max_task_priority
!dec$ attributes alias:'_OMP_GET_DEVICE_NUM' :: omp_get_device_num
!dec$ attributes alias:'_OMP_PAUSE_RESOURCE' :: omp_pause_resource
!dec$ attributes alias:'_OMP_PAUSE_RESOURCE_ALL' :: omp_pause_resource_all
!dec$ attributes alias:'_OMP_GET_SUPPORTED_ACTIVE_LEVELS' :: omp_get_supported_active_levels
!dec$ attributes alias:'_OMP_FULFILL_EVENT' :: omp_fulfill_event
!dec$ attributes alias:'_OMP_CONTROL_TOOL' :: omp_control_tool
!dec$ attributes alias:'_OMP_SET_AFFINITY_FORMAT' :: omp_set_affinity_format
!dec$ attributes alias:'_OMP_GET_AFFINITY_FORMAT' :: omp_get_affinity_format
!dec$ attributes alias:'_OMP_DISPLAY_AFFINITY' :: omp_display_affinity
!dec$ attributes alias:'_OMP_CAPTURE_AFFINITY' :: omp_capture_affinity
!dec$ attributes alias:'_omp_init_lock' :: omp_init_lock
!dec$ attributes alias:'_omp_init_lock_with_hint' :: omp_init_lock_with_hint
!dec$ attributes alias:'_omp_destroy_lock' :: omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock' :: omp_set_lock
!dec$ attributes alias:'_omp_unset_lock' :: omp_unset_lock
!dec$ attributes alias:'_omp_test_lock' :: omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock' :: omp_init_nest_lock
!dec$ attributes alias:'_omp_init_nest_lock_with_hint' :: omp_init_nest_lock_with_hint
!dec$ attributes alias:'_omp_destroy_nest_lock' :: omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock' :: omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock' :: omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock' :: omp_test_nest_lock
!dec$ attributes alias:'_KMP_SET_STACKSIZE'::kmp_set_stacksize
!dec$ attributes alias:'_KMP_SET_STACKSIZE_S'::kmp_set_stacksize_s
!dec$ attributes alias:'_KMP_SET_BLOCKTIME'::kmp_set_blocktime
!dec$ attributes alias:'_KMP_SET_LIBRARY_SERIAL'::kmp_set_library_serial
!dec$ attributes alias:'_KMP_SET_LIBRARY_TURNAROUND'::kmp_set_library_turnaround
!dec$ attributes alias:'_KMP_SET_LIBRARY_THROUGHPUT'::kmp_set_library_throughput
!dec$ attributes alias:'_KMP_SET_LIBRARY'::kmp_set_library
!dec$ attributes alias:'_KMP_GET_STACKSIZE'::kmp_get_stacksize
!dec$ attributes alias:'_KMP_GET_STACKSIZE_S'::kmp_get_stacksize_s
!dec$ attributes alias:'_KMP_GET_BLOCKTIME'::kmp_get_blocktime
!dec$ attributes alias:'_KMP_GET_LIBRARY'::kmp_get_library
!dec$ attributes alias:'_KMP_SET_AFFINITY'::kmp_set_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY'::kmp_get_affinity
!dec$ attributes alias:'_KMP_GET_AFFINITY_MAX_PROC'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_KMP_CREATE_AFFINITY_MASK'::kmp_create_affinity_mask
!dec$ attributes alias:'_KMP_DESTROY_AFFINITY_MASK'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_KMP_SET_AFFINITY_MASK_PROC'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_KMP_UNSET_AFFINITY_MASK_PROC'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_KMP_GET_AFFINITY_MASK_PROC'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_KMP_MALLOC'::kmp_malloc
!dec$ attributes alias:'_KMP_ALIGNED_MALLOC'::kmp_aligned_malloc
!dec$ attributes alias:'_KMP_CALLOC'::kmp_calloc
!dec$ attributes alias:'_KMP_REALLOC'::kmp_realloc
!dec$ attributes alias:'_KMP_FREE'::kmp_free
!dec$ attributes alias:'_KMP_SET_WARNINGS_ON'::kmp_set_warnings_on
!dec$ attributes alias:'_KMP_SET_WARNINGS_OFF'::kmp_set_warnings_off
!dec$ attributes alias:'_KMP_GET_CANCELLATION_STATUS' :: kmp_get_cancellation_status
!dec$ endif
!dec$ endif
!dec$ if defined(__linux)
!***
!*** The Linux* OS entry points are in lowercase, with an underscore appended.
!***
!dec$ attributes alias:'omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'omp_get_level_'::omp_get_level
!dec$ attributes alias:'omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'omp_get_proc_bind_' :: omp_get_proc_bind
!dec$ attributes alias:'omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'omp_get_default_device_'::omp_get_default_device
!dec$ attributes alias:'omp_set_default_device_'::omp_set_default_device
!dec$ attributes alias:'omp_get_num_devices_'::omp_get_num_devices
!dec$ attributes alias:'omp_get_num_teams_'::omp_get_num_teams
!dec$ attributes alias:'omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'omp_get_initial_device_'::omp_get_initial_device
!dec$ attributes alias:'omp_get_max_task_priority_'::omp_get_max_task_priority
!dec$ attributes alias:'omp_get_device_num_'::omp_get_device_num
!dec$ attributes alias:'omp_pause_resource_' :: omp_pause_resource
!dec$ attributes alias:'omp_pause_resource_all_' :: omp_pause_resource_all
!dec$ attributes alias:'omp_get_supported_active_levels_' :: omp_get_supported_active_levels
!dec$ attributes alias:'omp_fulfill_event_' :: omp_fulfill_event
!dec$ attributes alias:'omp_set_affinity_format_' :: omp_set_affinity_format
!dec$ attributes alias:'omp_get_affinity_format_' :: omp_get_affinity_format
!dec$ attributes alias:'omp_display_affinity_' :: omp_display_affinity
!dec$ attributes alias:'omp_capture_affinity_' :: omp_capture_affinity
!dec$ attributes alias:'omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'omp_init_lock_with_hint_'::omp_init_lock_with_hint
!dec$ attributes alias:'omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint
!dec$ attributes alias:'omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'omp_control_tool_'::omp_control_tool
!dec$ attributes alias:'kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'kmp_free_'::kmp_free
!dec$ attributes alias:'kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ attributes alias:'kmp_get_cancellation_status_'::kmp_get_cancellation_status
!dec$ endif
!dec$ if defined(__APPLE__)
!***
!*** The Mac entry points are in lowercase, with an both an underscore
!*** appended and an underscore prepended.
!***
!dec$ attributes alias:'_omp_set_num_threads_'::omp_set_num_threads
!dec$ attributes alias:'_omp_set_dynamic_'::omp_set_dynamic
!dec$ attributes alias:'_omp_set_nested_'::omp_set_nested
!dec$ attributes alias:'_omp_get_num_threads_'::omp_get_num_threads
!dec$ attributes alias:'_omp_get_max_threads_'::omp_get_max_threads
!dec$ attributes alias:'_omp_get_thread_num_'::omp_get_thread_num
!dec$ attributes alias:'_omp_get_num_procs_'::omp_get_num_procs
!dec$ attributes alias:'_omp_in_parallel_'::omp_in_parallel
!dec$ attributes alias:'_omp_get_dynamic_'::omp_get_dynamic
!dec$ attributes alias:'_omp_get_nested_'::omp_get_nested
!dec$ attributes alias:'_omp_get_thread_limit_'::omp_get_thread_limit
!dec$ attributes alias:'_omp_set_max_active_levels_'::omp_set_max_active_levels
!dec$ attributes alias:'_omp_get_max_active_levels_'::omp_get_max_active_levels
!dec$ attributes alias:'_omp_get_level_'::omp_get_level
!dec$ attributes alias:'_omp_get_active_level_'::omp_get_active_level
!dec$ attributes alias:'_omp_get_ancestor_thread_num_'::omp_get_ancestor_thread_num
!dec$ attributes alias:'_omp_get_team_size_'::omp_get_team_size
!dec$ attributes alias:'_omp_set_schedule_'::omp_set_schedule
!dec$ attributes alias:'_omp_get_schedule_'::omp_get_schedule
!dec$ attributes alias:'_omp_get_proc_bind_' :: omp_get_proc_bind
!dec$ attributes alias:'_omp_get_wtime_'::omp_get_wtime
!dec$ attributes alias:'_omp_get_wtick_'::omp_get_wtick
!dec$ attributes alias:'_omp_get_default_device_'::omp_get_default_device
!dec$ attributes alias:'_omp_set_default_device_'::omp_set_default_device
!dec$ attributes alias:'_omp_get_num_devices_'::omp_get_num_devices
!dec$ attributes alias:'_omp_get_num_teams_'::omp_get_num_teams
!dec$ attributes alias:'_omp_get_team_num_'::omp_get_team_num
!dec$ attributes alias:'_omp_get_cancellation_'::omp_get_cancellation
!dec$ attributes alias:'_omp_is_initial_device_'::omp_is_initial_device
!dec$ attributes alias:'_omp_get_initial_device_'::omp_get_initial_device
!dec$ attributes alias:'_omp_get_max_task_priorty_'::omp_get_max_task_priority
!dec$ attributes alias:'_omp_get_device_num_'::omp_get_device_num
!dec$ attributes alias:'_omp_pause_resource_' :: omp_pause_resource
!dec$ attributes alias:'_omp_pause_resource_all_' :: omp_pause_resource_all
!dec$ attributes alias:'_omp_get_supported_active_levels_' :: omp_get_supported_active_levels
!dec$ attributes alias:'_omp_fulfill_event_' :: omp_fulfill_event
!dec$ attributes alias:'_omp_init_lock_'::omp_init_lock
!dec$ attributes alias:'_omp_init_lock_with_hint_'::omp_init_lock_with_hint
!dec$ attributes alias:'_omp_destroy_lock_'::omp_destroy_lock
!dec$ attributes alias:'_omp_set_lock_'::omp_set_lock
!dec$ attributes alias:'_omp_unset_lock_'::omp_unset_lock
!dec$ attributes alias:'_omp_test_lock_'::omp_test_lock
!dec$ attributes alias:'_omp_init_nest_lock_'::omp_init_nest_lock
!dec$ attributes alias:'_omp_init_nest_lock_with_hint_'::omp_init_nest_lock_with_hint
!dec$ attributes alias:'_omp_destroy_nest_lock_'::omp_destroy_nest_lock
!dec$ attributes alias:'_omp_set_nest_lock_'::omp_set_nest_lock
!dec$ attributes alias:'_omp_unset_nest_lock_'::omp_unset_nest_lock
!dec$ attributes alias:'_omp_test_nest_lock_'::omp_test_nest_lock
!dec$ attributes alias:'_omp_control_tool_'::omp_control_tool
!dec$ attributes alias:'_omp_set_affinity_format_' :: omp_set_affinity_format
!dec$ attributes alias:'_omp_get_affinity_format_' :: omp_get_affinity_format
!dec$ attributes alias:'_omp_display_affinity_' :: omp_display_affinity
!dec$ attributes alias:'_omp_capture_affinity_' :: omp_capture_affinity
!dec$ attributes alias:'_kmp_set_stacksize_'::kmp_set_stacksize
!dec$ attributes alias:'_kmp_set_stacksize_s_'::kmp_set_stacksize_s
!dec$ attributes alias:'_kmp_set_blocktime_'::kmp_set_blocktime
!dec$ attributes alias:'_kmp_set_library_serial_'::kmp_set_library_serial
!dec$ attributes alias:'_kmp_set_library_turnaround_'::kmp_set_library_turnaround
!dec$ attributes alias:'_kmp_set_library_throughput_'::kmp_set_library_throughput
!dec$ attributes alias:'_kmp_set_library_'::kmp_set_library
!dec$ attributes alias:'_kmp_get_stacksize_'::kmp_get_stacksize
!dec$ attributes alias:'_kmp_get_stacksize_s_'::kmp_get_stacksize_s
!dec$ attributes alias:'_kmp_get_blocktime_'::kmp_get_blocktime
!dec$ attributes alias:'_kmp_get_library_'::kmp_get_library
!dec$ attributes alias:'_kmp_set_affinity_'::kmp_set_affinity
!dec$ attributes alias:'_kmp_get_affinity_'::kmp_get_affinity
!dec$ attributes alias:'_kmp_get_affinity_max_proc_'::kmp_get_affinity_max_proc
!dec$ attributes alias:'_kmp_create_affinity_mask_'::kmp_create_affinity_mask
!dec$ attributes alias:'_kmp_destroy_affinity_mask_'::kmp_destroy_affinity_mask
!dec$ attributes alias:'_kmp_set_affinity_mask_proc_'::kmp_set_affinity_mask_proc
!dec$ attributes alias:'_kmp_unset_affinity_mask_proc_'::kmp_unset_affinity_mask_proc
!dec$ attributes alias:'_kmp_get_affinity_mask_proc_'::kmp_get_affinity_mask_proc
!dec$ attributes alias:'_kmp_malloc_'::kmp_malloc
!dec$ attributes alias:'_kmp_aligned_malloc_'::kmp_aligned_malloc
!dec$ attributes alias:'_kmp_calloc_'::kmp_calloc
!dec$ attributes alias:'_kmp_realloc_'::kmp_realloc
!dec$ attributes alias:'_kmp_free_'::kmp_free
!dec$ attributes alias:'_kmp_set_warnings_on_'::kmp_set_warnings_on
!dec$ attributes alias:'_kmp_set_warnings_off_'::kmp_set_warnings_off
!dec$ attributes alias:'_kmp_get_cancellation_status_'::kmp_get_cancellation_status
!dec$ endif
end module omp_lib

runtime/src/include/omp_lib.f90.var

! include/omp_lib.f90.var
!
!//===----------------------------------------------------------------------===//
!//
!// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
!// See https://llvm.org/LICENSE.txt for license information.
!// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!//
!//===----------------------------------------------------------------------===//
!
module omp_lib_kinds
use, intrinsic :: iso_c_binding
integer, parameter :: omp_integer_kind = c_int
integer, parameter :: omp_logical_kind = 4
integer, parameter :: omp_real_kind = c_float
integer, parameter :: kmp_double_kind = c_double
integer, parameter :: omp_lock_kind = c_intptr_t
integer, parameter :: omp_nest_lock_kind = c_intptr_t
integer, parameter :: omp_sched_kind = omp_integer_kind
integer, parameter :: omp_proc_bind_kind = omp_integer_kind
integer, parameter :: kmp_pointer_kind = c_intptr_t
integer, parameter :: kmp_size_t_kind = c_size_t
integer, parameter :: kmp_affinity_mask_kind = c_intptr_t
integer, parameter :: kmp_cancel_kind = omp_integer_kind
integer, parameter :: omp_sync_hint_kind = omp_integer_kind
integer, parameter :: omp_lock_hint_kind = omp_sync_hint_kind
integer, parameter :: omp_control_tool_kind = omp_integer_kind
integer, parameter :: omp_control_tool_result_kind = omp_integer_kind
integer, parameter :: omp_allocator_handle_kind = c_intptr_t
integer, parameter :: omp_memspace_handle_kind = c_intptr_t
integer, parameter :: omp_alloctrait_key_kind = omp_integer_kind
integer, parameter :: omp_alloctrait_val_kind = c_intptr_t
type omp_alloctrait
integer(kind=omp_alloctrait_key_kind) key
integer(kind=omp_alloctrait_val_kind) value
end type omp_alloctrait
integer, parameter :: omp_pause_resource_kind = omp_integer_kind
integer, parameter :: omp_depend_kind = c_intptr_t
integer, parameter :: omp_event_handle_kind = c_intptr_t
end module omp_lib_kinds
module omp_lib
use omp_lib_kinds
integer (kind=omp_integer_kind), parameter :: openmp_version = @LIBOMP_OMP_YEAR_MONTH@
integer (kind=omp_integer_kind), parameter :: kmp_version_major = @LIBOMP_VERSION_MAJOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_minor = @LIBOMP_VERSION_MINOR@
integer (kind=omp_integer_kind), parameter :: kmp_version_build = @LIBOMP_VERSION_BUILD@
character(*) kmp_build_date
parameter( kmp_build_date = '@LIBOMP_BUILD_DATE@' )
integer(kind=omp_sched_kind), parameter :: omp_sched_static = 1
integer(kind=omp_sched_kind), parameter :: omp_sched_dynamic = 2
integer(kind=omp_sched_kind), parameter :: omp_sched_guided = 3
integer(kind=omp_sched_kind), parameter :: omp_sched_auto = 4
integer(kind=omp_sched_kind), parameter :: omp_sched_monotonic = int(Z'80000000', kind=omp_sched_kind)
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_false = 0
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_true = 1
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_master = 2
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_close = 3
integer (kind=omp_proc_bind_kind), parameter :: omp_proc_bind_spread = 4
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_parallel = 1
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_loop = 2
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_sections = 3
integer (kind=kmp_cancel_kind), parameter :: kmp_cancel_taskgroup = 4
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_none = 0
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_uncontended = 1
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_contended = 2
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_nonspeculative = 4
integer (kind=omp_sync_hint_kind), parameter :: omp_sync_hint_speculative = 8
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_none = omp_sync_hint_none
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_uncontended = omp_sync_hint_uncontended
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_contended = omp_sync_hint_contended
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_nonspeculative = omp_sync_hint_nonspeculative
integer (kind=omp_lock_hint_kind), parameter :: omp_lock_hint_speculative = omp_sync_hint_speculative
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_hle = 65536
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_rtm = 131072
integer (kind=omp_lock_hint_kind), parameter :: kmp_lock_hint_adaptive = 262144
integer (kind=omp_control_tool_kind), parameter :: omp_control_tool_start = 1
integer (kind=omp_control_tool_kind), parameter :: omp_control_tool_pause = 2
integer (kind=omp_control_tool_kind), parameter :: omp_control_tool_flush = 3
integer (kind=omp_control_tool_kind), parameter :: omp_control_tool_end = 4
integer (kind=omp_control_tool_result_kind), parameter :: omp_control_tool_notool = -2
integer (kind=omp_control_tool_result_kind), parameter :: omp_control_tool_nocallback = -1
integer (kind=omp_control_tool_result_kind), parameter :: omp_control_tool_success = 0
integer (kind=omp_control_tool_result_kind), parameter :: omp_control_tool_ignored = 1
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_threadmodel = 1
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_alignment = 2
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_access = 3
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_pool_size = 4
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_fallback = 5
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_fb_data = 6
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_pinned = 7
integer (kind=omp_alloctrait_key_kind), parameter :: omp_atk_partition = 8
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_false = 0
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_true = 1
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_default = 2
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_contended = 3
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_uncontended = 4
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_sequential = 5
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_private = 6
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_all = 7
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_thread = 8
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_pteam = 9
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_cgroup = 10
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_default_mem_fb = 11
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_null_fb = 12
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_abort_fb = 13
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_allocator_fb = 14
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_environment = 15
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_nearest = 16
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_blocked = 17
integer (kind=omp_alloctrait_val_kind), parameter :: omp_atv_interleaved = 18
integer (kind=omp_allocator_handle_kind), parameter :: omp_null_allocator = 0
integer (kind=omp_allocator_handle_kind), parameter :: omp_default_mem_alloc = 1
integer (kind=omp_allocator_handle_kind), parameter :: omp_large_cap_mem_alloc = 2
integer (kind=omp_allocator_handle_kind), parameter :: omp_const_mem_alloc = 3
integer (kind=omp_allocator_handle_kind), parameter :: omp_high_bw_mem_alloc = 4
integer (kind=omp_allocator_handle_kind), parameter :: omp_low_lat_mem_alloc = 5
integer (kind=omp_allocator_handle_kind), parameter :: omp_cgroup_mem_alloc = 6
integer (kind=omp_allocator_handle_kind), parameter :: omp_pteam_mem_alloc = 7
integer (kind=omp_allocator_handle_kind), parameter :: omp_thread_mem_alloc = 8
integer (kind=omp_memspace_handle_kind), parameter :: omp_default_mem_space = 0
integer (kind=omp_memspace_handle_kind), parameter :: omp_large_cap_mem_space = 1
integer (kind=omp_memspace_handle_kind), parameter :: omp_const_mem_space = 2
integer (kind=omp_memspace_handle_kind), parameter :: omp_high_bw_mem_space = 3
integer (kind=omp_memspace_handle_kind), parameter :: omp_low_lat_mem_space = 4
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_resume = 0
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_soft = 1
integer (kind=omp_pause_resource_kind), parameter :: omp_pause_hard = 2
interface
! ***
! *** omp_* entry points
! ***
subroutine omp_set_num_threads(num_threads) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: num_threads
end subroutine omp_set_num_threads
subroutine omp_set_dynamic(dynamic_threads) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: dynamic_threads
end subroutine omp_set_dynamic
subroutine omp_set_nested(nested) bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind), value :: nested
end subroutine omp_set_nested
function omp_get_num_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_threads
end function omp_get_num_threads
function omp_get_max_threads() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_threads
end function omp_get_max_threads
function omp_get_thread_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_num
end function omp_get_thread_num
function omp_get_num_procs() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_procs
end function omp_get_num_procs
function omp_in_parallel() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_parallel
end function omp_in_parallel
function omp_in_final() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_in_final
end function omp_in_final
function omp_get_dynamic() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_dynamic
end function omp_get_dynamic
function omp_get_nested() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_get_nested
end function omp_get_nested
function omp_get_thread_limit() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_thread_limit
end function omp_get_thread_limit
subroutine omp_set_max_active_levels(max_levels) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: max_levels
end subroutine omp_set_max_active_levels
function omp_get_max_active_levels() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_active_levels
end function omp_get_max_active_levels
function omp_get_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_level
end function omp_get_level
function omp_get_active_level() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_active_level
end function omp_get_active_level
function omp_get_ancestor_thread_num(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_ancestor_thread_num
integer (kind=omp_integer_kind), value :: level
end function omp_get_ancestor_thread_num
function omp_get_team_size(level) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_size
integer (kind=omp_integer_kind), value :: level
end function omp_get_team_size
subroutine omp_set_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind), value :: kind
integer (kind=omp_integer_kind), value :: chunk_size
end subroutine omp_set_schedule
subroutine omp_get_schedule(kind, chunk_size) bind(c)
use omp_lib_kinds
integer (kind=omp_sched_kind) kind
integer (kind=omp_integer_kind) chunk_size
end subroutine omp_get_schedule
function omp_get_proc_bind() bind(c)
use omp_lib_kinds
integer (kind=omp_proc_bind_kind) omp_get_proc_bind
end function omp_get_proc_bind
function omp_get_num_places() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_places
end function omp_get_num_places
function omp_get_place_num_procs(place_num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) omp_get_place_num_procs
end function omp_get_place_num_procs
subroutine omp_get_place_proc_ids(place_num, ids) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: place_num
integer (kind=omp_integer_kind) ids(*)
end subroutine omp_get_place_proc_ids
function omp_get_place_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_place_num
end function omp_get_place_num
function omp_get_partition_num_places() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_partition_num_places
end function omp_get_partition_num_places
subroutine omp_get_partition_place_nums(place_nums) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) place_nums(*)
end subroutine omp_get_partition_place_nums
function omp_get_wtime() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtime
end function omp_get_wtime
function omp_get_wtick() bind(c)
use omp_lib_kinds
real (kind=kmp_double_kind) omp_get_wtick
end function omp_get_wtick
function omp_get_default_device() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_default_device
end function omp_get_default_device
subroutine omp_set_default_device(device_num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: device_num
end subroutine omp_set_default_device
function omp_get_num_devices() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_devices
end function omp_get_num_devices
function omp_get_num_teams() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_num_teams
end function omp_get_num_teams
function omp_get_team_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_team_num
end function omp_get_team_num
function omp_get_cancellation() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_cancellation
end function omp_get_cancellation
function omp_is_initial_device() bind(c)
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_is_initial_device
end function omp_is_initial_device
function omp_get_initial_device() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_initial_device
end function omp_get_initial_device
function omp_get_device_num() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_device_num
end function omp_get_device_num
function omp_pause_resource(kind, device_num) bind(c)
use omp_lib_kinds
integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind), value :: device_num
integer (kind=omp_integer_kind) omp_pause_resource
end function omp_pause_resource
function omp_pause_resource_all(kind) bind(c)
use omp_lib_kinds
integer (kind=omp_pause_resource_kind), value :: kind
integer (kind=omp_integer_kind) omp_pause_resource_all
end function omp_pause_resource_all
function omp_get_supported_active_levels() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_supported_active_levels
end function omp_get_supported_active_levels
subroutine omp_fulfill_event(event) bind(c)
use omp_lib_kinds
integer (kind=omp_event_handle_kind), value :: event
end subroutine omp_fulfill_event
subroutine omp_init_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_init_lock
subroutine omp_destroy_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_destroy_lock
subroutine omp_set_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_set_lock
subroutine omp_unset_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
end subroutine omp_unset_lock
function omp_test_lock(svar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_lock
!DIR$ ENDIF
use omp_lib_kinds
logical (kind=omp_logical_kind) omp_test_lock
integer (kind=omp_lock_kind) svar
end function omp_test_lock
subroutine omp_init_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_init_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_init_nest_lock
subroutine omp_destroy_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_destroy_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_destroy_nest_lock
subroutine omp_set_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_set_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_set_nest_lock
subroutine omp_unset_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_unset_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
end subroutine omp_unset_nest_lock
function omp_test_nest_lock(nvar) bind(c)
!DIR$ IF(__INTEL_COMPILER.GE.1400)
!DIR$ attributes known_intrinsic :: omp_test_nest_lock
!DIR$ ENDIF
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_test_nest_lock
integer (kind=omp_nest_lock_kind) nvar
end function omp_test_nest_lock
function omp_get_max_task_priority() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_get_max_task_priority
end function omp_get_max_task_priority
function omp_init_allocator(memspace, ntraits, traits)
use omp_lib_kinds
integer (kind=omp_allocator_handle_kind) omp_init_allocator
integer (kind=omp_memspace_handle_kind) :: memspace
integer (kind=omp_integer_kind) :: ntraits
type(omp_alloctrait), intent(in) :: traits(*)
end function omp_init_allocator
subroutine omp_destroy_allocator(allocator) bind(c)
use omp_lib_kinds
integer (kind=omp_allocator_handle_kind), value :: allocator
end subroutine omp_destroy_allocator
subroutine omp_set_default_allocator(allocator) bind(c)
use omp_lib_kinds
integer (kind=omp_allocator_handle_kind), value :: allocator
end subroutine omp_set_default_allocator
function omp_get_default_allocator() bind(c)
use omp_lib_kinds
integer (kind=omp_allocator_handle_kind) omp_get_default_allocator
end function omp_get_default_allocator
subroutine omp_set_affinity_format(format)
character (len=*) :: format
end subroutine omp_set_affinity_format
function omp_get_affinity_format(buffer)
use omp_lib_kinds
character (len=*) :: buffer
integer (kind=kmp_size_t_kind) :: omp_get_affinity_format
end function omp_get_affinity_format
subroutine omp_display_affinity(format)
character (len=*) :: format
end subroutine omp_display_affinity
function omp_capture_affinity(buffer, format)
use omp_lib_kinds
character (len=*) :: format
character (len=*) :: buffer
integer (kind=kmp_size_t_kind) :: omp_capture_affinity
end function omp_capture_affinity
! ***
! *** kmp_* entry points
! ***
subroutine kmp_set_stacksize(size) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: size
end subroutine kmp_set_stacksize
subroutine kmp_set_stacksize_s(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind), value :: size
end subroutine kmp_set_stacksize_s
subroutine kmp_set_blocktime(msec) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: msec
end subroutine kmp_set_blocktime
subroutine kmp_set_library_serial() bind(c)
end subroutine kmp_set_library_serial
subroutine kmp_set_library_turnaround() bind(c)
end subroutine kmp_set_library_turnaround
subroutine kmp_set_library_throughput() bind(c)
end subroutine kmp_set_library_throughput
subroutine kmp_set_library(libnum) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: libnum
end subroutine kmp_set_library
subroutine kmp_set_defaults(string) bind(c)
use, intrinsic :: iso_c_binding
character (kind=c_char) :: string(*)
end subroutine kmp_set_defaults
function kmp_get_stacksize() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_stacksize
end function kmp_get_stacksize
function kmp_get_stacksize_s() bind(c)
use omp_lib_kinds
integer (kind=kmp_size_t_kind) kmp_get_stacksize_s
end function kmp_get_stacksize_s
function kmp_get_blocktime() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_blocktime
end function kmp_get_blocktime
function kmp_get_library() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_library
end function kmp_get_library
subroutine kmp_set_disp_num_buffers(num) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind), value :: num
end subroutine kmp_set_disp_num_buffers
function kmp_set_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity
function kmp_get_affinity(mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity
function kmp_get_affinity_max_proc() bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_max_proc
end function kmp_get_affinity_max_proc
subroutine kmp_create_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_create_affinity_mask
subroutine kmp_destroy_affinity_mask(mask) bind(c)
use omp_lib_kinds
integer (kind=kmp_affinity_mask_kind) mask
end subroutine kmp_destroy_affinity_mask
function kmp_set_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_set_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_set_affinity_mask_proc
function kmp_unset_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_unset_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_unset_affinity_mask_proc
function kmp_get_affinity_mask_proc(proc, mask) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) kmp_get_affinity_mask_proc
integer (kind=omp_integer_kind), value :: proc
integer (kind=kmp_affinity_mask_kind) mask
end function kmp_get_affinity_mask_proc
function kmp_malloc(size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_malloc
integer (kind=kmp_size_t_kind), value :: size
end function kmp_malloc
function kmp_aligned_malloc(size, alignment) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_aligned_malloc
integer (kind=kmp_size_t_kind), value :: size
integer (kind=kmp_size_t_kind), value :: alignment
end function kmp_aligned_malloc
function kmp_calloc(nelem, elsize) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_calloc
integer (kind=kmp_size_t_kind), value :: nelem
integer (kind=kmp_size_t_kind), value :: elsize
end function kmp_calloc
function kmp_realloc(ptr, size) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind) kmp_realloc
integer (kind=kmp_pointer_kind), value :: ptr
integer (kind=kmp_size_t_kind), value :: size
end function kmp_realloc
subroutine kmp_free(ptr) bind(c)
use omp_lib_kinds
integer (kind=kmp_pointer_kind), value :: ptr
end subroutine kmp_free
subroutine kmp_set_warnings_on() bind(c)
end subroutine kmp_set_warnings_on
subroutine kmp_set_warnings_off() bind(c)
end subroutine kmp_set_warnings_off
function kmp_get_cancellation_status(cancelkind) bind(c)
use omp_lib_kinds
integer (kind=kmp_cancel_kind), value :: cancelkind
logical (kind=omp_logical_kind) kmp_get_cancellation_status
end function kmp_get_cancellation_status
subroutine omp_init_lock_with_hint(svar, hint) bind(c)
use omp_lib_kinds
integer (kind=omp_lock_kind) svar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_lock_with_hint
subroutine omp_init_nest_lock_with_hint(nvar, hint) bind(c)
use omp_lib_kinds
integer (kind=omp_nest_lock_kind) nvar
integer (kind=omp_lock_hint_kind), value :: hint
end subroutine omp_init_nest_lock_with_hint
function omp_control_tool(command, modifier, arg) bind(c)
use omp_lib_kinds
integer (kind=omp_integer_kind) omp_control_tool
integer (kind=omp_control_tool_kind), value :: command
integer (kind=omp_control_tool_kind), value :: modifier
integer (kind=kmp_pointer_kind), optional :: arg
end function omp_control_tool
end interface
end module omp_lib

runtime/src/kmp.h

Show First 20 Lines • Show All 130 Lines • ▼ Show 20 Lines
#if KMP_OS_LINUX #if KMP_OS_LINUX
#pragma weak clock_gettime #pragma weak clock_gettime
#endif #endif
#if OMPT_SUPPORT #if OMPT_SUPPORT
#include "ompt-internal.h" #include "ompt-internal.h"
#endif #endif
#if OMP_50_ENABLED
// Affinity format function // Affinity format function
#include "kmp_str.h" #include "kmp_str.h"
#endif
// 0 - no fast memory allocation, alignment: 8-byte on x86, 16-byte on x64. // 0 - no fast memory allocation, alignment: 8-byte on x86, 16-byte on x64.
// 3 - fast allocation using sync, non-sync free lists of any size, non-self // 3 - fast allocation using sync, non-sync free lists of any size, non-self
// free lists of limited size. // free lists of limited size.
#ifndef USE_FAST_MEMORY #ifndef USE_FAST_MEMORY
#define USE_FAST_MEMORY 3 #define USE_FAST_MEMORY 3
#endif #endif
#ifndef KMP_NESTED_HOT_TEAMS #ifndef KMP_NESTED_HOT_TEAMS
#define KMP_NESTED_HOT_TEAMS 0 #define KMP_NESTED_HOT_TEAMS 0
#define USE_NESTED_HOT_ARG(x) #define USE_NESTED_HOT_ARG(x)
#else #else
#if KMP_NESTED_HOT_TEAMS #if KMP_NESTED_HOT_TEAMS
#if OMP_40_ENABLED
#define USE_NESTED_HOT_ARG(x) , x #define USE_NESTED_HOT_ARG(x) , x
#else #else
// Nested hot teams feature depends on omp 4.0, disable it for earlier versions
#undef KMP_NESTED_HOT_TEAMS
#define KMP_NESTED_HOT_TEAMS 0
#define USE_NESTED_HOT_ARG(x)
#endif
#else
#define USE_NESTED_HOT_ARG(x) #define USE_NESTED_HOT_ARG(x)
#endif #endif
#endif #endif
// Assume using BGET compare_exchange instruction instead of lock by default. // Assume using BGET compare_exchange instruction instead of lock by default.
#ifndef USE_CMP_XCHG_FOR_BGET #ifndef USE_CMP_XCHG_FOR_BGET
#define USE_CMP_XCHG_FOR_BGET 1 #define USE_CMP_XCHG_FOR_BGET 1
#endif #endif
▲ Show 20 Lines • Show All 183 Lines • ▼ Show 20 Linesenum sched_type : kmp_int32 {
kmp_sch_static_greedy = 40, kmp_sch_static_greedy = 40,
kmp_sch_static_balanced = 41, kmp_sch_static_balanced = 41,
/* accessible only through KMP_SCHEDULE environment variable */ /* accessible only through KMP_SCHEDULE environment variable */
kmp_sch_guided_iterative_chunked = 42, kmp_sch_guided_iterative_chunked = 42,
kmp_sch_guided_analytical_chunked = 43, kmp_sch_guided_analytical_chunked = 43,
/* accessible only through KMP_SCHEDULE environment variable */ /* accessible only through KMP_SCHEDULE environment variable */
kmp_sch_static_steal = 44, kmp_sch_static_steal = 44,
#if OMP_45_ENABLED
/* static with chunk adjustment (e.g., simd) */ /* static with chunk adjustment (e.g., simd) */
kmp_sch_static_balanced_chunked = 45, kmp_sch_static_balanced_chunked = 45,
kmp_sch_guided_simd = 46, /**< guided with chunk adjustment */ kmp_sch_guided_simd = 46, /**< guided with chunk adjustment */
kmp_sch_runtime_simd = 47, /**< runtime with chunk adjustment */ kmp_sch_runtime_simd = 47, /**< runtime with chunk adjustment */
#endif
/* accessible only through KMP_SCHEDULE environment variable */ /* accessible only through KMP_SCHEDULE environment variable */
kmp_sch_upper, /**< upper bound for unordered values */ kmp_sch_upper, /**< upper bound for unordered values */
kmp_ord_lower = 64, /**< lower bound for ordered values, must be power of 2 */ kmp_ord_lower = 64, /**< lower bound for ordered values, must be power of 2 */
kmp_ord_static_chunked = 65, kmp_ord_static_chunked = 65,
kmp_ord_static = 66, /**< ordered static unspecialized */ kmp_ord_static = 66, /**< ordered static unspecialized */
kmp_ord_dynamic_chunked = 67, kmp_ord_dynamic_chunked = 67,
kmp_ord_guided_chunked = 68, kmp_ord_guided_chunked = 68,
kmp_ord_runtime = 69, kmp_ord_runtime = 69,
kmp_ord_auto = 70, /**< ordered auto */ kmp_ord_auto = 70, /**< ordered auto */
kmp_ord_trapezoidal = 71, kmp_ord_trapezoidal = 71,
kmp_ord_upper, /**< upper bound for ordered values */ kmp_ord_upper, /**< upper bound for ordered values */
#if OMP_40_ENABLED
/* Schedules for Distribute construct */ /* Schedules for Distribute construct */
kmp_distribute_static_chunked = 91, /**< distribute static chunked */ kmp_distribute_static_chunked = 91, /**< distribute static chunked */
kmp_distribute_static = 92, /**< distribute static unspecialized */ kmp_distribute_static = 92, /**< distribute static unspecialized */
#endif
/* For the "nomerge" versions, kmp_dispatch_next*() will always return a /* For the "nomerge" versions, kmp_dispatch_next*() will always return a
single iteration/chunk, even if the loop is serialized. For the schedule single iteration/chunk, even if the loop is serialized. For the schedule
types listed above, the entire iteration vector is returned if the loop is types listed above, the entire iteration vector is returned if the loop is
serialized. This doesn't work for gcc/gcomp sections. */ serialized. This doesn't work for gcc/gcomp sections. */
kmp_nm_lower = 160, /**< lower bound for nomerge values */ kmp_nm_lower = 160, /**< lower bound for nomerge values */
kmp_nm_static_chunked = kmp_nm_static_chunked =
Show All 18 Linesenum sched_type : kmp_int32 {
kmp_nm_ord_static = 194, /**< ordered static unspecialized */ kmp_nm_ord_static = 194, /**< ordered static unspecialized */
kmp_nm_ord_dynamic_chunked = 195, kmp_nm_ord_dynamic_chunked = 195,
kmp_nm_ord_guided_chunked = 196, kmp_nm_ord_guided_chunked = 196,
kmp_nm_ord_runtime = 197, kmp_nm_ord_runtime = 197,
kmp_nm_ord_auto = 198, /**< auto */ kmp_nm_ord_auto = 198, /**< auto */
kmp_nm_ord_trapezoidal = 199, kmp_nm_ord_trapezoidal = 199,
kmp_nm_upper, /**< upper bound for nomerge values */ kmp_nm_upper, /**< upper bound for nomerge values */
#if OMP_45_ENABLED
/* Support for OpenMP 4.5 monotonic and nonmonotonic schedule modifiers. Since /* Support for OpenMP 4.5 monotonic and nonmonotonic schedule modifiers. Since
we need to distinguish the three possible cases (no modifier, monotonic we need to distinguish the three possible cases (no modifier, monotonic
modifier, nonmonotonic modifier), we need separate bits for each modifier. modifier, nonmonotonic modifier), we need separate bits for each modifier.
The absence of monotonic does not imply nonmonotonic, especially since 4.5 The absence of monotonic does not imply nonmonotonic, especially since 4.5
says that the behaviour of the "no modifier" case is implementation defined says that the behaviour of the "no modifier" case is implementation defined
in 4.5, but will become "nonmonotonic" in 5.0. in 4.5, but will become "nonmonotonic" in 5.0.
Since we're passing a full 32 bit value, we can use a couple of high bits Since we're passing a full 32 bit value, we can use a couple of high bits
Show All 15 Lines
#define SCHEDULE_HAS_NONMONOTONIC(s) (((s)&kmp_sch_modifier_nonmonotonic) != 0) #define SCHEDULE_HAS_NONMONOTONIC(s) (((s)&kmp_sch_modifier_nonmonotonic) != 0)
#define SCHEDULE_HAS_NO_MODIFIERS(s) \ #define SCHEDULE_HAS_NO_MODIFIERS(s) \
(((s) & (kmp_sch_modifier_nonmonotonic | kmp_sch_modifier_monotonic)) == 0) (((s) & (kmp_sch_modifier_nonmonotonic | kmp_sch_modifier_monotonic)) == 0)
#define SCHEDULE_GET_MODIFIERS(s) \ #define SCHEDULE_GET_MODIFIERS(s) \
((enum sched_type)( \ ((enum sched_type)( \
(s) & (kmp_sch_modifier_nonmonotonic | kmp_sch_modifier_monotonic))) (s) & (kmp_sch_modifier_nonmonotonic | kmp_sch_modifier_monotonic)))
#define SCHEDULE_SET_MODIFIERS(s, m) \ #define SCHEDULE_SET_MODIFIERS(s, m) \
(s = (enum sched_type)((kmp_int32)s | (kmp_int32)m)) (s = (enum sched_type)((kmp_int32)s | (kmp_int32)m))
#else
/* By doing this we hope to avoid multiple tests on OMP_45_ENABLED. Compilers
can now eliminate tests on compile time constants and dead code that results
from them, so we can leave code guarded by such an if in place. */
#define SCHEDULE_WITHOUT_MODIFIERS(s) (s)
#define SCHEDULE_HAS_MONOTONIC(s) false
#define SCHEDULE_HAS_NONMONOTONIC(s) false
#define SCHEDULE_HAS_NO_MODIFIERS(s) true
#define SCHEDULE_GET_MODIFIERS(s) ((enum sched_type)0)
#define SCHEDULE_SET_MODIFIERS(s, m) /* Nothing */
#endif
#define SCHEDULE_NONMONOTONIC 0 #define SCHEDULE_NONMONOTONIC 0
#define SCHEDULE_MONOTONIC 1 #define SCHEDULE_MONOTONIC 1
kmp_sch_default = kmp_sch_static /**< default scheduling algorithm */ kmp_sch_default = kmp_sch_static /**< default scheduling algorithm */
}; };
// Apply modifiers on internal kind to standard kind // Apply modifiers on internal kind to standard kind
static inline void static inline void
__kmp_sched_apply_mods_stdkind(kmp_sched_t *kind, __kmp_sched_apply_mods_stdkind(kmp_sched_t *kind,
enum sched_type internal_kind) { enum sched_type internal_kind) {
#if OMP_50_ENABLED
if (SCHEDULE_HAS_MONOTONIC(internal_kind)) { if (SCHEDULE_HAS_MONOTONIC(internal_kind)) {
*kind = (kmp_sched_t)((int)*kind | (int)kmp_sched_monotonic); *kind = (kmp_sched_t)((int)*kind | (int)kmp_sched_monotonic);
} }
#endif
} }
// Apply modifiers on standard kind to internal kind // Apply modifiers on standard kind to internal kind
static inline void static inline void
__kmp_sched_apply_mods_intkind(kmp_sched_t kind, __kmp_sched_apply_mods_intkind(kmp_sched_t kind,
enum sched_type *internal_kind) { enum sched_type *internal_kind) {
#if OMP_50_ENABLED
if ((int)kind & (int)kmp_sched_monotonic) { if ((int)kind & (int)kmp_sched_monotonic) {
*internal_kind = (enum sched_type)((int)*internal_kind | *internal_kind = (enum sched_type)((int)*internal_kind |
(int)kmp_sch_modifier_monotonic); (int)kmp_sch_modifier_monotonic);
} }
#endif
} }
// Get standard schedule without modifiers // Get standard schedule without modifiers
static inline kmp_sched_t __kmp_sched_without_mods(kmp_sched_t kind) { static inline kmp_sched_t __kmp_sched_without_mods(kmp_sched_t kind) {
#if OMP_50_ENABLED
return (kmp_sched_t)((int)kind & ~((int)kmp_sched_monotonic)); return (kmp_sched_t)((int)kind & ~((int)kmp_sched_monotonic));
#else
return kind;
#endif
} }
/* Type to keep runtime schedule set via OMP_SCHEDULE or omp_set_schedule() */ /* Type to keep runtime schedule set via OMP_SCHEDULE or omp_set_schedule() */
typedef union kmp_r_sched { typedef union kmp_r_sched {
struct { struct {
enum sched_type r_sched_type; enum sched_type r_sched_type;
int chunk; int chunk;
}; };
▲ Show 20 Lines • Show All 313 Lines • ▼ Show 20 Lines
extern unsigned __kmp_affinity_num_masks; extern unsigned __kmp_affinity_num_masks;
extern void __kmp_affinity_bind_thread(int which); extern void __kmp_affinity_bind_thread(int which);
extern kmp_affin_mask_t *__kmp_affin_fullMask; extern kmp_affin_mask_t *__kmp_affin_fullMask;
extern char *__kmp_cpuinfo_file; extern char *__kmp_cpuinfo_file;
#endif /* KMP_AFFINITY_SUPPORTED */ #endif /* KMP_AFFINITY_SUPPORTED */
#if OMP_40_ENABLED
// This needs to be kept in sync with the values in omp.h !!! // This needs to be kept in sync with the values in omp.h !!!
typedef enum kmp_proc_bind_t { typedef enum kmp_proc_bind_t {
proc_bind_false = 0, proc_bind_false = 0,
proc_bind_true, proc_bind_true,
proc_bind_master, proc_bind_master,
proc_bind_close, proc_bind_close,
proc_bind_spread, proc_bind_spread,
proc_bind_intel, // use KMP_AFFINITY interface proc_bind_intel, // use KMP_AFFINITY interface
proc_bind_default proc_bind_default
} kmp_proc_bind_t; } kmp_proc_bind_t;
typedef struct kmp_nested_proc_bind_t { typedef struct kmp_nested_proc_bind_t {
kmp_proc_bind_t *bind_types; kmp_proc_bind_t *bind_types;
int size; int size;
int used; int used;
} kmp_nested_proc_bind_t; } kmp_nested_proc_bind_t;
extern kmp_nested_proc_bind_t __kmp_nested_proc_bind; extern kmp_nested_proc_bind_t __kmp_nested_proc_bind;
#endif /* OMP_40_ENABLED */
#if OMP_50_ENABLED
extern int __kmp_display_affinity; extern int __kmp_display_affinity;
extern char *__kmp_affinity_format; extern char *__kmp_affinity_format;
static const size_t KMP_AFFINITY_FORMAT_SIZE = 512; static const size_t KMP_AFFINITY_FORMAT_SIZE = 512;
#endif // OMP_50_ENABLED
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
#define KMP_PLACE_ALL (-1) #define KMP_PLACE_ALL (-1)
#define KMP_PLACE_UNDEFINED (-2) #define KMP_PLACE_UNDEFINED (-2)
// Is KMP_AFFINITY is being used instead of OMP_PROC_BIND/OMP_PLACES? // Is KMP_AFFINITY is being used instead of OMP_PROC_BIND/OMP_PLACES?
#define KMP_AFFINITY_NON_PROC_BIND \ #define KMP_AFFINITY_NON_PROC_BIND \
((__kmp_nested_proc_bind.bind_types[0] == proc_bind_false || \ ((__kmp_nested_proc_bind.bind_types[0] == proc_bind_false || \
__kmp_nested_proc_bind.bind_types[0] == proc_bind_intel) && \ __kmp_nested_proc_bind.bind_types[0] == proc_bind_intel) && \
(__kmp_affinity_num_masks > 0 || __kmp_affinity_type == affinity_balanced)) (__kmp_affinity_num_masks > 0 || __kmp_affinity_type == affinity_balanced))
#endif /* KMP_AFFINITY_SUPPORTED */ #endif /* KMP_AFFINITY_SUPPORTED */
extern int __kmp_affinity_num_places; extern int __kmp_affinity_num_places;
#if OMP_40_ENABLED
typedef enum kmp_cancel_kind_t { typedef enum kmp_cancel_kind_t {
cancel_noreq = 0, cancel_noreq = 0,
cancel_parallel = 1, cancel_parallel = 1,
cancel_loop = 2, cancel_loop = 2,
cancel_sections = 3, cancel_sections = 3,
cancel_taskgroup = 4 cancel_taskgroup = 4
} kmp_cancel_kind_t; } kmp_cancel_kind_t;
#endif // OMP_40_ENABLED
// KMP_HW_SUBSET support: // KMP_HW_SUBSET support:
typedef struct kmp_hws_item { typedef struct kmp_hws_item {
int num; int num;
int offset; int offset;
} kmp_hws_item_t; } kmp_hws_item_t;
extern kmp_hws_item_t __kmp_hws_socket; extern kmp_hws_item_t __kmp_hws_socket;
Show All 12 Lines
// We need to avoid using -1 as a GTID as +1 is added to the gtid // We need to avoid using -1 as a GTID as +1 is added to the gtid
// when storing it in a lock, and the value 0 is reserved. // when storing it in a lock, and the value 0 is reserved.
#define KMP_GTID_DNE (-2) /* Does not exist */ #define KMP_GTID_DNE (-2) /* Does not exist */
#define KMP_GTID_SHUTDOWN (-3) /* Library is shutting down */ #define KMP_GTID_SHUTDOWN (-3) /* Library is shutting down */
#define KMP_GTID_MONITOR (-4) /* Monitor thread ID */ #define KMP_GTID_MONITOR (-4) /* Monitor thread ID */
#define KMP_GTID_UNKNOWN (-5) /* Is not known */ #define KMP_GTID_UNKNOWN (-5) /* Is not known */
#define KMP_GTID_MIN (-6) /* Minimal gtid for low bound check in DEBUG */ #define KMP_GTID_MIN (-6) /* Minimal gtid for low bound check in DEBUG */
#if OMP_50_ENABLED
/* OpenMP 5.0 Memory Management support */ /* OpenMP 5.0 Memory Management support */
#ifndef __OMP_H #ifndef __OMP_H
// Duplicate type definitios from omp.h // Duplicate type definitios from omp.h
typedef uintptr_t omp_uintptr_t; typedef uintptr_t omp_uintptr_t;
typedef enum { typedef enum {
OMP_ATK_THREADMODEL = 1, OMP_ATK_THREADMODEL = 1,
▲ Show 20 Lines • Show All 77 Lines • ▼ Show 20 Lines
extern void __kmpc_destroy_allocator(int gtid, omp_allocator_handle_t al); extern void __kmpc_destroy_allocator(int gtid, omp_allocator_handle_t al);
extern void __kmpc_set_default_allocator(int gtid, omp_allocator_handle_t al); extern void __kmpc_set_default_allocator(int gtid, omp_allocator_handle_t al);
extern omp_allocator_handle_t __kmpc_get_default_allocator(int gtid); extern omp_allocator_handle_t __kmpc_get_default_allocator(int gtid);
extern void *__kmpc_alloc(int gtid, size_t sz, omp_allocator_handle_t al); extern void *__kmpc_alloc(int gtid, size_t sz, omp_allocator_handle_t al);
extern void __kmpc_free(int gtid, void *ptr, omp_allocator_handle_t al); extern void __kmpc_free(int gtid, void *ptr, omp_allocator_handle_t al);
extern void __kmp_init_memkind(); extern void __kmp_init_memkind();
extern void __kmp_fini_memkind(); extern void __kmp_fini_memkind();
#endif // OMP_50_ENABLED
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#define KMP_UINT64_MAX \ #define KMP_UINT64_MAX \
(~((kmp_uint64)1 << ((sizeof(kmp_uint64) * (1 << 3)) - 1))) (~((kmp_uint64)1 << ((sizeof(kmp_uint64) * (1 << 3)) - 1)))
#define KMP_MIN_NTH 1 #define KMP_MIN_NTH 1
▲ Show 20 Lines • Show All 721 Lines • ▼ Show 20 Lines
} dispatch_shared_info64_t; } dispatch_shared_info64_t;
typedef struct dispatch_shared_info { typedef struct dispatch_shared_info {
union shared_info { union shared_info {
dispatch_shared_info32_t s32; dispatch_shared_info32_t s32;
dispatch_shared_info64_t s64; dispatch_shared_info64_t s64;
} u; } u;
volatile kmp_uint32 buffer_index; volatile kmp_uint32 buffer_index;
#if OMP_45_ENABLED
volatile kmp_int32 doacross_buf_idx; // teamwise index volatile kmp_int32 doacross_buf_idx; // teamwise index
volatile kmp_uint32 *doacross_flags; // shared array of iteration flags (0/1) volatile kmp_uint32 *doacross_flags; // shared array of iteration flags (0/1)
kmp_int32 doacross_num_done; // count finished threads kmp_int32 doacross_num_done; // count finished threads
#endif
#if KMP_USE_HIER_SCHED #if KMP_USE_HIER_SCHED
void *hier; void *hier;
#endif #endif
#if KMP_USE_HWLOC #if KMP_USE_HWLOC
// When linking with libhwloc, the ORDERED EPCC test slows down on big // When linking with libhwloc, the ORDERED EPCC test slows down on big
// machines (> 48 cores). Performance analysis showed that a cache thrash // machines (> 48 cores). Performance analysis showed that a cache thrash
// was occurring and this padding helps alleviate the problem. // was occurring and this padding helps alleviate the problem.
char padding[64]; char padding[64];
#endif #endif
} dispatch_shared_info_t; } dispatch_shared_info_t;
typedef struct kmp_disp { typedef struct kmp_disp {
/* Vector for ORDERED SECTION */ /* Vector for ORDERED SECTION */
void (*th_deo_fcn)(int *gtid, int *cid, ident_t *); void (*th_deo_fcn)(int *gtid, int *cid, ident_t *);
/* Vector for END ORDERED SECTION */ /* Vector for END ORDERED SECTION */
void (*th_dxo_fcn)(int *gtid, int *cid, ident_t *); void (*th_dxo_fcn)(int *gtid, int *cid, ident_t *);
dispatch_shared_info_t *th_dispatch_sh_current; dispatch_shared_info_t *th_dispatch_sh_current;
dispatch_private_info_t *th_dispatch_pr_current; dispatch_private_info_t *th_dispatch_pr_current;
dispatch_private_info_t *th_disp_buffer; dispatch_private_info_t *th_disp_buffer;
kmp_int32 th_disp_index; kmp_int32 th_disp_index;
#if OMP_45_ENABLED
kmp_int32 th_doacross_buf_idx; // thread's doacross buffer index kmp_int32 th_doacross_buf_idx; // thread's doacross buffer index
volatile kmp_uint32 *th_doacross_flags; // pointer to shared array of flags volatile kmp_uint32 *th_doacross_flags; // pointer to shared array of flags
union { // we can use union here because doacross cannot be used in union { // we can use union here because doacross cannot be used in
// nonmonotonic loops // nonmonotonic loops
kmp_int64 *th_doacross_info; // info on loop bounds kmp_int64 *th_doacross_info; // info on loop bounds
kmp_lock_t *th_steal_lock; // lock used for chunk stealing (8-byte variable) kmp_lock_t *th_steal_lock; // lock used for chunk stealing (8-byte variable)
}; };
#else
#if KMP_STATIC_STEAL_ENABLED
kmp_lock_t *th_steal_lock; // lock used for chunk stealing (8-byte variable)
void *dummy_padding[1]; // make it 64 bytes on Intel(R) 64
#else
void *dummy_padding[2]; // make it 64 bytes on Intel(R) 64
#endif
#endif
#if KMP_USE_INTERNODE_ALIGNMENT #if KMP_USE_INTERNODE_ALIGNMENT
char more_padding[INTERNODE_CACHE_LINE]; char more_padding[INTERNODE_CACHE_LINE];
#endif #endif
} kmp_disp_t; } kmp_disp_t;
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
/* Barrier stuff */ /* Barrier stuff */
▲ Show 20 Lines • Show All 71 Lines • ▼ Show 20 Lines#if KMP_USE_MONITOR
int bt_intervals; /* internal control for blocktime intervals */ int bt_intervals; /* internal control for blocktime intervals */
#endif #endif
int nproc; /* internal control for #threads for next parallel region (per int nproc; /* internal control for #threads for next parallel region (per
thread) */ thread) */
int thread_limit; /* internal control for thread-limit-var */ int thread_limit; /* internal control for thread-limit-var */
int max_active_levels; /* internal control for max_active_levels */ int max_active_levels; /* internal control for max_active_levels */
kmp_r_sched_t kmp_r_sched_t
sched; /* internal control for runtime schedule {sched,chunk} pair */ sched; /* internal control for runtime schedule {sched,chunk} pair */
#if OMP_40_ENABLED
kmp_proc_bind_t proc_bind; /* internal control for affinity */ kmp_proc_bind_t proc_bind; /* internal control for affinity */
kmp_int32 default_device; /* internal control for default device */ kmp_int32 default_device; /* internal control for default device */
#endif // OMP_40_ENABLED
struct kmp_internal_control *next; struct kmp_internal_control *next;
} kmp_internal_control_t; } kmp_internal_control_t;
static inline void copy_icvs(kmp_internal_control_t *dst, static inline void copy_icvs(kmp_internal_control_t *dst,
kmp_internal_control_t *src) { kmp_internal_control_t *src) {
*dst = *src; *dst = *src;
} }
▲ Show 20 Lines • Show All 212 Lines • ▼ Show 20 Lines#define set__max_active_levels(xthread, xval) \
(((xthread)->th.th_current_task->td_icvs.max_active_levels) = (xval)) (((xthread)->th.th_current_task->td_icvs.max_active_levels) = (xval))
#define get__max_active_levels(xthread) \ #define get__max_active_levels(xthread) \
((xthread)->th.th_current_task->td_icvs.max_active_levels) ((xthread)->th.th_current_task->td_icvs.max_active_levels)
#define set__sched(xthread, xval) \ #define set__sched(xthread, xval) \
(((xthread)->th.th_current_task->td_icvs.sched) = (xval)) (((xthread)->th.th_current_task->td_icvs.sched) = (xval))
#if OMP_40_ENABLED
#define set__proc_bind(xthread, xval) \ #define set__proc_bind(xthread, xval) \
(((xthread)->th.th_current_task->td_icvs.proc_bind) = (xval)) (((xthread)->th.th_current_task->td_icvs.proc_bind) = (xval))
#define get__proc_bind(xthread) \ #define get__proc_bind(xthread) \
((xthread)->th.th_current_task->td_icvs.proc_bind) ((xthread)->th.th_current_task->td_icvs.proc_bind)
#endif /* OMP_40_ENABLED */
// OpenMP tasking data structures // OpenMP tasking data structures
typedef enum kmp_tasking_mode { typedef enum kmp_tasking_mode {
tskm_immediate_exec = 0, tskm_immediate_exec = 0,
tskm_extra_barrier = 1, tskm_extra_barrier = 1,
tskm_task_teams = 2, tskm_task_teams = 2,
tskm_max = 2 tskm_max = 2
} kmp_tasking_mode_t; } kmp_tasking_mode_t;
extern kmp_tasking_mode_t extern kmp_tasking_mode_t
__kmp_tasking_mode; /* determines how/when to execute tasks */ __kmp_tasking_mode; /* determines how/when to execute tasks */
extern int __kmp_task_stealing_constraint; extern int __kmp_task_stealing_constraint;
extern int __kmp_enable_task_throttling; extern int __kmp_enable_task_throttling;
#if OMP_40_ENABLED
extern kmp_int32 __kmp_default_device; // Set via OMP_DEFAULT_DEVICE if extern kmp_int32 __kmp_default_device; // Set via OMP_DEFAULT_DEVICE if
// specified, defaults to 0 otherwise // specified, defaults to 0 otherwise
#endif
#if OMP_45_ENABLED
// Set via OMP_MAX_TASK_PRIORITY if specified, defaults to 0 otherwise // Set via OMP_MAX_TASK_PRIORITY if specified, defaults to 0 otherwise
extern kmp_int32 __kmp_max_task_priority; extern kmp_int32 __kmp_max_task_priority;
// Set via KMP_TASKLOOP_MIN_TASKS if specified, defaults to 0 otherwise // Set via KMP_TASKLOOP_MIN_TASKS if specified, defaults to 0 otherwise
extern kmp_uint64 __kmp_taskloop_min_tasks; extern kmp_uint64 __kmp_taskloop_min_tasks;
#endif
/* NOTE: kmp_taskdata_t and kmp_task_t structures allocated in single block with /* NOTE: kmp_taskdata_t and kmp_task_t structures allocated in single block with
taskdata first */ taskdata first */
#define KMP_TASK_TO_TASKDATA(task) (((kmp_taskdata_t *)task) - 1) #define KMP_TASK_TO_TASKDATA(task) (((kmp_taskdata_t *)task) - 1)
#define KMP_TASKDATA_TO_TASK(taskdata) (kmp_task_t *)(taskdata + 1) #define KMP_TASKDATA_TO_TASK(taskdata) (kmp_task_t *)(taskdata + 1)
// The tt_found_tasks flag is a signal to all threads in the team that tasks // The tt_found_tasks flag is a signal to all threads in the team that tasks
// were spawned and queued since the previous barrier release. // were spawned and queued since the previous barrier release.
#define KMP_TASKING_ENABLED(task_team) \ #define KMP_TASKING_ENABLED(task_team) \
(TCR_SYNC_4((task_team)->tt.tt_found_tasks) == TRUE) (TCR_SYNC_4((task_team)->tt.tt_found_tasks) == TRUE)
/*! /*!
@ingroup BASIC_TYPES @ingroup BASIC_TYPES
@{ @{
*/ */
/*! /*!
*/ */
typedef kmp_int32 (*kmp_routine_entry_t)(kmp_int32, void *); typedef kmp_int32 (*kmp_routine_entry_t)(kmp_int32, void *);
#if OMP_40_ENABLED || OMP_45_ENABLED
typedef union kmp_cmplrdata { typedef union kmp_cmplrdata {
#if OMP_45_ENABLED
kmp_int32 priority; /**< priority specified by user for the task */ kmp_int32 priority; /**< priority specified by user for the task */
#endif // OMP_45_ENABLED
#if OMP_40_ENABLED
kmp_routine_entry_t kmp_routine_entry_t
destructors; /* pointer to function to invoke deconstructors of destructors; /* pointer to function to invoke deconstructors of
firstprivate C++ objects */ firstprivate C++ objects */
#endif // OMP_40_ENABLED
/* future data */ /* future data */
} kmp_cmplrdata_t; } kmp_cmplrdata_t;
#endif
/* sizeof_kmp_task_t passed as arg to kmpc_omp_task call */ /* sizeof_kmp_task_t passed as arg to kmpc_omp_task call */
/*! /*!
*/ */
typedef struct kmp_task { /* GEH: Shouldn't this be aligned somehow? */ typedef struct kmp_task { /* GEH: Shouldn't this be aligned somehow? */
void *shareds; /**< pointer to block of pointers to shared vars */ void *shareds; /**< pointer to block of pointers to shared vars */
kmp_routine_entry_t kmp_routine_entry_t
routine; /**< pointer to routine to call for executing task */ routine; /**< pointer to routine to call for executing task */
kmp_int32 part_id; /**< part id for the task */ kmp_int32 part_id; /**< part id for the task */
#if OMP_40_ENABLED || OMP_45_ENABLED
kmp_cmplrdata_t kmp_cmplrdata_t
data1; /* Two known optional additions: destructors and priority */ data1; /* Two known optional additions: destructors and priority */
kmp_cmplrdata_t data2; /* Process destructors first, priority second */ kmp_cmplrdata_t data2; /* Process destructors first, priority second */
/* future data */ /* future data */
#endif
/* private vars */ /* private vars */
} kmp_task_t; } kmp_task_t;
/*! /*!
@} @}
*/ */
#if OMP_40_ENABLED
typedef struct kmp_taskgroup { typedef struct kmp_taskgroup {
std::atomic<kmp_int32> count; // number of allocated and incomplete tasks std::atomic<kmp_int32> count; // number of allocated and incomplete tasks
std::atomic<kmp_int32> std::atomic<kmp_int32>
cancel_request; // request for cancellation of this taskgroup cancel_request; // request for cancellation of this taskgroup
struct kmp_taskgroup *parent; // parent taskgroup struct kmp_taskgroup *parent; // parent taskgroup
#if OMP_50_ENABLED
// Block of data to perform task reduction // Block of data to perform task reduction
void *reduce_data; // reduction related info void *reduce_data; // reduction related info
kmp_int32 reduce_num_data; // number of data items to reduce kmp_int32 reduce_num_data; // number of data items to reduce
#endif
} kmp_taskgroup_t; } kmp_taskgroup_t;
// forward declarations // forward declarations
typedef union kmp_depnode kmp_depnode_t; typedef union kmp_depnode kmp_depnode_t;
typedef struct kmp_depnode_list kmp_depnode_list_t; typedef struct kmp_depnode_list kmp_depnode_list_t;
typedef struct kmp_dephash_entry kmp_dephash_entry_t; typedef struct kmp_dephash_entry kmp_dephash_entry_t;
// Compiler sends us this info: // Compiler sends us this info:
▲ Show 20 Lines • Show All 49 Lines • ▼ Show 20 Linestypedef struct kmp_dephash {
kmp_dephash_entry_t **buckets; kmp_dephash_entry_t **buckets;
size_t size; size_t size;
#ifdef KMP_DEBUG #ifdef KMP_DEBUG
kmp_uint32 nelements; kmp_uint32 nelements;
kmp_uint32 nconflicts; kmp_uint32 nconflicts;
#endif #endif
} kmp_dephash_t; } kmp_dephash_t;
#if OMP_50_ENABLED
typedef struct kmp_task_affinity_info { typedef struct kmp_task_affinity_info {
kmp_intptr_t base_addr; kmp_intptr_t base_addr;
size_t len; size_t len;
struct { struct {
bool flag1 : 1; bool flag1 : 1;
bool flag2 : 1; bool flag2 : 1;
kmp_int32 reserved : 30; kmp_int32 reserved : 30;
} flags; } flags;
} kmp_task_affinity_info_t; } kmp_task_affinity_info_t;
typedef enum kmp_event_type_t { typedef enum kmp_event_type_t {
KMP_EVENT_UNINITIALIZED = 0, KMP_EVENT_UNINITIALIZED = 0,
KMP_EVENT_ALLOW_COMPLETION = 1 KMP_EVENT_ALLOW_COMPLETION = 1
} kmp_event_type_t; } kmp_event_type_t;
typedef struct { typedef struct {
kmp_event_type_t type; kmp_event_type_t type;
kmp_tas_lock_t lock; kmp_tas_lock_t lock;
union { union {
kmp_task_t *task; kmp_task_t *task;
} ed; } ed;
} kmp_event_t; } kmp_event_t;
#endif
#endif
#ifdef BUILD_TIED_TASK_STACK #ifdef BUILD_TIED_TASK_STACK
/* Tied Task stack definitions */ /* Tied Task stack definitions */
typedef struct kmp_stack_block { typedef struct kmp_stack_block {
kmp_taskdata_t *sb_block[TASK_STACK_BLOCK_SIZE]; kmp_taskdata_t *sb_block[TASK_STACK_BLOCK_SIZE];
struct kmp_stack_block *sb_next; struct kmp_stack_block *sb_next;
struct kmp_stack_block *sb_prev; struct kmp_stack_block *sb_prev;
} kmp_stack_block_t; } kmp_stack_block_t;
typedef struct kmp_task_stack { typedef struct kmp_task_stack {
kmp_stack_block_t ts_first_block; // first block of stack entries kmp_stack_block_t ts_first_block; // first block of stack entries
kmp_taskdata_t **ts_top; // pointer to the top of stack kmp_taskdata_t **ts_top; // pointer to the top of stack
kmp_int32 ts_entries; // number of entries on the stack kmp_int32 ts_entries; // number of entries on the stack
} kmp_task_stack_t; } kmp_task_stack_t;
#endif // BUILD_TIED_TASK_STACK #endif // BUILD_TIED_TASK_STACK
typedef struct kmp_tasking_flags { /* Total struct must be exactly 32 bits */ typedef struct kmp_tasking_flags { /* Total struct must be exactly 32 bits */
/* Compiler flags */ /* Total compiler flags must be 16 bits */ /* Compiler flags */ /* Total compiler flags must be 16 bits */
unsigned tiedness : 1; /* task is either tied (1) or untied (0) */ unsigned tiedness : 1; /* task is either tied (1) or untied (0) */
unsigned final : 1; /* task is final(1) so execute immediately */ unsigned final : 1; /* task is final(1) so execute immediately */
unsigned merged_if0 : 1; /* no __kmpc_task_{begin/complete}_if0 calls in if0 unsigned merged_if0 : 1; /* no __kmpc_task_{begin/complete}_if0 calls in if0
code path */ code path */
#if OMP_40_ENABLED
unsigned destructors_thunk : 1; /* set if the compiler creates a thunk to unsigned destructors_thunk : 1; /* set if the compiler creates a thunk to
invoke destructors from the runtime */ invoke destructors from the runtime */
#if OMP_45_ENABLED
unsigned proxy : 1; /* task is a proxy task (it will be executed outside the unsigned proxy : 1; /* task is a proxy task (it will be executed outside the
context of the RTL) */ context of the RTL) */
unsigned priority_specified : 1; /* set if the compiler provides priority unsigned priority_specified : 1; /* set if the compiler provides priority
setting for the task */ setting for the task */
unsigned detachable : 1; /* 1 == can detach */ unsigned detachable : 1; /* 1 == can detach */
unsigned reserved : 9; /* reserved for compiler use */ unsigned reserved : 9; /* reserved for compiler use */
#else
unsigned reserved : 12; /* reserved for compiler use */
#endif
#else // OMP_40_ENABLED
unsigned reserved : 13; /* reserved for compiler use */
#endif // OMP_40_ENABLED
/* Library flags */ /* Total library flags must be 16 bits */ /* Library flags */ /* Total library flags must be 16 bits */
unsigned tasktype : 1; /* task is either explicit(1) or implicit (0) */ unsigned tasktype : 1; /* task is either explicit(1) or implicit (0) */
unsigned task_serial : 1; // task is executed immediately (1) or deferred (0) unsigned task_serial : 1; // task is executed immediately (1) or deferred (0)
unsigned tasking_ser : 1; // all tasks in team are either executed immediately unsigned tasking_ser : 1; // all tasks in team are either executed immediately
// (1) or may be deferred (0) // (1) or may be deferred (0)
unsigned team_serial : 1; // entire team is serial (1) [1 thread] or parallel unsigned team_serial : 1; // entire team is serial (1) [1 thread] or parallel
// (0) [>= 2 threads] // (0) [>= 2 threads]
Show All 24 Linesstruct kmp_taskdata { /* aligned during dynamic allocation */
kmp_int32 td_taskwait_thread; /* gtid + 1 of thread encountered taskwait */ kmp_int32 td_taskwait_thread; /* gtid + 1 of thread encountered taskwait */
KMP_ALIGN_CACHE kmp_internal_control_t KMP_ALIGN_CACHE kmp_internal_control_t
td_icvs; /* Internal control variables for the task */ td_icvs; /* Internal control variables for the task */
KMP_ALIGN_CACHE std::atomic<kmp_int32> KMP_ALIGN_CACHE std::atomic<kmp_int32>
td_allocated_child_tasks; /* Child tasks (+ current task) not yet td_allocated_child_tasks; /* Child tasks (+ current task) not yet
deallocated */ deallocated */
std::atomic<kmp_int32> std::atomic<kmp_int32>
td_incomplete_child_tasks; /* Child tasks not yet complete */ td_incomplete_child_tasks; /* Child tasks not yet complete */
#if OMP_40_ENABLED
kmp_taskgroup_t kmp_taskgroup_t
*td_taskgroup; // Each task keeps pointer to its current taskgroup *td_taskgroup; // Each task keeps pointer to its current taskgroup
kmp_dephash_t kmp_dephash_t
*td_dephash; // Dependencies for children tasks are tracked from here *td_dephash; // Dependencies for children tasks are tracked from here
kmp_depnode_t kmp_depnode_t
*td_depnode; // Pointer to graph node if this task has dependencies *td_depnode; // Pointer to graph node if this task has dependencies
#endif // OMP_40_ENABLED
#if OMP_45_ENABLED
kmp_task_team_t *td_task_team; kmp_task_team_t *td_task_team;
kmp_int32 td_size_alloc; // The size of task structure, including shareds etc. kmp_int32 td_size_alloc; // The size of task structure, including shareds etc.
#if defined(KMP_GOMP_COMPAT) #if defined(KMP_GOMP_COMPAT)
// 4 or 8 byte integers for the loop bounds in GOMP_taskloop // 4 or 8 byte integers for the loop bounds in GOMP_taskloop
kmp_int32 td_size_loop_bounds; kmp_int32 td_size_loop_bounds;
#endif #endif
#endif // OMP_45_ENABLED
kmp_taskdata_t *td_last_tied; // keep tied task for task scheduling constraint kmp_taskdata_t *td_last_tied; // keep tied task for task scheduling constraint
#if defined(KMP_GOMP_COMPAT) && OMP_45_ENABLED #if defined(KMP_GOMP_COMPAT)
// GOMP sends in a copy function for copy constructors // GOMP sends in a copy function for copy constructors
void (*td_copy_func)(void *, void *); void (*td_copy_func)(void *, void *);
#endif #endif
#if OMP_50_ENABLED
kmp_event_t td_allow_completion_event; kmp_event_t td_allow_completion_event;
#endif
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_task_info_t ompt_task_info; ompt_task_info_t ompt_task_info;
#endif #endif
}; // struct kmp_taskdata }; // struct kmp_taskdata
// Make sure padding above worked // Make sure padding above worked
KMP_BUILD_ASSERT(sizeof(kmp_taskdata_t) % sizeof(void *) == 0); KMP_BUILD_ASSERT(sizeof(kmp_taskdata_t) % sizeof(void *) == 0);
Show All 37 Linestypedef struct kmp_base_task_team {
kmp_task_team_t *tt_next; /* For linking the task team free list */ kmp_task_team_t *tt_next; /* For linking the task team free list */
kmp_thread_data_t kmp_thread_data_t
*tt_threads_data; /* Array of per-thread structures for task team */ *tt_threads_data; /* Array of per-thread structures for task team */
/* Data survives task team deallocation */ /* Data survives task team deallocation */
kmp_int32 tt_found_tasks; /* Have we found tasks and queued them while kmp_int32 tt_found_tasks; /* Have we found tasks and queued them while
executing this team? */ executing this team? */
/* TRUE means tt_threads_data is set up and initialized */ /* TRUE means tt_threads_data is set up and initialized */
kmp_int32 tt_nproc; /* #threads in team */ kmp_int32 tt_nproc; /* #threads in team */
kmp_int32 kmp_int32 tt_max_threads; // # entries allocated for threads_data array
tt_max_threads; /* number of entries allocated for threads_data array */ kmp_int32 tt_found_proxy_tasks; // found proxy tasks since last barrier
#if OMP_45_ENABLED
kmp_int32
tt_found_proxy_tasks; /* Have we found proxy tasks since last barrier */
#endif
kmp_int32 tt_untied_task_encountered; kmp_int32 tt_untied_task_encountered;
KMP_ALIGN_CACHE KMP_ALIGN_CACHE
std::atomic<kmp_int32> tt_unfinished_threads; /* #threads still active */ std::atomic<kmp_int32> tt_unfinished_threads; /* #threads still active */
KMP_ALIGN_CACHE KMP_ALIGN_CACHE
volatile kmp_uint32 volatile kmp_uint32
tt_active; /* is the team still actively executing tasks */ tt_active; /* is the team still actively executing tasks */
Show All 19 Lines
#if KMP_NESTED_HOT_TEAMS #if KMP_NESTED_HOT_TEAMS
// Hot teams array keeps hot teams and their sizes for given thread. Hot teams // Hot teams array keeps hot teams and their sizes for given thread. Hot teams
// are not put in teams pool, and they don't put threads in threads pool. // are not put in teams pool, and they don't put threads in threads pool.
typedef struct kmp_hot_team_ptr { typedef struct kmp_hot_team_ptr {
kmp_team_p *hot_team; // pointer to hot_team of given nesting level kmp_team_p *hot_team; // pointer to hot_team of given nesting level
kmp_int32 hot_team_nth; // number of threads allocated for the hot_team kmp_int32 hot_team_nth; // number of threads allocated for the hot_team
} kmp_hot_team_ptr_t; } kmp_hot_team_ptr_t;
#endif #endif
#if OMP_40_ENABLED
typedef struct kmp_teams_size { typedef struct kmp_teams_size {
kmp_int32 nteams; // number of teams in a league kmp_int32 nteams; // number of teams in a league
kmp_int32 nth; // number of threads in each team of the league kmp_int32 nth; // number of threads in each team of the league
} kmp_teams_size_t; } kmp_teams_size_t;
#endif
// This struct stores a thread that acts as a "root" for a contention // This struct stores a thread that acts as a "root" for a contention
// group. Contention groups are rooted at kmp_root threads, but also at // group. Contention groups are rooted at kmp_root threads, but also at
// each master thread of each team created in the teams construct. // each master thread of each team created in the teams construct.
// This struct therefore also stores a thread_limit associated with // This struct therefore also stores a thread_limit associated with
// that contention group, and a counter to track the number of threads // that contention group, and a counter to track the number of threads
// active in that contention group. Each thread has a list of these: CG // active in that contention group. Each thread has a list of these: CG
// root threads have an entry in their list in which cg_root refers to // root threads have an entry in their list in which cg_root refers to
Show All 23 Linestypedef struct KMP_ALIGN_CACHE kmp_base_info {
kmp_disp_t *th_dispatch; /* thread's dispatch data */ kmp_disp_t *th_dispatch; /* thread's dispatch data */
int th_in_pool; /* in thread pool (32 bits for TCR/TCW) */ int th_in_pool; /* in thread pool (32 bits for TCR/TCW) */
/* The following are cached from the team info structure */ /* The following are cached from the team info structure */
/* TODO use these in more places as determined to be needed via profiling */ /* TODO use these in more places as determined to be needed via profiling */
int th_team_nproc; /* number of threads in a team */ int th_team_nproc; /* number of threads in a team */
kmp_info_p *th_team_master; /* the team's master thread */ kmp_info_p *th_team_master; /* the team's master thread */
int th_team_serialized; /* team is serialized */ int th_team_serialized; /* team is serialized */
#if OMP_40_ENABLED
microtask_t th_teams_microtask; /* save entry address for teams construct */ microtask_t th_teams_microtask; /* save entry address for teams construct */
int th_teams_level; /* save initial level of teams construct */ int th_teams_level; /* save initial level of teams construct */
/* it is 0 on device but may be any on host */ /* it is 0 on device but may be any on host */
#endif
/* The blocktime info is copied from the team struct to the thread sruct */ /* The blocktime info is copied from the team struct to the thread sruct */
/* at the start of a barrier, and the values stored in the team are used */ /* at the start of a barrier, and the values stored in the team are used */
/* at points in the code where the team struct is no longer guaranteed */ /* at points in the code where the team struct is no longer guaranteed */
/* to exist (from the POV of worker threads). */ /* to exist (from the POV of worker threads). */
#if KMP_USE_MONITOR #if KMP_USE_MONITOR
int th_team_bt_intervals; int th_team_bt_intervals;
int th_team_bt_set; int th_team_bt_set;
#else #else
kmp_uint64 th_team_bt_intervals; kmp_uint64 th_team_bt_intervals;
#endif #endif
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
kmp_affin_mask_t *th_affin_mask; /* thread's current affinity mask */ kmp_affin_mask_t *th_affin_mask; /* thread's current affinity mask */
#endif #endif
#if OMP_50_ENABLED
omp_allocator_handle_t th_def_allocator; /* default allocator */ omp_allocator_handle_t th_def_allocator; /* default allocator */
#endif
/* The data set by the master at reinit, then R/W by the worker */ /* The data set by the master at reinit, then R/W by the worker */
KMP_ALIGN_CACHE int KMP_ALIGN_CACHE int
th_set_nproc; /* if > 0, then only use this request for the next fork */ th_set_nproc; /* if > 0, then only use this request for the next fork */
#if KMP_NESTED_HOT_TEAMS #if KMP_NESTED_HOT_TEAMS
kmp_hot_team_ptr_t *th_hot_teams; /* array of hot teams */ kmp_hot_team_ptr_t *th_hot_teams; /* array of hot teams */
#endif #endif
#if OMP_40_ENABLED
kmp_proc_bind_t kmp_proc_bind_t
th_set_proc_bind; /* if != proc_bind_default, use request for next fork */ th_set_proc_bind; /* if != proc_bind_default, use request for next fork */
kmp_teams_size_t kmp_teams_size_t
th_teams_size; /* number of teams/threads in teams construct */ th_teams_size; /* number of teams/threads in teams construct */
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
int th_current_place; /* place currently bound to */ int th_current_place; /* place currently bound to */
int th_new_place; /* place to bind to in par reg */ int th_new_place; /* place to bind to in par reg */
int th_first_place; /* first place in partition */ int th_first_place; /* first place in partition */
int th_last_place; /* last place in partition */ int th_last_place; /* last place in partition */
#endif #endif
#endif
#if OMP_50_ENABLED
int th_prev_level; /* previous level for affinity format */ int th_prev_level; /* previous level for affinity format */
int th_prev_num_threads; /* previous num_threads for affinity format */ int th_prev_num_threads; /* previous num_threads for affinity format */
#endif
#if USE_ITT_BUILD #if USE_ITT_BUILD
kmp_uint64 th_bar_arrive_time; /* arrival to barrier timestamp */ kmp_uint64 th_bar_arrive_time; /* arrival to barrier timestamp */
kmp_uint64 th_bar_min_time; /* minimum arrival time at the barrier */ kmp_uint64 th_bar_min_time; /* minimum arrival time at the barrier */
kmp_uint64 th_frame_time; /* frame timestamp */ kmp_uint64 th_frame_time; /* frame timestamp */
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
kmp_local_t th_local; kmp_local_t th_local;
struct private_common *th_pri_head; struct private_common *th_pri_head;
▲ Show 20 Lines • Show All 137 Lines • ▼ Show 20 Linestypedef struct KMP_ALIGN_CACHE kmp_base_team {
int t_master_this_cons; // "this_construct" single counter of master in parent int t_master_this_cons; // "this_construct" single counter of master in parent
// team // team
ident_t *t_ident; // if volatile, have to change too much other crud to ident_t *t_ident; // if volatile, have to change too much other crud to
// volatile too // volatile too
kmp_team_p *t_parent; // parent team kmp_team_p *t_parent; // parent team
kmp_team_p *t_next_pool; // next free team in the team pool kmp_team_p *t_next_pool; // next free team in the team pool
kmp_disp_t *t_dispatch; // thread's dispatch data kmp_disp_t *t_dispatch; // thread's dispatch data
kmp_task_team_t *t_task_team[2]; // Task team struct; switch between 2 kmp_task_team_t *t_task_team[2]; // Task team struct; switch between 2
#if OMP_40_ENABLED
kmp_proc_bind_t t_proc_bind; // bind type for par region kmp_proc_bind_t t_proc_bind; // bind type for par region
#endif // OMP_40_ENABLED
#if USE_ITT_BUILD #if USE_ITT_BUILD
kmp_uint64 t_region_time; // region begin timestamp kmp_uint64 t_region_time; // region begin timestamp
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
// Master write, workers read // Master write, workers read
// -------------------------------------------------------------------------- // --------------------------------------------------------------------------
KMP_ALIGN_CACHE void **t_argv; KMP_ALIGN_CACHE void **t_argv;
int t_argc; int t_argc;
Show All 22 Lines#endif /* KMP_ARCH_X86 || KMP_ARCH_X86_64 */
KMP_ALIGN_CACHE int t_max_argc; KMP_ALIGN_CACHE int t_max_argc;
int t_max_nproc; // max threads this team can handle (dynamicly expandable) int t_max_nproc; // max threads this team can handle (dynamicly expandable)
int t_serialized; // levels deep of serialized teams int t_serialized; // levels deep of serialized teams
dispatch_shared_info_t *t_disp_buffer; // buffers for dispatch system dispatch_shared_info_t *t_disp_buffer; // buffers for dispatch system
int t_id; // team's id, assigned by debugger. int t_id; // team's id, assigned by debugger.
int t_active_level; // nested active parallel level int t_active_level; // nested active parallel level
kmp_r_sched_t t_sched; // run-time schedule for the team kmp_r_sched_t t_sched; // run-time schedule for the team
#if OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
int t_first_place; // first & last place in parent thread's partition. int t_first_place; // first & last place in parent thread's partition.
int t_last_place; // Restore these values to master after par region. int t_last_place; // Restore these values to master after par region.
#endif // OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED #endif // KMP_AFFINITY_SUPPORTED
#if OMP_50_ENABLED
int t_display_affinity; int t_display_affinity;
#endif
int t_size_changed; // team size was changed?: 0: no, 1: yes, -1: changed via int t_size_changed; // team size was changed?: 0: no, 1: yes, -1: changed via
// omp_set_num_threads() call // omp_set_num_threads() call
#if OMP_50_ENABLED
omp_allocator_handle_t t_def_allocator; /* default allocator */ omp_allocator_handle_t t_def_allocator; /* default allocator */
#endif
// Read/write by workers as well // Read/write by workers as well
#if (KMP_ARCH_X86 || KMP_ARCH_X86_64) #if (KMP_ARCH_X86 || KMP_ARCH_X86_64)
// Using CACHE_LINE=64 reduces memory footprint, but causes a big perf // Using CACHE_LINE=64 reduces memory footprint, but causes a big perf
// regression of epcc 'parallel' and 'barrier' on fxe256lin01. This extra // regression of epcc 'parallel' and 'barrier' on fxe256lin01. This extra
// padding serves to fix the performance of epcc 'parallel' and 'barrier' when // padding serves to fix the performance of epcc 'parallel' and 'barrier' when
// CACHE_LINE=64. TODO: investigate more and get rid if this padding. // CACHE_LINE=64. TODO: investigate more and get rid if this padding.
char dummy_padding[1024]; char dummy_padding[1024];
#endif #endif
// Internal control stack for additional nested teams. // Internal control stack for additional nested teams.
KMP_ALIGN_CACHE kmp_internal_control_t *t_control_stack_top; KMP_ALIGN_CACHE kmp_internal_control_t *t_control_stack_top;
// for SERIALIZED teams nested 2 or more levels deep // for SERIALIZED teams nested 2 or more levels deep
#if OMP_40_ENABLED
// typed flag to store request state of cancellation // typed flag to store request state of cancellation
std::atomic<kmp_int32> t_cancel_request; std::atomic<kmp_int32> t_cancel_request;
#endif
int t_master_active; // save on fork, restore on join int t_master_active; // save on fork, restore on join
void *t_copypriv_data; // team specific pointer to copyprivate data array void *t_copypriv_data; // team specific pointer to copyprivate data array
#if KMP_OS_WINDOWS #if KMP_OS_WINDOWS
std::atomic<kmp_uint32> t_copyin_counter; std::atomic<kmp_uint32> t_copyin_counter;
#endif #endif
#if USE_ITT_BUILD #if USE_ITT_BUILD
void *t_stack_id; // team specific stack stitching id (for ittnotify) void *t_stack_id; // team specific stack stitching id (for ittnotify)
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
▲ Show 20 Lines • Show All 315 Lines • ▼ Show 20 Lines
extern kmp_adaptive_backoff_params_t __kmp_adaptive_backoff_params; extern kmp_adaptive_backoff_params_t __kmp_adaptive_backoff_params;
#if KMP_DEBUG_ADAPTIVE_LOCKS #if KMP_DEBUG_ADAPTIVE_LOCKS
extern const char *__kmp_speculative_statsfile; extern const char *__kmp_speculative_statsfile;
#endif #endif
#endif // KMP_USE_ADAPTIVE_LOCKS #endif // KMP_USE_ADAPTIVE_LOCKS
#if OMP_40_ENABLED
extern int __kmp_display_env; /* TRUE or FALSE */ extern int __kmp_display_env; /* TRUE or FALSE */
extern int __kmp_display_env_verbose; /* TRUE if OMP_DISPLAY_ENV=VERBOSE */ extern int __kmp_display_env_verbose; /* TRUE if OMP_DISPLAY_ENV=VERBOSE */
extern int __kmp_omp_cancellation; /* TRUE or FALSE */ extern int __kmp_omp_cancellation; /* TRUE or FALSE */
#endif
/* ------------------------------------------------------------------------- */ /* ------------------------------------------------------------------------- */
/* the following are protected by the fork/join lock */ /* the following are protected by the fork/join lock */
/* write: lock read: anytime */ /* write: lock read: anytime */
extern kmp_info_t **__kmp_threads; /* Descriptors for the threads */ extern kmp_info_t **__kmp_threads; /* Descriptors for the threads */
/* read/write: lock */ /* read/write: lock */
extern volatile kmp_team_t *__kmp_team_pool; extern volatile kmp_team_t *__kmp_team_pool;
▲ Show 20 Lines • Show All 176 Lines • ▼ Show 20 Lines
#define KMP_INTERNAL_MALLOC(sz) malloc(sz) #define KMP_INTERNAL_MALLOC(sz) malloc(sz)
#define KMP_INTERNAL_FREE(p) free(p) #define KMP_INTERNAL_FREE(p) free(p)
#define KMP_INTERNAL_REALLOC(p, sz) realloc((p), (sz)) #define KMP_INTERNAL_REALLOC(p, sz) realloc((p), (sz))
#define KMP_INTERNAL_CALLOC(n, sz) calloc((n), (sz)) #define KMP_INTERNAL_CALLOC(n, sz) calloc((n), (sz))
extern void __kmp_push_num_threads(ident_t *loc, int gtid, int num_threads); extern void __kmp_push_num_threads(ident_t *loc, int gtid, int num_threads);
#if OMP_40_ENABLED
extern void __kmp_push_proc_bind(ident_t *loc, int gtid, extern void __kmp_push_proc_bind(ident_t *loc, int gtid,
kmp_proc_bind_t proc_bind); kmp_proc_bind_t proc_bind);
extern void __kmp_push_num_teams(ident_t *loc, int gtid, int num_teams, extern void __kmp_push_num_teams(ident_t *loc, int gtid, int num_teams,
int num_threads); int num_threads);
#endif
extern void __kmp_yield(); extern void __kmp_yield();
extern void __kmpc_dispatch_init_4(ident_t *loc, kmp_int32 gtid, extern void __kmpc_dispatch_init_4(ident_t *loc, kmp_int32 gtid,
enum sched_type schedule, kmp_int32 lb, enum sched_type schedule, kmp_int32 lb,
kmp_int32 ub, kmp_int32 st, kmp_int32 chunk); kmp_int32 ub, kmp_int32 st, kmp_int32 chunk);
extern void __kmpc_dispatch_init_4u(ident_t *loc, kmp_int32 gtid, extern void __kmpc_dispatch_init_4u(ident_t *loc, kmp_int32 gtid,
enum sched_type schedule, kmp_uint32 lb, enum sched_type schedule, kmp_uint32 lb,
▲ Show 20 Lines • Show All 104 Lines • ▼ Show 20 Lines
extern char *__kmp_affinity_print_mask(char *buf, int buf_len, extern char *__kmp_affinity_print_mask(char *buf, int buf_len,
kmp_affin_mask_t *mask); kmp_affin_mask_t *mask);
extern kmp_str_buf_t *__kmp_affinity_str_buf_mask(kmp_str_buf_t *buf, extern kmp_str_buf_t *__kmp_affinity_str_buf_mask(kmp_str_buf_t *buf,
kmp_affin_mask_t *mask); kmp_affin_mask_t *mask);
extern void __kmp_affinity_initialize(void); extern void __kmp_affinity_initialize(void);
extern void __kmp_affinity_uninitialize(void); extern void __kmp_affinity_uninitialize(void);
extern void __kmp_affinity_set_init_mask( extern void __kmp_affinity_set_init_mask(
int gtid, int isa_root); /* set affinity according to KMP_AFFINITY */ int gtid, int isa_root); /* set affinity according to KMP_AFFINITY */
#if OMP_40_ENABLED
extern void __kmp_affinity_set_place(int gtid); extern void __kmp_affinity_set_place(int gtid);
#endif
extern void __kmp_affinity_determine_capable(const char *env_var); extern void __kmp_affinity_determine_capable(const char *env_var);
extern int __kmp_aux_set_affinity(void **mask); extern int __kmp_aux_set_affinity(void **mask);
extern int __kmp_aux_get_affinity(void **mask); extern int __kmp_aux_get_affinity(void **mask);
extern int __kmp_aux_get_affinity_max_proc(); extern int __kmp_aux_get_affinity_max_proc();
extern int __kmp_aux_set_affinity_mask_proc(int proc, void **mask); extern int __kmp_aux_set_affinity_mask_proc(int proc, void **mask);
extern int __kmp_aux_unset_affinity_mask_proc(int proc, void **mask); extern int __kmp_aux_unset_affinity_mask_proc(int proc, void **mask);
extern int __kmp_aux_get_affinity_mask_proc(int proc, void **mask); extern int __kmp_aux_get_affinity_mask_proc(int proc, void **mask);
extern void __kmp_balanced_affinity(kmp_info_t *th, int team_size); extern void __kmp_balanced_affinity(kmp_info_t *th, int team_size);
#if KMP_OS_LINUX #if KMP_OS_LINUX
extern int kmp_set_thread_affinity_mask_initial(void); extern int kmp_set_thread_affinity_mask_initial(void);
#endif #endif
#endif /* KMP_AFFINITY_SUPPORTED */ #endif /* KMP_AFFINITY_SUPPORTED */
#if OMP_50_ENABLED
// No need for KMP_AFFINITY_SUPPORTED guard as only one field in the // No need for KMP_AFFINITY_SUPPORTED guard as only one field in the
// format string is for affinity, so platforms that do not support // format string is for affinity, so platforms that do not support
// affinity can still use the other fields, e.g., %n for num_threads // affinity can still use the other fields, e.g., %n for num_threads
extern size_t __kmp_aux_capture_affinity(int gtid, const char *format, extern size_t __kmp_aux_capture_affinity(int gtid, const char *format,
kmp_str_buf_t *buffer); kmp_str_buf_t *buffer);
extern void __kmp_aux_display_affinity(int gtid, const char *format); extern void __kmp_aux_display_affinity(int gtid, const char *format);
#endif
extern void __kmp_cleanup_hierarchy(); extern void __kmp_cleanup_hierarchy();
extern void __kmp_get_hierarchy(kmp_uint32 nproc, kmp_bstate_t *thr_bar); extern void __kmp_get_hierarchy(kmp_uint32 nproc, kmp_bstate_t *thr_bar);
#if KMP_USE_FUTEX #if KMP_USE_FUTEX
extern int __kmp_futex_determine_capable(void); extern int __kmp_futex_determine_capable(void);
▲ Show 20 Lines • Show All 53 Lines • ▼ Show 20 Lines
extern void __kmp_register_atfork(void); extern void __kmp_register_atfork(void);
#endif #endif
extern void __kmp_suspend_initialize(void); extern void __kmp_suspend_initialize(void);
extern void __kmp_suspend_initialize_thread(kmp_info_t *th); extern void __kmp_suspend_initialize_thread(kmp_info_t *th);
extern void __kmp_suspend_uninitialize_thread(kmp_info_t *th); extern void __kmp_suspend_uninitialize_thread(kmp_info_t *th);
extern kmp_info_t *__kmp_allocate_thread(kmp_root_t *root, kmp_team_t *team, extern kmp_info_t *__kmp_allocate_thread(kmp_root_t *root, kmp_team_t *team,
int tid); int tid);
#if OMP_40_ENABLED
extern kmp_team_t * extern kmp_team_t *
__kmp_allocate_team(kmp_root_t *root, int new_nproc, int max_nproc, __kmp_allocate_team(kmp_root_t *root, int new_nproc, int max_nproc,
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_data_t ompt_parallel_data, ompt_data_t ompt_parallel_data,
#endif #endif
kmp_proc_bind_t proc_bind, kmp_internal_control_t *new_icvs, kmp_proc_bind_t proc_bind, kmp_internal_control_t *new_icvs,
int argc USE_NESTED_HOT_ARG(kmp_info_t *thr)); int argc USE_NESTED_HOT_ARG(kmp_info_t *thr));
#else
extern kmp_team_t *
__kmp_allocate_team(kmp_root_t *root, int new_nproc, int max_nproc,
#if OMPT_SUPPORT
ompt_id_t ompt_parallel_id,
#endif
kmp_internal_control_t *new_icvs,
int argc USE_NESTED_HOT_ARG(kmp_info_t *thr));
#endif // OMP_40_ENABLED
extern void __kmp_free_thread(kmp_info_t *); extern void __kmp_free_thread(kmp_info_t *);
extern void __kmp_free_team(kmp_root_t *, extern void __kmp_free_team(kmp_root_t *,
kmp_team_t *USE_NESTED_HOT_ARG(kmp_info_t *)); kmp_team_t *USE_NESTED_HOT_ARG(kmp_info_t *));
extern kmp_team_t *__kmp_reap_team(kmp_team_t *); extern kmp_team_t *__kmp_reap_team(kmp_team_t *);
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
extern void __kmp_initialize_bget(kmp_info_t *th); extern void __kmp_initialize_bget(kmp_info_t *th);
Show All 34 Lines
#endif #endif
); );
extern void __kmp_join_call(ident_t *loc, int gtid extern void __kmp_join_call(ident_t *loc, int gtid
#if OMPT_SUPPORT #if OMPT_SUPPORT
, ,
enum fork_context_e fork_context enum fork_context_e fork_context
#endif #endif
#if OMP_40_ENABLED
, ,
int exit_teams = 0 int exit_teams = 0);
#endif
);
extern void __kmp_serialized_parallel(ident_t *id, kmp_int32 gtid); extern void __kmp_serialized_parallel(ident_t *id, kmp_int32 gtid);
extern void __kmp_internal_fork(ident_t *id, int gtid, kmp_team_t *team); extern void __kmp_internal_fork(ident_t *id, int gtid, kmp_team_t *team);
extern void __kmp_internal_join(ident_t *id, int gtid, kmp_team_t *team); extern void __kmp_internal_join(ident_t *id, int gtid, kmp_team_t *team);
extern int __kmp_invoke_task_func(int gtid); extern int __kmp_invoke_task_func(int gtid);
extern void __kmp_run_before_invoked_task(int gtid, int tid, extern void __kmp_run_before_invoked_task(int gtid, int tid,
kmp_info_t *this_thr, kmp_info_t *this_thr,
kmp_team_t *team); kmp_team_t *team);
extern void __kmp_run_after_invoked_task(int gtid, int tid, extern void __kmp_run_after_invoked_task(int gtid, int tid,
kmp_info_t *this_thr, kmp_info_t *this_thr,
kmp_team_t *team); kmp_team_t *team);
// should never have been exported // should never have been exported
KMP_EXPORT int __kmpc_invoke_task_func(int gtid); KMP_EXPORT int __kmpc_invoke_task_func(int gtid);
#if OMP_40_ENABLED
extern int __kmp_invoke_teams_master(int gtid); extern int __kmp_invoke_teams_master(int gtid);
extern void __kmp_teams_master(int gtid); extern void __kmp_teams_master(int gtid);
extern int __kmp_aux_get_team_num(); extern int __kmp_aux_get_team_num();
extern int __kmp_aux_get_num_teams(); extern int __kmp_aux_get_num_teams();
#endif
extern void __kmp_save_internal_controls(kmp_info_t *thread); extern void __kmp_save_internal_controls(kmp_info_t *thread);
extern void __kmp_user_set_library(enum library_type arg); extern void __kmp_user_set_library(enum library_type arg);
extern void __kmp_aux_set_library(enum library_type arg); extern void __kmp_aux_set_library(enum library_type arg);
extern void __kmp_aux_set_stacksize(size_t arg); extern void __kmp_aux_set_stacksize(size_t arg);
extern void __kmp_aux_set_blocktime(int arg, kmp_info_t *thread, int tid); extern void __kmp_aux_set_blocktime(int arg, kmp_info_t *thread, int tid);
extern void __kmp_aux_set_defaults(char const *str, int len); extern void __kmp_aux_set_defaults(char const *str, int len);
/* Functions called from __kmp_aux_env_initialize() in kmp_settings.cpp */ /* Functions called from __kmp_aux_env_initialize() in kmp_settings.cpp */
Show All 11 Linesextern kmp_task_t *__kmp_task_alloc(ident_t *loc_ref, kmp_int32 gtid,
size_t sizeof_shareds, size_t sizeof_shareds,
kmp_routine_entry_t task_entry); kmp_routine_entry_t task_entry);
extern void __kmp_init_implicit_task(ident_t *loc_ref, kmp_info_t *this_thr, extern void __kmp_init_implicit_task(ident_t *loc_ref, kmp_info_t *this_thr,
kmp_team_t *team, int tid, kmp_team_t *team, int tid,
int set_curr_task); int set_curr_task);
extern void __kmp_finish_implicit_task(kmp_info_t *this_thr); extern void __kmp_finish_implicit_task(kmp_info_t *this_thr);
extern void __kmp_free_implicit_task(kmp_info_t *this_thr); extern void __kmp_free_implicit_task(kmp_info_t *this_thr);
#if OMP_50_ENABLED
extern kmp_event_t *__kmpc_task_allow_completion_event(ident_t *loc_ref, extern kmp_event_t *__kmpc_task_allow_completion_event(ident_t *loc_ref,
int gtid, int gtid,
kmp_task_t *task); kmp_task_t *task);
extern void __kmp_fulfill_event(kmp_event_t *event); extern void __kmp_fulfill_event(kmp_event_t *event);
#endif
int __kmp_execute_tasks_32(kmp_info_t *thread, kmp_int32 gtid, int __kmp_execute_tasks_32(kmp_info_t *thread, kmp_int32 gtid,
kmp_flag_32 *flag, int final_spin, kmp_flag_32 *flag, int final_spin,
int *thread_finished, int *thread_finished,
#if USE_ITT_BUILD #if USE_ITT_BUILD
void *itt_sync_obj, void *itt_sync_obj,
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
kmp_int32 is_constrained); kmp_int32 is_constrained);
▲ Show 20 Lines • Show All 82 Lines • ▼ Show 20 Lines
KMP_EXPORT kmp_int32 __kmpc_master(ident_t *, kmp_int32 global_tid); KMP_EXPORT kmp_int32 __kmpc_master(ident_t *, kmp_int32 global_tid);
KMP_EXPORT void __kmpc_end_master(ident_t *, kmp_int32 global_tid); KMP_EXPORT void __kmpc_end_master(ident_t *, kmp_int32 global_tid);
KMP_EXPORT void __kmpc_ordered(ident_t *, kmp_int32 global_tid); KMP_EXPORT void __kmpc_ordered(ident_t *, kmp_int32 global_tid);
KMP_EXPORT void __kmpc_end_ordered(ident_t *, kmp_int32 global_tid); KMP_EXPORT void __kmpc_end_ordered(ident_t *, kmp_int32 global_tid);
KMP_EXPORT void __kmpc_critical(ident_t *, kmp_int32 global_tid, KMP_EXPORT void __kmpc_critical(ident_t *, kmp_int32 global_tid,
kmp_critical_name *); kmp_critical_name *);
KMP_EXPORT void __kmpc_end_critical(ident_t *, kmp_int32 global_tid, KMP_EXPORT void __kmpc_end_critical(ident_t *, kmp_int32 global_tid,
kmp_critical_name *); kmp_critical_name *);
#if OMP_45_ENABLED
KMP_EXPORT void __kmpc_critical_with_hint(ident_t *, kmp_int32 global_tid, KMP_EXPORT void __kmpc_critical_with_hint(ident_t *, kmp_int32 global_tid,
kmp_critical_name *, uint32_t hint); kmp_critical_name *, uint32_t hint);
#endif
KMP_EXPORT kmp_int32 __kmpc_barrier_master(ident_t *, kmp_int32 global_tid); KMP_EXPORT kmp_int32 __kmpc_barrier_master(ident_t *, kmp_int32 global_tid);
KMP_EXPORT void __kmpc_end_barrier_master(ident_t *, kmp_int32 global_tid); KMP_EXPORT void __kmpc_end_barrier_master(ident_t *, kmp_int32 global_tid);
KMP_EXPORT kmp_int32 __kmpc_barrier_master_nowait(ident_t *, KMP_EXPORT kmp_int32 __kmpc_barrier_master_nowait(ident_t *,
kmp_int32 global_tid); kmp_int32 global_tid);
KMP_EXPORT kmp_int32 __kmpc_single(ident_t *, kmp_int32 global_tid); KMP_EXPORT kmp_int32 __kmpc_single(ident_t *, kmp_int32 global_tid);
▲ Show 20 Lines • Show All 44 Lines • ▼ Show 20 Lines
#if TASK_UNUSED #if TASK_UNUSED
void __kmpc_omp_task_begin(ident_t *loc_ref, kmp_int32 gtid, kmp_task_t *task); void __kmpc_omp_task_begin(ident_t *loc_ref, kmp_int32 gtid, kmp_task_t *task);
void __kmpc_omp_task_complete(ident_t *loc_ref, kmp_int32 gtid, void __kmpc_omp_task_complete(ident_t *loc_ref, kmp_int32 gtid,
kmp_task_t *task); kmp_task_t *task);
#endif // TASK_UNUSED #endif // TASK_UNUSED
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if OMP_40_ENABLED
KMP_EXPORT void __kmpc_taskgroup(ident_t *loc, int gtid); KMP_EXPORT void __kmpc_taskgroup(ident_t *loc, int gtid);
KMP_EXPORT void __kmpc_end_taskgroup(ident_t *loc, int gtid); KMP_EXPORT void __kmpc_end_taskgroup(ident_t *loc, int gtid);
KMP_EXPORT kmp_int32 __kmpc_omp_task_with_deps( KMP_EXPORT kmp_int32 __kmpc_omp_task_with_deps(
ident_t *loc_ref, kmp_int32 gtid, kmp_task_t *new_task, kmp_int32 ndeps, ident_t *loc_ref, kmp_int32 gtid, kmp_task_t *new_task, kmp_int32 ndeps,
kmp_depend_info_t *dep_list, kmp_int32 ndeps_noalias, kmp_depend_info_t *dep_list, kmp_int32 ndeps_noalias,
kmp_depend_info_t *noalias_dep_list); kmp_depend_info_t *noalias_dep_list);
KMP_EXPORT void __kmpc_omp_wait_deps(ident_t *loc_ref, kmp_int32 gtid, KMP_EXPORT void __kmpc_omp_wait_deps(ident_t *loc_ref, kmp_int32 gtid,
kmp_int32 ndeps, kmp_int32 ndeps,
kmp_depend_info_t *dep_list, kmp_depend_info_t *dep_list,
kmp_int32 ndeps_noalias, kmp_int32 ndeps_noalias,
kmp_depend_info_t *noalias_dep_list); kmp_depend_info_t *noalias_dep_list);
extern kmp_int32 __kmp_omp_task(kmp_int32 gtid, kmp_task_t *new_task, extern kmp_int32 __kmp_omp_task(kmp_int32 gtid, kmp_task_t *new_task,
bool serialize_immediate); bool serialize_immediate);
KMP_EXPORT kmp_int32 __kmpc_cancel(ident_t *loc_ref, kmp_int32 gtid, KMP_EXPORT kmp_int32 __kmpc_cancel(ident_t *loc_ref, kmp_int32 gtid,
kmp_int32 cncl_kind); kmp_int32 cncl_kind);
KMP_EXPORT kmp_int32 __kmpc_cancellationpoint(ident_t *loc_ref, kmp_int32 gtid, KMP_EXPORT kmp_int32 __kmpc_cancellationpoint(ident_t *loc_ref, kmp_int32 gtid,
kmp_int32 cncl_kind); kmp_int32 cncl_kind);
KMP_EXPORT kmp_int32 __kmpc_cancel_barrier(ident_t *loc_ref, kmp_int32 gtid); KMP_EXPORT kmp_int32 __kmpc_cancel_barrier(ident_t *loc_ref, kmp_int32 gtid);
KMP_EXPORT int __kmp_get_cancellation_status(int cancel_kind); KMP_EXPORT int __kmp_get_cancellation_status(int cancel_kind);
#if OMP_45_ENABLED
KMP_EXPORT void __kmpc_proxy_task_completed(kmp_int32 gtid, kmp_task_t *ptask); KMP_EXPORT void __kmpc_proxy_task_completed(kmp_int32 gtid, kmp_task_t *ptask);
KMP_EXPORT void __kmpc_proxy_task_completed_ooo(kmp_task_t *ptask); KMP_EXPORT void __kmpc_proxy_task_completed_ooo(kmp_task_t *ptask);
KMP_EXPORT void __kmpc_taskloop(ident_t *loc, kmp_int32 gtid, kmp_task_t *task, KMP_EXPORT void __kmpc_taskloop(ident_t *loc, kmp_int32 gtid, kmp_task_t *task,
kmp_int32 if_val, kmp_uint64 *lb, kmp_int32 if_val, kmp_uint64 *lb,
kmp_uint64 *ub, kmp_int64 st, kmp_int32 nogroup, kmp_uint64 *ub, kmp_int64 st, kmp_int32 nogroup,
kmp_int32 sched, kmp_uint64 grainsize, kmp_int32 sched, kmp_uint64 grainsize,
void *task_dup); void *task_dup);
#endif
#if OMP_50_ENABLED
KMP_EXPORT void *__kmpc_task_reduction_init(int gtid, int num_data, void *data); KMP_EXPORT void *__kmpc_task_reduction_init(int gtid, int num_data, void *data);
KMP_EXPORT void *__kmpc_taskred_init(int gtid, int num_data, void *data); KMP_EXPORT void *__kmpc_taskred_init(int gtid, int num_data, void *data);
KMP_EXPORT void *__kmpc_task_reduction_get_th_data(int gtid, void *tg, void *d); KMP_EXPORT void *__kmpc_task_reduction_get_th_data(int gtid, void *tg, void *d);
KMP_EXPORT void *__kmpc_task_reduction_modifier_init(ident_t *loc, int gtid, KMP_EXPORT void *__kmpc_task_reduction_modifier_init(ident_t *loc, int gtid,
int is_ws, int num, int is_ws, int num,
void *data); void *data);
KMP_EXPORT void *__kmpc_taskred_modifier_init(ident_t *loc, int gtid, int is_ws, KMP_EXPORT void *__kmpc_taskred_modifier_init(ident_t *loc, int gtid, int is_ws,
int num, void *data); int num, void *data);
KMP_EXPORT void __kmpc_task_reduction_modifier_fini(ident_t *loc, int gtid, KMP_EXPORT void __kmpc_task_reduction_modifier_fini(ident_t *loc, int gtid,
int is_ws); int is_ws);
KMP_EXPORT kmp_int32 __kmpc_omp_reg_task_with_affinity( KMP_EXPORT kmp_int32 __kmpc_omp_reg_task_with_affinity(
ident_t *loc_ref, kmp_int32 gtid, kmp_task_t *new_task, kmp_int32 naffins, ident_t *loc_ref, kmp_int32 gtid, kmp_task_t *new_task, kmp_int32 naffins,
kmp_task_affinity_info_t *affin_list); kmp_task_affinity_info_t *affin_list);
#endif
#endif
/* Lock interface routines (fast versions with gtid passed in) */ /* Lock interface routines (fast versions with gtid passed in) */
KMP_EXPORT void __kmpc_init_lock(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_init_lock(ident_t *loc, kmp_int32 gtid,
void **user_lock); void **user_lock);
KMP_EXPORT void __kmpc_init_nest_lock(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_init_nest_lock(ident_t *loc, kmp_int32 gtid,
void **user_lock); void **user_lock);
KMP_EXPORT void __kmpc_destroy_lock(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_destroy_lock(ident_t *loc, kmp_int32 gtid,
void **user_lock); void **user_lock);
KMP_EXPORT void __kmpc_destroy_nest_lock(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_destroy_nest_lock(ident_t *loc, kmp_int32 gtid,
void **user_lock); void **user_lock);
KMP_EXPORT void __kmpc_set_lock(ident_t *loc, kmp_int32 gtid, void **user_lock); KMP_EXPORT void __kmpc_set_lock(ident_t *loc, kmp_int32 gtid, void **user_lock);
KMP_EXPORT void __kmpc_set_nest_lock(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_set_nest_lock(ident_t *loc, kmp_int32 gtid,
void **user_lock); void **user_lock);
KMP_EXPORT void __kmpc_unset_lock(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_unset_lock(ident_t *loc, kmp_int32 gtid,
void **user_lock); void **user_lock);
KMP_EXPORT void __kmpc_unset_nest_lock(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_unset_nest_lock(ident_t *loc, kmp_int32 gtid,
void **user_lock); void **user_lock);
KMP_EXPORT int __kmpc_test_lock(ident_t *loc, kmp_int32 gtid, void **user_lock); KMP_EXPORT int __kmpc_test_lock(ident_t *loc, kmp_int32 gtid, void **user_lock);
KMP_EXPORT int __kmpc_test_nest_lock(ident_t *loc, kmp_int32 gtid, KMP_EXPORT int __kmpc_test_nest_lock(ident_t *loc, kmp_int32 gtid,
void **user_lock); void **user_lock);
#if OMP_45_ENABLED
KMP_EXPORT void __kmpc_init_lock_with_hint(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_init_lock_with_hint(ident_t *loc, kmp_int32 gtid,
void **user_lock, uintptr_t hint); void **user_lock, uintptr_t hint);
KMP_EXPORT void __kmpc_init_nest_lock_with_hint(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_init_nest_lock_with_hint(ident_t *loc, kmp_int32 gtid,
void **user_lock, void **user_lock,
uintptr_t hint); uintptr_t hint);
#endif
/* Interface to fast scalable reduce methods routines */ /* Interface to fast scalable reduce methods routines */
KMP_EXPORT kmp_int32 __kmpc_reduce_nowait( KMP_EXPORT kmp_int32 __kmpc_reduce_nowait(
ident_t *loc, kmp_int32 global_tid, kmp_int32 num_vars, size_t reduce_size, ident_t *loc, kmp_int32 global_tid, kmp_int32 num_vars, size_t reduce_size,
void *reduce_data, void (*reduce_func)(void *lhs_data, void *rhs_data), void *reduce_data, void (*reduce_func)(void *lhs_data, void *rhs_data),
kmp_critical_name *lck); kmp_critical_name *lck);
KMP_EXPORT void __kmpc_end_reduce_nowait(ident_t *loc, kmp_int32 global_tid, KMP_EXPORT void __kmpc_end_reduce_nowait(ident_t *loc, kmp_int32 global_tid,
Show All 21 Lines
// C++ port // C++ port
// missing 'extern "C"' declarations // missing 'extern "C"' declarations
KMP_EXPORT kmp_int32 __kmpc_in_parallel(ident_t *loc); KMP_EXPORT kmp_int32 __kmpc_in_parallel(ident_t *loc);
KMP_EXPORT void __kmpc_pop_num_threads(ident_t *loc, kmp_int32 global_tid); KMP_EXPORT void __kmpc_pop_num_threads(ident_t *loc, kmp_int32 global_tid);
KMP_EXPORT void __kmpc_push_num_threads(ident_t *loc, kmp_int32 global_tid, KMP_EXPORT void __kmpc_push_num_threads(ident_t *loc, kmp_int32 global_tid,
kmp_int32 num_threads); kmp_int32 num_threads);
#if OMP_40_ENABLED
KMP_EXPORT void __kmpc_push_proc_bind(ident_t *loc, kmp_int32 global_tid, KMP_EXPORT void __kmpc_push_proc_bind(ident_t *loc, kmp_int32 global_tid,
int proc_bind); int proc_bind);
KMP_EXPORT void __kmpc_push_num_teams(ident_t *loc, kmp_int32 global_tid, KMP_EXPORT void __kmpc_push_num_teams(ident_t *loc, kmp_int32 global_tid,
kmp_int32 num_teams, kmp_int32 num_teams,
kmp_int32 num_threads); kmp_int32 num_threads);
KMP_EXPORT void __kmpc_fork_teams(ident_t *loc, kmp_int32 argc, KMP_EXPORT void __kmpc_fork_teams(ident_t *loc, kmp_int32 argc,
kmpc_micro microtask, ...); kmpc_micro microtask, ...);
#endif
#if OMP_45_ENABLED
struct kmp_dim { // loop bounds info casted to kmp_int64 struct kmp_dim { // loop bounds info casted to kmp_int64
kmp_int64 lo; // lower kmp_int64 lo; // lower
kmp_int64 up; // upper kmp_int64 up; // upper
kmp_int64 st; // stride kmp_int64 st; // stride
}; };
KMP_EXPORT void __kmpc_doacross_init(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_doacross_init(ident_t *loc, kmp_int32 gtid,
kmp_int32 num_dims, kmp_int32 num_dims,
const struct kmp_dim *dims); const struct kmp_dim *dims);
KMP_EXPORT void __kmpc_doacross_wait(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_doacross_wait(ident_t *loc, kmp_int32 gtid,
const kmp_int64 *vec); const kmp_int64 *vec);
KMP_EXPORT void __kmpc_doacross_post(ident_t *loc, kmp_int32 gtid, KMP_EXPORT void __kmpc_doacross_post(ident_t *loc, kmp_int32 gtid,
const kmp_int64 *vec); const kmp_int64 *vec);
KMP_EXPORT void __kmpc_doacross_fini(ident_t *loc, kmp_int32 gtid); KMP_EXPORT void __kmpc_doacross_fini(ident_t *loc, kmp_int32 gtid);
#endif
KMP_EXPORT void *__kmpc_threadprivate_cached(ident_t *loc, kmp_int32 global_tid, KMP_EXPORT void *__kmpc_threadprivate_cached(ident_t *loc, kmp_int32 global_tid,
void *data, size_t size, void *data, size_t size,
void ***cache); void ***cache);
// Symbols for MS mutual detection. // Symbols for MS mutual detection.
extern int _You_must_link_with_exactly_one_OpenMP_library; extern int _You_must_link_with_exactly_one_OpenMP_library;
extern int _You_must_link_with_Intel_OpenMP_library; extern int _You_must_link_with_Intel_OpenMP_library;
Show All 40 Lines
kmpc_get_affinity_mask_proc(int, kmp_affinity_mask_t *); kmpc_get_affinity_mask_proc(int, kmp_affinity_mask_t *);
KMP_EXPORT void KMPC_CONVENTION kmpc_set_stacksize(int); KMP_EXPORT void KMPC_CONVENTION kmpc_set_stacksize(int);
KMP_EXPORT void KMPC_CONVENTION kmpc_set_stacksize_s(size_t); KMP_EXPORT void KMPC_CONVENTION kmpc_set_stacksize_s(size_t);
KMP_EXPORT void KMPC_CONVENTION kmpc_set_library(int); KMP_EXPORT void KMPC_CONVENTION kmpc_set_library(int);
KMP_EXPORT void KMPC_CONVENTION kmpc_set_defaults(char const *); KMP_EXPORT void KMPC_CONVENTION kmpc_set_defaults(char const *);
KMP_EXPORT void KMPC_CONVENTION kmpc_set_disp_num_buffers(int); KMP_EXPORT void KMPC_CONVENTION kmpc_set_disp_num_buffers(int);
#if OMP_50_ENABLED
enum kmp_target_offload_kind { enum kmp_target_offload_kind {
tgt_disabled = 0, tgt_disabled = 0,
tgt_default = 1, tgt_default = 1,
tgt_mandatory = 2 tgt_mandatory = 2
}; };
typedef enum kmp_target_offload_kind kmp_target_offload_kind_t; typedef enum kmp_target_offload_kind kmp_target_offload_kind_t;
// Set via OMP_TARGET_OFFLOAD if specified, defaults to tgt_default otherwise // Set via OMP_TARGET_OFFLOAD if specified, defaults to tgt_default otherwise
extern kmp_target_offload_kind_t __kmp_target_offload; extern kmp_target_offload_kind_t __kmp_target_offload;
extern int __kmpc_get_target_offload(); extern int __kmpc_get_target_offload();
#endif
#if OMP_40_ENABLED
// Constants used in libomptarget // Constants used in libomptarget
#define KMP_DEVICE_DEFAULT -1 // This is libomptarget's default device. #define KMP_DEVICE_DEFAULT -1 // This is libomptarget's default device.
#define KMP_HOST_DEVICE -10 // This is what it is in libomptarget, go figure. #define KMP_HOST_DEVICE -10 // This is what it is in libomptarget, go figure.
#define KMP_DEVICE_ALL -11 // This is libomptarget's "all devices". #define KMP_DEVICE_ALL -11 // This is libomptarget's "all devices".
#endif // OMP_40_ENABLED
#if OMP_50_ENABLED
// OMP Pause Resource // OMP Pause Resource
// The following enum is used both to set the status in __kmp_pause_status, and // The following enum is used both to set the status in __kmp_pause_status, and
// as the internal equivalent of the externally-visible omp_pause_resource_t. // as the internal equivalent of the externally-visible omp_pause_resource_t.
typedef enum kmp_pause_status_t { typedef enum kmp_pause_status_t {
kmp_not_paused = 0, // status is not paused, or, requesting resume kmp_not_paused = 0, // status is not paused, or, requesting resume
kmp_soft_paused = 1, // status is soft-paused, or, requesting soft pause kmp_soft_paused = 1, // status is soft-paused, or, requesting soft pause
kmp_hard_paused = 2 // status is hard-paused, or, requesting hard pause kmp_hard_paused = 2 // status is hard-paused, or, requesting hard pause
} kmp_pause_status_t; } kmp_pause_status_t;
// This stores the pause state of the runtime // This stores the pause state of the runtime
extern kmp_pause_status_t __kmp_pause_status; extern kmp_pause_status_t __kmp_pause_status;
extern int __kmpc_pause_resource(kmp_pause_status_t level); extern int __kmpc_pause_resource(kmp_pause_status_t level);
extern int __kmp_pause_resource(kmp_pause_status_t level); extern int __kmp_pause_resource(kmp_pause_status_t level);
// Soft resume sets __kmp_pause_status, and wakes up all threads. // Soft resume sets __kmp_pause_status, and wakes up all threads.
extern void __kmp_resume_if_soft_paused(); extern void __kmp_resume_if_soft_paused();
// Hard resume simply resets the status to not paused. Library will appear to // Hard resume simply resets the status to not paused. Library will appear to
// be uninitialized after hard pause. Let OMP constructs trigger required // be uninitialized after hard pause. Let OMP constructs trigger required
// initializations. // initializations.
static inline void __kmp_resume_if_hard_paused() { static inline void __kmp_resume_if_hard_paused() {
if (__kmp_pause_status == kmp_hard_paused) { if (__kmp_pause_status == kmp_hard_paused) {
__kmp_pause_status = kmp_not_paused; __kmp_pause_status = kmp_not_paused;
} }
} }
#endif // OMP_50_ENABLED
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#endif /* KMP_H */ #endif /* KMP_H */

runtime/src/kmp_affinity.cpp

Show First 20 Lines • Show All 3,013 Lines • ▼ Show 20 Lines for (i = 0; i < nextNewMask; i++) {
kmp_affin_mask_t *src = KMP_CPU_INDEX(newMasks, i); kmp_affin_mask_t *src = KMP_CPU_INDEX(newMasks, i);
kmp_affin_mask_t *dest = KMP_CPU_INDEX((*out_masks), i); kmp_affin_mask_t *dest = KMP_CPU_INDEX((*out_masks), i);
KMP_CPU_COPY(dest, src); KMP_CPU_COPY(dest, src);
} }
KMP_CPU_INTERNAL_FREE_ARRAY(newMasks, numNewMasks); KMP_CPU_INTERNAL_FREE_ARRAY(newMasks, numNewMasks);
KMP_CPU_FREE(sumMask); KMP_CPU_FREE(sumMask);
} }
#if OMP_40_ENABLED
/*----------------------------------------------------------------------------- /*-----------------------------------------------------------------------------
Re-parse the OMP_PLACES proc id list, forming the newMasks for the different Re-parse the OMP_PLACES proc id list, forming the newMasks for the different
places. Again, Here is the grammar: places. Again, Here is the grammar:
place_list := place place_list := place
place_list := place , place_list place_list := place , place_list
place := num place := num
place := place : num place := place : num
place := place : num : signed place := place : num : signed
place := { subplacelist } place := { subplacelist }
place := ! place // (lowest priority) place := ! place // (lowest priority)
subplace_list := subplace subplace_list := subplace
subplace_list := subplace , subplace_list subplace_list := subplace , subplace_list
subplace := num subplace := num
subplace := num : num subplace := num : num
subplace := num : num : signed subplace := num : num : signed
signed := num signed := num
signed := + signed signed := + signed
signed := - signed signed := - signed
-----------------------------------------------------------------------------*/ -----------------------------------------------------------------------------*/
static void __kmp_process_subplace_list(const char **scan, static void __kmp_process_subplace_list(const char **scan,
kmp_affin_mask_t *osId2Mask, kmp_affin_mask_t *osId2Mask,
int maxOsId, kmp_affin_mask_t *tempMask, int maxOsId, kmp_affin_mask_t *tempMask,
int *setSize) { int *setSize) {
const char *next; const char *next;
for (;;) { for (;;) {
int start, count, stride, i; int start, count, stride, i;
▲ Show 20 Lines • Show All 302 Lines • ▼ Show 20 Linesvoid __kmp_affinity_process_placelist(kmp_affin_mask_t **out_masks,
for (i = 0; i < nextNewMask; i++) { for (i = 0; i < nextNewMask; i++) {
kmp_affin_mask_t *src = KMP_CPU_INDEX(newMasks, i); kmp_affin_mask_t *src = KMP_CPU_INDEX(newMasks, i);
kmp_affin_mask_t *dest = KMP_CPU_INDEX((*out_masks), i); kmp_affin_mask_t *dest = KMP_CPU_INDEX((*out_masks), i);
KMP_CPU_COPY(dest, src); KMP_CPU_COPY(dest, src);
} }
KMP_CPU_INTERNAL_FREE_ARRAY(newMasks, numNewMasks); KMP_CPU_INTERNAL_FREE_ARRAY(newMasks, numNewMasks);
} }
#endif /* OMP_40_ENABLED */
#undef ADD_MASK #undef ADD_MASK
#undef ADD_MASK_OSID #undef ADD_MASK_OSID
#if KMP_USE_HWLOC #if KMP_USE_HWLOC
static int __kmp_hwloc_skip_PUs_obj(hwloc_topology_t t, hwloc_obj_t o) { static int __kmp_hwloc_skip_PUs_obj(hwloc_topology_t t, hwloc_obj_t o) {
// skip PUs descendants of the object o // skip PUs descendants of the object o
int skipped = 0; int skipped = 0;
hwloc_obj_t hT = NULL; hwloc_obj_t hT = NULL;
▲ Show 20 Lines • Show All 1,108 Lines • ▼ Show 20 Lines#endif
// we can sort using __kmp_affinity_cmp_Address_child_num(), which takes into // we can sort using __kmp_affinity_cmp_Address_child_num(), which takes into
// account the setting of __kmp_affinity_compact. // account the setting of __kmp_affinity_compact.
__kmp_affinity_assign_child_nums(address2os, __kmp_avail_proc); __kmp_affinity_assign_child_nums(address2os, __kmp_avail_proc);
switch (__kmp_affinity_type) { switch (__kmp_affinity_type) {
case affinity_explicit: case affinity_explicit:
KMP_DEBUG_ASSERT(__kmp_affinity_proclist != NULL); KMP_DEBUG_ASSERT(__kmp_affinity_proclist != NULL);
#if OMP_40_ENABLED if (__kmp_nested_proc_bind.bind_types[0] == proc_bind_intel) {
if (__kmp_nested_proc_bind.bind_types[0] == proc_bind_intel)
#endif
{
__kmp_affinity_process_proclist( __kmp_affinity_process_proclist(
&__kmp_affinity_masks, &__kmp_affinity_num_masks, &__kmp_affinity_masks, &__kmp_affinity_num_masks,
__kmp_affinity_proclist, osId2Mask, maxIndex); __kmp_affinity_proclist, osId2Mask, maxIndex);
} } else {
#if OMP_40_ENABLED
else {
__kmp_affinity_process_placelist( __kmp_affinity_process_placelist(
&__kmp_affinity_masks, &__kmp_affinity_num_masks, &__kmp_affinity_masks, &__kmp_affinity_num_masks,
__kmp_affinity_proclist, osId2Mask, maxIndex); __kmp_affinity_proclist, osId2Mask, maxIndex);
} }
#endif
if (__kmp_affinity_num_masks == 0) { if (__kmp_affinity_num_masks == 0) {
if (__kmp_affinity_verbose || if (__kmp_affinity_verbose ||
(__kmp_affinity_warnings && (__kmp_affinity_type != affinity_none))) { (__kmp_affinity_warnings && (__kmp_affinity_type != affinity_none))) {
KMP_WARNING(AffNoValidProcID); KMP_WARNING(AffNoValidProcID);
} }
__kmp_affinity_type = affinity_none; __kmp_affinity_type = affinity_none;
__kmp_create_affinity_none_places(); __kmp_create_affinity_none_places();
return; return;
▲ Show 20 Lines • Show All 99 Lines • ▼ Show 20 Lines#endif
sortAddresses: sortAddresses:
// Allocate the gtid->affinity mask table. // Allocate the gtid->affinity mask table.
if (__kmp_affinity_dups) { if (__kmp_affinity_dups) {
__kmp_affinity_num_masks = __kmp_avail_proc; __kmp_affinity_num_masks = __kmp_avail_proc;
} else { } else {
__kmp_affinity_num_masks = numUnique; __kmp_affinity_num_masks = numUnique;
} }
#if OMP_40_ENABLED
if ((__kmp_nested_proc_bind.bind_types[0] != proc_bind_intel) && if ((__kmp_nested_proc_bind.bind_types[0] != proc_bind_intel) &&
(__kmp_affinity_num_places > 0) && (__kmp_affinity_num_places > 0) &&
((unsigned)__kmp_affinity_num_places < __kmp_affinity_num_masks)) { ((unsigned)__kmp_affinity_num_places < __kmp_affinity_num_masks)) {
__kmp_affinity_num_masks = __kmp_affinity_num_places; __kmp_affinity_num_masks = __kmp_affinity_num_places;
} }
#endif
KMP_CPU_ALLOC_ARRAY(__kmp_affinity_masks, __kmp_affinity_num_masks); KMP_CPU_ALLOC_ARRAY(__kmp_affinity_masks, __kmp_affinity_num_masks);
// Sort the address2os table according to the current setting of // Sort the address2os table according to the current setting of
// __kmp_affinity_compact, then fill out __kmp_affinity_masks. // __kmp_affinity_compact, then fill out __kmp_affinity_masks.
qsort(address2os, __kmp_avail_proc, sizeof(*address2os), qsort(address2os, __kmp_avail_proc, sizeof(*address2os),
__kmp_affinity_cmp_Address_child_num); __kmp_affinity_cmp_Address_child_num);
{ {
▲ Show 20 Lines • Show All 53 Lines • ▼ Show 20 Lines if (__kmp_affinity_masks != NULL) {
__kmp_affinity_masks = NULL; __kmp_affinity_masks = NULL;
} }
if (__kmp_affin_fullMask != NULL) { if (__kmp_affin_fullMask != NULL) {
KMP_CPU_FREE(__kmp_affin_fullMask); KMP_CPU_FREE(__kmp_affin_fullMask);
__kmp_affin_fullMask = NULL; __kmp_affin_fullMask = NULL;
} }
__kmp_affinity_num_masks = 0; __kmp_affinity_num_masks = 0;
__kmp_affinity_type = affinity_default; __kmp_affinity_type = affinity_default;
#if OMP_40_ENABLED
__kmp_affinity_num_places = 0; __kmp_affinity_num_places = 0;
#endif
if (__kmp_affinity_proclist != NULL) { if (__kmp_affinity_proclist != NULL) {
__kmp_free(__kmp_affinity_proclist); __kmp_free(__kmp_affinity_proclist);
__kmp_affinity_proclist = NULL; __kmp_affinity_proclist = NULL;
} }
if (address2os != NULL) { if (address2os != NULL) {
__kmp_free(address2os); __kmp_free(address2os);
address2os = NULL; address2os = NULL;
} }
Show All 24 Linesvoid __kmp_affinity_set_init_mask(int gtid, int isa_root) {
// Copy the thread mask to the kmp_info_t strucuture. If // Copy the thread mask to the kmp_info_t strucuture. If
// __kmp_affinity_type == affinity_none, copy the "full" mask, i.e. one that // __kmp_affinity_type == affinity_none, copy the "full" mask, i.e. one that
// has all of the OS proc ids set, or if __kmp_affinity_respect_mask is set, // has all of the OS proc ids set, or if __kmp_affinity_respect_mask is set,
// then the full mask is the same as the mask of the initialization thread. // then the full mask is the same as the mask of the initialization thread.
kmp_affin_mask_t *mask; kmp_affin_mask_t *mask;
int i; int i;
#if OMP_40_ENABLED if (KMP_AFFINITY_NON_PROC_BIND) {
if (KMP_AFFINITY_NON_PROC_BIND)
#endif
{
if ((__kmp_affinity_type == affinity_none) || if ((__kmp_affinity_type == affinity_none) ||
(__kmp_affinity_type == affinity_balanced)) { (__kmp_affinity_type == affinity_balanced)) {
#if KMP_GROUP_AFFINITY #if KMP_GROUP_AFFINITY
if (__kmp_num_proc_groups > 1) { if (__kmp_num_proc_groups > 1) {
return; return;
} }
#endif #endif
KMP_ASSERT(__kmp_affin_fullMask != NULL); KMP_ASSERT(__kmp_affin_fullMask != NULL);
i = 0; i = 0;
mask = __kmp_affin_fullMask; mask = __kmp_affin_fullMask;
} else { } else {
KMP_DEBUG_ASSERT(__kmp_affinity_num_masks > 0); KMP_DEBUG_ASSERT(__kmp_affinity_num_masks > 0);
i = (gtid + __kmp_affinity_offset) % __kmp_affinity_num_masks; i = (gtid + __kmp_affinity_offset) % __kmp_affinity_num_masks;
mask = KMP_CPU_INDEX(__kmp_affinity_masks, i); mask = KMP_CPU_INDEX(__kmp_affinity_masks, i);
} }
} } else {
#if OMP_40_ENABLED
else {
if ((!isa_root) || if ((!isa_root) ||
(__kmp_nested_proc_bind.bind_types[0] == proc_bind_false)) { (__kmp_nested_proc_bind.bind_types[0] == proc_bind_false)) {
#if KMP_GROUP_AFFINITY #if KMP_GROUP_AFFINITY
if (__kmp_num_proc_groups > 1) { if (__kmp_num_proc_groups > 1) {
return; return;
} }
#endif #endif
KMP_ASSERT(__kmp_affin_fullMask != NULL); KMP_ASSERT(__kmp_affin_fullMask != NULL);
i = KMP_PLACE_ALL; i = KMP_PLACE_ALL;
mask = __kmp_affin_fullMask; mask = __kmp_affin_fullMask;
} else { } else {
// int i = some hash function or just a counter that doesn't // int i = some hash function or just a counter that doesn't
// always start at 0. Use gtid for now. // always start at 0. Use gtid for now.
KMP_DEBUG_ASSERT(__kmp_affinity_num_masks > 0); KMP_DEBUG_ASSERT(__kmp_affinity_num_masks > 0);
i = (gtid + __kmp_affinity_offset) % __kmp_affinity_num_masks; i = (gtid + __kmp_affinity_offset) % __kmp_affinity_num_masks;
mask = KMP_CPU_INDEX(__kmp_affinity_masks, i); mask = KMP_CPU_INDEX(__kmp_affinity_masks, i);
} }
} }
#endif
#if OMP_40_ENABLED
th->th.th_current_place = i; th->th.th_current_place = i;
if (isa_root) { if (isa_root) {
th->th.th_new_place = i; th->th.th_new_place = i;
th->th.th_first_place = 0; th->th.th_first_place = 0;
th->th.th_last_place = __kmp_affinity_num_masks - 1; th->th.th_last_place = __kmp_affinity_num_masks - 1;
} else if (KMP_AFFINITY_NON_PROC_BIND) { } else if (KMP_AFFINITY_NON_PROC_BIND) {
// When using a Non-OMP_PROC_BIND affinity method, // When using a Non-OMP_PROC_BIND affinity method,
// set all threads' place-partition-var to the entire place list // set all threads' place-partition-var to the entire place list
th->th.th_first_place = 0; th->th.th_first_place = 0;
th->th.th_last_place = __kmp_affinity_num_masks - 1; th->th.th_last_place = __kmp_affinity_num_masks - 1;
} }
if (i == KMP_PLACE_ALL) { if (i == KMP_PLACE_ALL) {
KA_TRACE(100, ("__kmp_affinity_set_init_mask: binding T#%d to all places\n", KA_TRACE(100, ("__kmp_affinity_set_init_mask: binding T#%d to all places\n",
gtid)); gtid));
} else { } else {
KA_TRACE(100, ("__kmp_affinity_set_init_mask: binding T#%d to place %d\n", KA_TRACE(100, ("__kmp_affinity_set_init_mask: binding T#%d to place %d\n",
gtid, i)); gtid, i));
} }
#else
if (i == -1) {
KA_TRACE(
100,
("__kmp_affinity_set_init_mask: binding T#%d to __kmp_affin_fullMask\n",
gtid));
} else {
KA_TRACE(100, ("__kmp_affinity_set_init_mask: binding T#%d to mask %d\n",
gtid, i));
}
#endif /* OMP_40_ENABLED */
KMP_CPU_COPY(th->th.th_affin_mask, mask); KMP_CPU_COPY(th->th.th_affin_mask, mask);
if (__kmp_affinity_verbose if (__kmp_affinity_verbose
/* to avoid duplicate printing (will be correctly printed on barrier) */ /* to avoid duplicate printing (will be correctly printed on barrier) */
&& (__kmp_affinity_type == affinity_none || && (__kmp_affinity_type == affinity_none ||
(i != KMP_PLACE_ALL && __kmp_affinity_type != affinity_balanced))) { (i != KMP_PLACE_ALL && __kmp_affinity_type != affinity_balanced))) {
char buf[KMP_AFFIN_MASK_PRINT_LEN]; char buf[KMP_AFFIN_MASK_PRINT_LEN];
Show All 9 Lines#if KMP_OS_WINDOWS
// See CQ171393. // See CQ171393.
if (__kmp_affinity_type == affinity_none) { if (__kmp_affinity_type == affinity_none) {
__kmp_set_system_affinity(th->th.th_affin_mask, FALSE); __kmp_set_system_affinity(th->th.th_affin_mask, FALSE);
} else } else
#endif #endif
__kmp_set_system_affinity(th->th.th_affin_mask, TRUE); __kmp_set_system_affinity(th->th.th_affin_mask, TRUE);
} }
#if OMP_40_ENABLED
void __kmp_affinity_set_place(int gtid) { void __kmp_affinity_set_place(int gtid) {
if (!KMP_AFFINITY_CAPABLE()) { if (!KMP_AFFINITY_CAPABLE()) {
return; return;
} }
kmp_info_t *th = (kmp_info_t *)TCR_SYNC_PTR(__kmp_threads[gtid]); kmp_info_t *th = (kmp_info_t *)TCR_SYNC_PTR(__kmp_threads[gtid]);
KA_TRACE(100, ("__kmp_affinity_set_place: binding T#%d to place %d (current " KA_TRACE(100, ("__kmp_affinity_set_place: binding T#%d to place %d (current "
Show All 24 Lines if (__kmp_affinity_verbose) {
__kmp_affinity_print_mask(buf, KMP_AFFIN_MASK_PRINT_LEN, __kmp_affinity_print_mask(buf, KMP_AFFIN_MASK_PRINT_LEN,
th->th.th_affin_mask); th->th.th_affin_mask);
KMP_INFORM(BoundToOSProcSet, "OMP_PROC_BIND", (kmp_int32)getpid(), KMP_INFORM(BoundToOSProcSet, "OMP_PROC_BIND", (kmp_int32)getpid(),
__kmp_gettid(), gtid, buf); __kmp_gettid(), gtid, buf);
} }
__kmp_set_system_affinity(th->th.th_affin_mask, TRUE); __kmp_set_system_affinity(th->th.th_affin_mask, TRUE);
} }
#endif /* OMP_40_ENABLED */
int __kmp_aux_set_affinity(void **mask) { int __kmp_aux_set_affinity(void **mask) {
int gtid; int gtid;
kmp_info_t *th; kmp_info_t *th;
int retval; int retval;
if (!KMP_AFFINITY_CAPABLE()) { if (!KMP_AFFINITY_CAPABLE()) {
return -1; return -1;
} }
Show All 38 Lines#endif /* KMP_GROUP_AFFINITY */
th = __kmp_threads[gtid]; th = __kmp_threads[gtid];
KMP_DEBUG_ASSERT(th->th.th_affin_mask != NULL); KMP_DEBUG_ASSERT(th->th.th_affin_mask != NULL);
retval = __kmp_set_system_affinity((kmp_affin_mask_t *)(*mask), FALSE); retval = __kmp_set_system_affinity((kmp_affin_mask_t *)(*mask), FALSE);
if (retval == 0) { if (retval == 0) {
KMP_CPU_COPY(th->th.th_affin_mask, (kmp_affin_mask_t *)(*mask)); KMP_CPU_COPY(th->th.th_affin_mask, (kmp_affin_mask_t *)(*mask));
} }
#if OMP_40_ENABLED
th->th.th_current_place = KMP_PLACE_UNDEFINED; th->th.th_current_place = KMP_PLACE_UNDEFINED;
th->th.th_new_place = KMP_PLACE_UNDEFINED; th->th.th_new_place = KMP_PLACE_UNDEFINED;
th->th.th_first_place = 0; th->th.th_first_place = 0;
th->th.th_last_place = __kmp_affinity_num_masks - 1; th->th.th_last_place = __kmp_affinity_num_masks - 1;
// Turn off 4.0 affinity for the current tread at this parallel level. // Turn off 4.0 affinity for the current tread at this parallel level.
th->th.th_current_task->td_icvs.proc_bind = proc_bind_false; th->th.th_current_task->td_icvs.proc_bind = proc_bind_false;
#endif
return retval; return retval;
} }
int __kmp_aux_get_affinity(void **mask) { int __kmp_aux_get_affinity(void **mask) {
int gtid; int gtid;
int retval; int retval;
kmp_info_t *th; kmp_info_t *th;
▲ Show 20 Lines • Show All 431 Lines • Show Last 20 Lines

runtime/src/kmp_alloc.cpp

Show All 27 Lines
#if KMP_OS_WINDOWS #if KMP_OS_WINDOWS
#if KMP_ARCH_X86 || KMP_ARCH_ARM #if KMP_ARCH_X86 || KMP_ARCH_ARM
typedef kmp_int32 bufsize; typedef kmp_int32 bufsize;
#else #else
typedef kmp_int64 bufsize; typedef kmp_int64 bufsize;
#endif #endif
#else #else
typedef ssize_t bufsize; typedef ssize_t bufsize;
#endif #endif // KMP_OS_WINDOWS
/* The three modes of operation are, fifo search, lifo search, and best-fit */ /* The three modes of operation are, fifo search, lifo search, and best-fit */
typedef enum bget_mode { typedef enum bget_mode {
bget_mode_fifo = 0, bget_mode_fifo = 0,
bget_mode_lifo = 1, bget_mode_lifo = 1,
bget_mode_best = 2 bget_mode_best = 2
} bget_mode_t; } bget_mode_t;
▲ Show 20 Lines • Show All 1,170 Lines • ▼ Show 20 Lines KE_TRACE(30, ("-> __kmp_thread_free( %p, %p ) called from %s:%d\n", th,
ptr KMP_SRC_LOC_PARM)); ptr KMP_SRC_LOC_PARM));
if (ptr != NULL) { if (ptr != NULL) {
__kmp_bget_dequeue(th); /* Release any queued buffers */ __kmp_bget_dequeue(th); /* Release any queued buffers */
brel(th, ptr); brel(th, ptr);
} }
KE_TRACE(30, ("<- __kmp_thread_free()\n")); KE_TRACE(30, ("<- __kmp_thread_free()\n"));
} }
#if OMP_50_ENABLED
/* OMP 5.0 Memory Management support */ /* OMP 5.0 Memory Management support */
static const char *kmp_mk_lib_name; static const char *kmp_mk_lib_name;
static void *h_memkind; static void *h_memkind;
/* memkind experimental API: */ /* memkind experimental API: */
// memkind_alloc // memkind_alloc
static void *(*kmp_mk_alloc)(void *k, size_t sz); static void *(*kmp_mk_alloc)(void *k, size_t sz);
// memkind_free // memkind_free
static void (*kmp_mk_free)(void *kind, void *ptr); static void (*kmp_mk_free)(void *kind, void *ptr);
▲ Show 20 Lines • Show All 393 Lines • ▼ Show 20 Lines if (oal > kmp_max_mem_alloc && al->pool_size > 0) {
KMP_DEBUG_ASSERT(used >= desc.size_a); KMP_DEBUG_ASSERT(used >= desc.size_a);
} }
__kmp_thread_free(__kmp_thread_from_gtid(gtid), desc.ptr_alloc); __kmp_thread_free(__kmp_thread_from_gtid(gtid), desc.ptr_alloc);
} }
KE_TRACE(10, ("__kmpc_free: T#%d freed %p (%p)\n", gtid, desc.ptr_alloc, KE_TRACE(10, ("__kmpc_free: T#%d freed %p (%p)\n", gtid, desc.ptr_alloc,
allocator)); allocator));
} }
#endif
/* If LEAK_MEMORY is defined, __kmp_free() will *not* free memory. It causes /* If LEAK_MEMORY is defined, __kmp_free() will *not* free memory. It causes
memory leaks, but it may be useful for debugging memory corruptions, used memory leaks, but it may be useful for debugging memory corruptions, used
freed pointers, etc. */ freed pointers, etc. */
/* #define LEAK_MEMORY */ /* #define LEAK_MEMORY */
struct kmp_mem_descr { // Memory block descriptor. struct kmp_mem_descr { // Memory block descriptor.
void *ptr_allocated; // Pointer returned by malloc(), subject for free(). void *ptr_allocated; // Pointer returned by malloc(), subject for free().
size_t size_allocated; // Size of allocated memory block. size_t size_allocated; // Size of allocated memory block.
void *ptr_aligned; // Pointer to aligned memory, to be used by client code. void *ptr_aligned; // Pointer to aligned memory, to be used by client code.
▲ Show 20 Lines • Show All 425 Lines • Show Last 20 Lines

runtime/src/kmp_atomic.h

Show First 20 Lines • Show All 681 Lines • ▼ Show 20 Linesvoid __kmpc_atomic_cmplx16_mul_a16(ident_t *id_ref, int gtid,
kmp_cmplx128_a16_t *lhs, kmp_cmplx128_a16_t *lhs,
kmp_cmplx128_a16_t rhs); kmp_cmplx128_a16_t rhs);
void __kmpc_atomic_cmplx16_div_a16(ident_t *id_ref, int gtid, void __kmpc_atomic_cmplx16_div_a16(ident_t *id_ref, int gtid,
kmp_cmplx128_a16_t *lhs, kmp_cmplx128_a16_t *lhs,
kmp_cmplx128_a16_t rhs); kmp_cmplx128_a16_t rhs);
#endif #endif
#endif #endif
#if OMP_40_ENABLED
// OpenMP 4.0: x = expr binop x for non-commutative operations. // OpenMP 4.0: x = expr binop x for non-commutative operations.
// Supported only on IA-32 architecture and Intel(R) 64 // Supported only on IA-32 architecture and Intel(R) 64
#if KMP_ARCH_X86 || KMP_ARCH_X86_64 #if KMP_ARCH_X86 || KMP_ARCH_X86_64
void __kmpc_atomic_fixed1_sub_rev(ident_t *id_ref, int gtid, char *lhs, void __kmpc_atomic_fixed1_sub_rev(ident_t *id_ref, int gtid, char *lhs,
char rhs); char rhs);
void __kmpc_atomic_fixed1_div_rev(ident_t *id_ref, int gtid, char *lhs, void __kmpc_atomic_fixed1_div_rev(ident_t *id_ref, int gtid, char *lhs,
char rhs); char rhs);
▲ Show 20 Lines • Show All 88 Lines • ▼ Show 20 Lines
void __kmpc_atomic_cmplx16_div_a16_rev(ident_t *id_ref, int gtid, void __kmpc_atomic_cmplx16_div_a16_rev(ident_t *id_ref, int gtid,
kmp_cmplx128_a16_t *lhs, kmp_cmplx128_a16_t *lhs,
kmp_cmplx128_a16_t rhs); kmp_cmplx128_a16_t rhs);
#endif #endif
#endif // KMP_HAVE_QUAD #endif // KMP_HAVE_QUAD
#endif // KMP_ARCH_X86 || KMP_ARCH_X86_64 #endif // KMP_ARCH_X86 || KMP_ARCH_X86_64
#endif // OMP_40_ENABLED
// routines for mixed types // routines for mixed types
// RHS=float8 // RHS=float8
void __kmpc_atomic_fixed1_mul_float8(ident_t *id_ref, int gtid, char *lhs, void __kmpc_atomic_fixed1_mul_float8(ident_t *id_ref, int gtid, char *lhs,
kmp_real64 rhs); kmp_real64 rhs);
void __kmpc_atomic_fixed1_div_float8(ident_t *id_ref, int gtid, char *lhs, void __kmpc_atomic_fixed1_div_float8(ident_t *id_ref, int gtid, char *lhs,
kmp_real64 rhs); kmp_real64 rhs);
void __kmpc_atomic_fixed2_mul_float8(ident_t *id_ref, int gtid, short *lhs, void __kmpc_atomic_fixed2_mul_float8(ident_t *id_ref, int gtid, short *lhs,
▲ Show 20 Lines • Show All 592 Lines • ▼ Show 20 Lineskmp_cmplx128_a16_t __kmpc_atomic_cmplx16_div_a16_cpt(ident_t *id_ref, int gtid,
kmp_cmplx128_a16_t rhs, kmp_cmplx128_a16_t rhs,
int flag); int flag);
#endif #endif
#endif #endif
void __kmpc_atomic_start(void); void __kmpc_atomic_start(void);
void __kmpc_atomic_end(void); void __kmpc_atomic_end(void);
#if OMP_40_ENABLED
// OpenMP 4.0: v = x = expr binop x; { v = x; x = expr binop x; } { x = expr // OpenMP 4.0: v = x = expr binop x; { v = x; x = expr binop x; } { x = expr
// binop x; v = x; } for non-commutative operations. // binop x; v = x; } for non-commutative operations.
char __kmpc_atomic_fixed1_sub_cpt_rev(ident_t *id_ref, int gtid, char *lhs, char __kmpc_atomic_fixed1_sub_cpt_rev(ident_t *id_ref, int gtid, char *lhs,
char rhs, int flag); char rhs, int flag);
char __kmpc_atomic_fixed1_div_cpt_rev(ident_t *id_ref, int gtid, char *lhs, char __kmpc_atomic_fixed1_div_cpt_rev(ident_t *id_ref, int gtid, char *lhs,
char rhs, int flag); char rhs, int flag);
unsigned char __kmpc_atomic_fixed1u_div_cpt_rev(ident_t *id_ref, int gtid, unsigned char __kmpc_atomic_fixed1u_div_cpt_rev(ident_t *id_ref, int gtid,
▲ Show 20 Lines • Show All 339 Lines • ▼ Show 20 Lines
long double __kmpc_atomic_float10_div_cpt_rev_fp(ident_t *id_ref, int gtid, long double __kmpc_atomic_float10_div_cpt_rev_fp(ident_t *id_ref, int gtid,
long double *lhs, _Quad rhs, long double *lhs, _Quad rhs,
int flag); int flag);
#endif // KMP_HAVE_QUAD #endif // KMP_HAVE_QUAD
// End of OpenMP 4.0 capture // End of OpenMP 4.0 capture
#endif // OMP_40_ENABLED
#endif // KMP_ARCH_X86 || KMP_ARCH_X86_64 #endif // KMP_ARCH_X86 || KMP_ARCH_X86_64
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#ifdef __cplusplus #ifdef __cplusplus
} // extern "C" } // extern "C"
#endif #endif
#endif /* KMP_ATOMIC_H */ #endif /* KMP_ATOMIC_H */
// end of file // end of file

runtime/src/kmp_atomic.cpp

Show First 20 Lines • Show All 668 Lines • ▼ Show 20 Linesstatic inline void operator*=(kmp_cmplx128_a16_t &lhs,
kmp_cmplx128_a16_t &rhs) { kmp_cmplx128_a16_t &rhs) {
lhs.q *= rhs.q; lhs.q *= rhs.q;
} }
static inline void operator/=(kmp_cmplx128_a16_t &lhs, static inline void operator/=(kmp_cmplx128_a16_t &lhs,
kmp_cmplx128_a16_t &rhs) { kmp_cmplx128_a16_t &rhs) {
lhs.q /= rhs.q; lhs.q /= rhs.q;
} }
#endif #endif // (KMP_ARCH_X86) && KMP_HAVE_QUAD
// ATOMIC implementation routines ----------------------------------------- // ATOMIC implementation routines -----------------------------------------
// One routine for each operation and operand type. // One routine for each operation and operand type.
// All routines declarations looks like // All routines declarations looks like
// void __kmpc_atomic_RTYPE_OP( ident_t*, int, TYPE *lhs, TYPE rhs ); // void __kmpc_atomic_RTYPE_OP( ident_t*, int, TYPE *lhs, TYPE rhs );
#define KMP_CHECK_GTID \ #define KMP_CHECK_GTID \
if (gtid == KMP_GTID_UNKNOWN) { \ if (gtid == KMP_GTID_UNKNOWN) { \
▲ Show 20 Lines • Show All 152 Lines • ▼ Show 20 Lines
// workaround for C78287 (complex(kind=4) data type) // workaround for C78287 (complex(kind=4) data type)
#define ATOMIC_CMPXCHG_WORKAROUND(TYPE_ID, OP_ID, TYPE, BITS, OP, LCK_ID, \ #define ATOMIC_CMPXCHG_WORKAROUND(TYPE_ID, OP_ID, TYPE, BITS, OP, LCK_ID, \
MASK, GOMP_FLAG) \ MASK, GOMP_FLAG) \
ATOMIC_BEGIN(TYPE_ID, OP_ID, TYPE, void) \ ATOMIC_BEGIN(TYPE_ID, OP_ID, TYPE, void) \
OP_GOMP_CRITICAL(OP## =, GOMP_FLAG) \ OP_GOMP_CRITICAL(OP## =, GOMP_FLAG) \
OP_CMPXCHG_WORKAROUND(TYPE, BITS, OP) \ OP_CMPXCHG_WORKAROUND(TYPE, BITS, OP) \
} }
// end of the second part of the workaround for C78287 // end of the second part of the workaround for C78287
#endif #endif // USE_CMPXCHG_FIX
#else #else
// ------------------------------------------------------------------------- // -------------------------------------------------------------------------
// Code for other architectures that don't handle unaligned accesses. // Code for other architectures that don't handle unaligned accesses.
#define ATOMIC_FIXED_ADD(TYPE_ID, OP_ID, TYPE, BITS, OP, LCK_ID, MASK, \ #define ATOMIC_FIXED_ADD(TYPE_ID, OP_ID, TYPE, BITS, OP, LCK_ID, MASK, \
GOMP_FLAG) \ GOMP_FLAG) \
ATOMIC_BEGIN(TYPE_ID, OP_ID, TYPE, void) \ ATOMIC_BEGIN(TYPE_ID, OP_ID, TYPE, void) \
OP_GOMP_CRITICAL(OP## =, GOMP_FLAG) \ OP_GOMP_CRITICAL(OP## =, GOMP_FLAG) \
▲ Show 20 Lines • Show All 333 Lines • ▼ Show 20 LinesMIN_MAX_CRITICAL(float16, max, QUAD_LEGACY, <, 16r,
1) // __kmpc_atomic_float16_max 1) // __kmpc_atomic_float16_max
MIN_MAX_CRITICAL(float16, min, QUAD_LEGACY, >, 16r, MIN_MAX_CRITICAL(float16, min, QUAD_LEGACY, >, 16r,
1) // __kmpc_atomic_float16_min 1) // __kmpc_atomic_float16_min
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
MIN_MAX_CRITICAL(float16, max_a16, Quad_a16_t, <, 16r, MIN_MAX_CRITICAL(float16, max_a16, Quad_a16_t, <, 16r,
1) // __kmpc_atomic_float16_max_a16 1) // __kmpc_atomic_float16_max_a16
MIN_MAX_CRITICAL(float16, min_a16, Quad_a16_t, >, 16r, MIN_MAX_CRITICAL(float16, min_a16, Quad_a16_t, >, 16r,
1) // __kmpc_atomic_float16_min_a16 1) // __kmpc_atomic_float16_min_a16
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
// ------------------------------------------------------------------------ // ------------------------------------------------------------------------
// Need separate macros for .EQV. because of the need of complement (~) // Need separate macros for .EQV. because of the need of complement (~)
// OP ignored for critical sections, ^=~ used instead // OP ignored for critical sections, ^=~ used instead
#define ATOMIC_CRIT_EQV(TYPE_ID, OP_ID, TYPE, OP, LCK_ID, GOMP_FLAG) \ #define ATOMIC_CRIT_EQV(TYPE_ID, OP_ID, TYPE, OP, LCK_ID, GOMP_FLAG) \
ATOMIC_BEGIN(TYPE_ID, OP_ID, TYPE, void) \ ATOMIC_BEGIN(TYPE_ID, OP_ID, TYPE, void) \
OP_GOMP_CRITICAL(^= ~, GOMP_FLAG) /* send assignment */ \ OP_GOMP_CRITICAL(^= ~, GOMP_FLAG) /* send assignment */ \
OP_CRITICAL(^= ~, LCK_ID) /* send assignment and complement */ \ OP_CRITICAL(^= ~, LCK_ID) /* send assignment and complement */ \
} }
▲ Show 20 Lines • Show All 78 Lines • ▼ Show 20 Lines
ATOMIC_CRITICAL(float16, add_a16, Quad_a16_t, +, 16r, ATOMIC_CRITICAL(float16, add_a16, Quad_a16_t, +, 16r,
1) // __kmpc_atomic_float16_add_a16 1) // __kmpc_atomic_float16_add_a16
ATOMIC_CRITICAL(float16, sub_a16, Quad_a16_t, -, 16r, ATOMIC_CRITICAL(float16, sub_a16, Quad_a16_t, -, 16r,
1) // __kmpc_atomic_float16_sub_a16 1) // __kmpc_atomic_float16_sub_a16
ATOMIC_CRITICAL(float16, mul_a16, Quad_a16_t, *, 16r, ATOMIC_CRITICAL(float16, mul_a16, Quad_a16_t, *, 16r,
1) // __kmpc_atomic_float16_mul_a16 1) // __kmpc_atomic_float16_mul_a16
ATOMIC_CRITICAL(float16, div_a16, Quad_a16_t, /, 16r, ATOMIC_CRITICAL(float16, div_a16, Quad_a16_t, /, 16r,
1) // __kmpc_atomic_float16_div_a16 1) // __kmpc_atomic_float16_div_a16
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
// routines for complex types // routines for complex types
#if USE_CMPXCHG_FIX #if USE_CMPXCHG_FIX
// workaround for C78287 (complex(kind=4) data type) // workaround for C78287 (complex(kind=4) data type)
ATOMIC_CMPXCHG_WORKAROUND(cmplx4, add, kmp_cmplx32, 64, +, 8c, 7, ATOMIC_CMPXCHG_WORKAROUND(cmplx4, add, kmp_cmplx32, 64, +, 8c, 7,
1) // __kmpc_atomic_cmplx4_add 1) // __kmpc_atomic_cmplx4_add
ATOMIC_CMPXCHG_WORKAROUND(cmplx4, sub, kmp_cmplx32, 64, -, 8c, 7, ATOMIC_CMPXCHG_WORKAROUND(cmplx4, sub, kmp_cmplx32, 64, -, 8c, 7,
1) // __kmpc_atomic_cmplx4_sub 1) // __kmpc_atomic_cmplx4_sub
Show All 34 Lines
ATOMIC_CRITICAL(cmplx16, add_a16, kmp_cmplx128_a16_t, +, 32c, ATOMIC_CRITICAL(cmplx16, add_a16, kmp_cmplx128_a16_t, +, 32c,
1) // __kmpc_atomic_cmplx16_add_a16 1) // __kmpc_atomic_cmplx16_add_a16
ATOMIC_CRITICAL(cmplx16, sub_a16, kmp_cmplx128_a16_t, -, 32c, ATOMIC_CRITICAL(cmplx16, sub_a16, kmp_cmplx128_a16_t, -, 32c,
1) // __kmpc_atomic_cmplx16_sub_a16 1) // __kmpc_atomic_cmplx16_sub_a16
ATOMIC_CRITICAL(cmplx16, mul_a16, kmp_cmplx128_a16_t, *, 32c, ATOMIC_CRITICAL(cmplx16, mul_a16, kmp_cmplx128_a16_t, *, 32c,
1) // __kmpc_atomic_cmplx16_mul_a16 1) // __kmpc_atomic_cmplx16_mul_a16
ATOMIC_CRITICAL(cmplx16, div_a16, kmp_cmplx128_a16_t, /, 32c, ATOMIC_CRITICAL(cmplx16, div_a16, kmp_cmplx128_a16_t, /, 32c,
1) // __kmpc_atomic_cmplx16_div_a16 1) // __kmpc_atomic_cmplx16_div_a16
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
#if OMP_40_ENABLED
// OpenMP 4.0: x = expr binop x for non-commutative operations. // OpenMP 4.0: x = expr binop x for non-commutative operations.
// Supported only on IA-32 architecture and Intel(R) 64 // Supported only on IA-32 architecture and Intel(R) 64
#if KMP_ARCH_X86 || KMP_ARCH_X86_64 #if KMP_ARCH_X86 || KMP_ARCH_X86_64
// ------------------------------------------------------------------------ // ------------------------------------------------------------------------
// Operation on *lhs, rhs bound by critical section // Operation on *lhs, rhs bound by critical section
// OP - operator (it's supposed to contain an assignment) // OP - operator (it's supposed to contain an assignment)
▲ Show 20 Lines • Show All 162 Lines • ▼ Show 20 LinesATOMIC_CRITICAL_REV(float16, sub, QUAD_LEGACY, -, 16r,
1) // __kmpc_atomic_float16_sub_rev 1) // __kmpc_atomic_float16_sub_rev
ATOMIC_CRITICAL_REV(float16, div, QUAD_LEGACY, /, 16r, ATOMIC_CRITICAL_REV(float16, div, QUAD_LEGACY, /, 16r,
1) // __kmpc_atomic_float16_div_rev 1) // __kmpc_atomic_float16_div_rev
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
ATOMIC_CRITICAL_REV(float16, sub_a16, Quad_a16_t, -, 16r, ATOMIC_CRITICAL_REV(float16, sub_a16, Quad_a16_t, -, 16r,
1) // __kmpc_atomic_float16_sub_a16_rev 1) // __kmpc_atomic_float16_sub_a16_rev
ATOMIC_CRITICAL_REV(float16, div_a16, Quad_a16_t, /, 16r, ATOMIC_CRITICAL_REV(float16, div_a16, Quad_a16_t, /, 16r,
1) // __kmpc_atomic_float16_div_a16_rev 1) // __kmpc_atomic_float16_div_a16_rev
#endif #endif // KMP_ARCH_X86
#endif #endif // KMP_HAVE_QUAD
// routines for complex types // routines for complex types
ATOMIC_CRITICAL_REV(cmplx4, sub, kmp_cmplx32, -, 8c, ATOMIC_CRITICAL_REV(cmplx4, sub, kmp_cmplx32, -, 8c,
1) // __kmpc_atomic_cmplx4_sub_rev 1) // __kmpc_atomic_cmplx4_sub_rev
ATOMIC_CRITICAL_REV(cmplx4, div, kmp_cmplx32, /, 8c, ATOMIC_CRITICAL_REV(cmplx4, div, kmp_cmplx32, /, 8c,
1) // __kmpc_atomic_cmplx4_div_rev 1) // __kmpc_atomic_cmplx4_div_rev
ATOMIC_CRITICAL_REV(cmplx8, sub, kmp_cmplx64, -, 16c, ATOMIC_CRITICAL_REV(cmplx8, sub, kmp_cmplx64, -, 16c,
1) // __kmpc_atomic_cmplx8_sub_rev 1) // __kmpc_atomic_cmplx8_sub_rev
ATOMIC_CRITICAL_REV(cmplx8, div, kmp_cmplx64, /, 16c, ATOMIC_CRITICAL_REV(cmplx8, div, kmp_cmplx64, /, 16c,
1) // __kmpc_atomic_cmplx8_div_rev 1) // __kmpc_atomic_cmplx8_div_rev
ATOMIC_CRITICAL_REV(cmplx10, sub, kmp_cmplx80, -, 20c, ATOMIC_CRITICAL_REV(cmplx10, sub, kmp_cmplx80, -, 20c,
1) // __kmpc_atomic_cmplx10_sub_rev 1) // __kmpc_atomic_cmplx10_sub_rev
ATOMIC_CRITICAL_REV(cmplx10, div, kmp_cmplx80, /, 20c, ATOMIC_CRITICAL_REV(cmplx10, div, kmp_cmplx80, /, 20c,
1) // __kmpc_atomic_cmplx10_div_rev 1) // __kmpc_atomic_cmplx10_div_rev
#if KMP_HAVE_QUAD #if KMP_HAVE_QUAD
ATOMIC_CRITICAL_REV(cmplx16, sub, CPLX128_LEG, -, 32c, ATOMIC_CRITICAL_REV(cmplx16, sub, CPLX128_LEG, -, 32c,
1) // __kmpc_atomic_cmplx16_sub_rev 1) // __kmpc_atomic_cmplx16_sub_rev
ATOMIC_CRITICAL_REV(cmplx16, div, CPLX128_LEG, /, 32c, ATOMIC_CRITICAL_REV(cmplx16, div, CPLX128_LEG, /, 32c,
1) // __kmpc_atomic_cmplx16_div_rev 1) // __kmpc_atomic_cmplx16_div_rev
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
ATOMIC_CRITICAL_REV(cmplx16, sub_a16, kmp_cmplx128_a16_t, -, 32c, ATOMIC_CRITICAL_REV(cmplx16, sub_a16, kmp_cmplx128_a16_t, -, 32c,
1) // __kmpc_atomic_cmplx16_sub_a16_rev 1) // __kmpc_atomic_cmplx16_sub_a16_rev
ATOMIC_CRITICAL_REV(cmplx16, div_a16, kmp_cmplx128_a16_t, /, 32c, ATOMIC_CRITICAL_REV(cmplx16, div_a16, kmp_cmplx128_a16_t, /, 32c,
1) // __kmpc_atomic_cmplx16_div_a16_rev 1) // __kmpc_atomic_cmplx16_div_a16_rev
#endif #endif // KMP_ARCH_X86
#endif #endif // KMP_HAVE_QUAD
#endif // KMP_ARCH_X86 || KMP_ARCH_X86_64 #endif // KMP_ARCH_X86 || KMP_ARCH_X86_64
// End of OpenMP 4.0: x = expr binop x for non-commutative operations. // End of OpenMP 4.0: x = expr binop x for non-commutative operations.
#endif // OMP_40_ENABLED
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
/* Routines for mixed types of LHS and RHS, when RHS is "larger" */ /* Routines for mixed types of LHS and RHS, when RHS is "larger" */
/* Note: in order to reduce the total number of types combinations */ /* Note: in order to reduce the total number of types combinations */
/* it is supposed that compiler converts RHS to longest floating type,*/ /* it is supposed that compiler converts RHS to longest floating type,*/
/* that is _Quad, before call to any of these routines */ /* that is _Quad, before call to any of these routines */
/* Conversion to _Quad will be done by the compiler during calculation, */ /* Conversion to _Quad will be done by the compiler during calculation, */
/* conversion back to TYPE - before the assignment, like: */ /* conversion back to TYPE - before the assignment, like: */
/* *lhs = (TYPE)( (_Quad)(*lhs) OP rhs ) */ /* *lhs = (TYPE)( (_Quad)(*lhs) OP rhs ) */
▲ Show 20 Lines • Show All 233 Lines • ▼ Show 20 LinesATOMIC_CMPXCHG_REV_MIX(float8, kmp_real64, div_rev, 64, /, fp, _Quad, 8r, 7,
KMP_ARCH_X86) // __kmpc_atomic_float8_div_rev_fp KMP_ARCH_X86) // __kmpc_atomic_float8_div_rev_fp
ATOMIC_CRITICAL_REV_FP(float10, long double, sub_rev, -, fp, _Quad, 10r, ATOMIC_CRITICAL_REV_FP(float10, long double, sub_rev, -, fp, _Quad, 10r,
1) // __kmpc_atomic_float10_sub_rev_fp 1) // __kmpc_atomic_float10_sub_rev_fp
ATOMIC_CRITICAL_REV_FP(float10, long double, div_rev, /, fp, _Quad, 10r, ATOMIC_CRITICAL_REV_FP(float10, long double, div_rev, /, fp, _Quad, 10r,
1) // __kmpc_atomic_float10_div_rev_fp 1) // __kmpc_atomic_float10_div_rev_fp
#endif /* KMP_ARCH_X86 || KMP_ARCH_X86_64 */ #endif /* KMP_ARCH_X86 || KMP_ARCH_X86_64 */
#endif #endif // KMP_HAVE_QUAD
#if KMP_ARCH_X86 || KMP_ARCH_X86_64 #if KMP_ARCH_X86 || KMP_ARCH_X86_64
// ------------------------------------------------------------------------ // ------------------------------------------------------------------------
// X86 or X86_64: no alignment problems ==================================== // X86 or X86_64: no alignment problems ====================================
#if USE_CMPXCHG_FIX #if USE_CMPXCHG_FIX
// workaround for C78287 (complex(kind=4) data type) // workaround for C78287 (complex(kind=4) data type)
#define ATOMIC_CMPXCHG_CMPLX(TYPE_ID, TYPE, OP_ID, BITS, OP, RTYPE_ID, RTYPE, \ #define ATOMIC_CMPXCHG_CMPLX(TYPE_ID, TYPE, OP_ID, BITS, OP, RTYPE_ID, RTYPE, \
LCK_ID, MASK, GOMP_FLAG) \ LCK_ID, MASK, GOMP_FLAG) \
▲ Show 20 Lines • Show All 197 Lines • ▼ Show 20 Lines
// Fix for CQ220361 on Windows* OS // Fix for CQ220361 on Windows* OS
#if (KMP_OS_WINDOWS) #if (KMP_OS_WINDOWS)
ATOMIC_CRITICAL_READ_WRK(cmplx4, rd, kmp_cmplx32, +, 8c, ATOMIC_CRITICAL_READ_WRK(cmplx4, rd, kmp_cmplx32, +, 8c,
1) // __kmpc_atomic_cmplx4_rd 1) // __kmpc_atomic_cmplx4_rd
#else #else
ATOMIC_CRITICAL_READ(cmplx4, rd, kmp_cmplx32, +, 8c, ATOMIC_CRITICAL_READ(cmplx4, rd, kmp_cmplx32, +, 8c,
1) // __kmpc_atomic_cmplx4_rd 1) // __kmpc_atomic_cmplx4_rd
#endif #endif // (KMP_OS_WINDOWS)
ATOMIC_CRITICAL_READ(cmplx8, rd, kmp_cmplx64, +, 16c, ATOMIC_CRITICAL_READ(cmplx8, rd, kmp_cmplx64, +, 16c,
1) // __kmpc_atomic_cmplx8_rd 1) // __kmpc_atomic_cmplx8_rd
ATOMIC_CRITICAL_READ(cmplx10, rd, kmp_cmplx80, +, 20c, ATOMIC_CRITICAL_READ(cmplx10, rd, kmp_cmplx80, +, 20c,
1) // __kmpc_atomic_cmplx10_rd 1) // __kmpc_atomic_cmplx10_rd
#if KMP_HAVE_QUAD #if KMP_HAVE_QUAD
ATOMIC_CRITICAL_READ(cmplx16, rd, CPLX128_LEG, +, 32c, ATOMIC_CRITICAL_READ(cmplx16, rd, CPLX128_LEG, +, 32c,
1) // __kmpc_atomic_cmplx16_rd 1) // __kmpc_atomic_cmplx16_rd
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
ATOMIC_CRITICAL_READ(float16, a16_rd, Quad_a16_t, +, 16r, ATOMIC_CRITICAL_READ(float16, a16_rd, Quad_a16_t, +, 16r,
1) // __kmpc_atomic_float16_a16_rd 1) // __kmpc_atomic_float16_a16_rd
ATOMIC_CRITICAL_READ(cmplx16, a16_rd, kmp_cmplx128_a16_t, +, 32c, ATOMIC_CRITICAL_READ(cmplx16, a16_rd, kmp_cmplx128_a16_t, +, 32c,
1) // __kmpc_atomic_cmplx16_a16_rd 1) // __kmpc_atomic_cmplx16_a16_rd
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
// ------------------------------------------------------------------------ // ------------------------------------------------------------------------
// Atomic WRITE routines // Atomic WRITE routines
#define ATOMIC_XCHG_WR(TYPE_ID, OP_ID, TYPE, BITS, OP, GOMP_FLAG) \ #define ATOMIC_XCHG_WR(TYPE_ID, OP_ID, TYPE, BITS, OP, GOMP_FLAG) \
ATOMIC_BEGIN(TYPE_ID, OP_ID, TYPE, void) \ ATOMIC_BEGIN(TYPE_ID, OP_ID, TYPE, void) \
OP_GOMP_CRITICAL(OP, GOMP_FLAG) \ OP_GOMP_CRITICAL(OP, GOMP_FLAG) \
KMP_XCHG_FIXED##BITS(lhs, rhs); \ KMP_XCHG_FIXED##BITS(lhs, rhs); \
▲ Show 20 Lines • Show All 57 Lines • ▼ Show 20 Lines
ATOMIC_XCHG_WR(fixed4, wr, kmp_int32, 32, =, ATOMIC_XCHG_WR(fixed4, wr, kmp_int32, 32, =,
KMP_ARCH_X86) // __kmpc_atomic_fixed4_wr KMP_ARCH_X86) // __kmpc_atomic_fixed4_wr
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
ATOMIC_CMPXCHG_WR(fixed8, wr, kmp_int64, 64, =, ATOMIC_CMPXCHG_WR(fixed8, wr, kmp_int64, 64, =,
KMP_ARCH_X86) // __kmpc_atomic_fixed8_wr KMP_ARCH_X86) // __kmpc_atomic_fixed8_wr
#else #else
ATOMIC_XCHG_WR(fixed8, wr, kmp_int64, 64, =, ATOMIC_XCHG_WR(fixed8, wr, kmp_int64, 64, =,
KMP_ARCH_X86) // __kmpc_atomic_fixed8_wr KMP_ARCH_X86) // __kmpc_atomic_fixed8_wr
#endif #endif // (KMP_ARCH_X86)
ATOMIC_XCHG_FLOAT_WR(float4, wr, kmp_real32, 32, =, ATOMIC_XCHG_FLOAT_WR(float4, wr, kmp_real32, 32, =,
KMP_ARCH_X86) // __kmpc_atomic_float4_wr KMP_ARCH_X86) // __kmpc_atomic_float4_wr
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
ATOMIC_CMPXCHG_WR(float8, wr, kmp_real64, 64, =, ATOMIC_CMPXCHG_WR(float8, wr, kmp_real64, 64, =,
KMP_ARCH_X86) // __kmpc_atomic_float8_wr KMP_ARCH_X86) // __kmpc_atomic_float8_wr
#else #else
ATOMIC_XCHG_FLOAT_WR(float8, wr, kmp_real64, 64, =, ATOMIC_XCHG_FLOAT_WR(float8, wr, kmp_real64, 64, =,
KMP_ARCH_X86) // __kmpc_atomic_float8_wr KMP_ARCH_X86) // __kmpc_atomic_float8_wr
#endif #endif // (KMP_ARCH_X86)
ATOMIC_CRITICAL_WR(float10, wr, long double, =, 10r, ATOMIC_CRITICAL_WR(float10, wr, long double, =, 10r,
1) // __kmpc_atomic_float10_wr 1) // __kmpc_atomic_float10_wr
#if KMP_HAVE_QUAD #if KMP_HAVE_QUAD
ATOMIC_CRITICAL_WR(float16, wr, QUAD_LEGACY, =, 16r, ATOMIC_CRITICAL_WR(float16, wr, QUAD_LEGACY, =, 16r,
1) // __kmpc_atomic_float16_wr 1) // __kmpc_atomic_float16_wr
#endif #endif // KMP_HAVE_QUAD
ATOMIC_CRITICAL_WR(cmplx4, wr, kmp_cmplx32, =, 8c, 1) // __kmpc_atomic_cmplx4_wr ATOMIC_CRITICAL_WR(cmplx4, wr, kmp_cmplx32, =, 8c, 1) // __kmpc_atomic_cmplx4_wr
ATOMIC_CRITICAL_WR(cmplx8, wr, kmp_cmplx64, =, 16c, ATOMIC_CRITICAL_WR(cmplx8, wr, kmp_cmplx64, =, 16c,
1) // __kmpc_atomic_cmplx8_wr 1) // __kmpc_atomic_cmplx8_wr
ATOMIC_CRITICAL_WR(cmplx10, wr, kmp_cmplx80, =, 20c, ATOMIC_CRITICAL_WR(cmplx10, wr, kmp_cmplx80, =, 20c,
1) // __kmpc_atomic_cmplx10_wr 1) // __kmpc_atomic_cmplx10_wr
#if KMP_HAVE_QUAD #if KMP_HAVE_QUAD
ATOMIC_CRITICAL_WR(cmplx16, wr, CPLX128_LEG, =, 32c, ATOMIC_CRITICAL_WR(cmplx16, wr, CPLX128_LEG, =, 32c,
1) // __kmpc_atomic_cmplx16_wr 1) // __kmpc_atomic_cmplx16_wr
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
ATOMIC_CRITICAL_WR(float16, a16_wr, Quad_a16_t, =, 16r, ATOMIC_CRITICAL_WR(float16, a16_wr, Quad_a16_t, =, 16r,
1) // __kmpc_atomic_float16_a16_wr 1) // __kmpc_atomic_float16_a16_wr
ATOMIC_CRITICAL_WR(cmplx16, a16_wr, kmp_cmplx128_a16_t, =, 32c, ATOMIC_CRITICAL_WR(cmplx16, a16_wr, kmp_cmplx128_a16_t, =, 32c,
1) // __kmpc_atomic_cmplx16_a16_wr 1) // __kmpc_atomic_cmplx16_a16_wr
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
// ------------------------------------------------------------------------ // ------------------------------------------------------------------------
// Atomic CAPTURE routines // Atomic CAPTURE routines
// Beginning of a definition (provides name, parameters, gebug trace) // Beginning of a definition (provides name, parameters, gebug trace)
// TYPE_ID - operands type and size (fixed*, fixed*u for signed, unsigned // TYPE_ID - operands type and size (fixed*, fixed*u for signed, unsigned
// fixed) // fixed)
// OP_ID - operation identifier (add, sub, mul, ...) // OP_ID - operation identifier (add, sub, mul, ...)
▲ Show 20 Lines • Show All 503 Lines • ▼ Show 20 LinesMIN_MAX_CRITICAL_CPT(float16, max_cpt, QUAD_LEGACY, <, 16r,
1) // __kmpc_atomic_float16_max_cpt 1) // __kmpc_atomic_float16_max_cpt
MIN_MAX_CRITICAL_CPT(float16, min_cpt, QUAD_LEGACY, >, 16r, MIN_MAX_CRITICAL_CPT(float16, min_cpt, QUAD_LEGACY, >, 16r,
1) // __kmpc_atomic_float16_min_cpt 1) // __kmpc_atomic_float16_min_cpt
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
MIN_MAX_CRITICAL_CPT(float16, max_a16_cpt, Quad_a16_t, <, 16r, MIN_MAX_CRITICAL_CPT(float16, max_a16_cpt, Quad_a16_t, <, 16r,
1) // __kmpc_atomic_float16_max_a16_cpt 1) // __kmpc_atomic_float16_max_a16_cpt
MIN_MAX_CRITICAL_CPT(float16, min_a16_cpt, Quad_a16_t, >, 16r, MIN_MAX_CRITICAL_CPT(float16, min_a16_cpt, Quad_a16_t, >, 16r,
1) // __kmpc_atomic_float16_mix_a16_cpt 1) // __kmpc_atomic_float16_mix_a16_cpt
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
// ------------------------------------------------------------------------ // ------------------------------------------------------------------------
#ifdef KMP_GOMP_COMPAT #ifdef KMP_GOMP_COMPAT
#define OP_GOMP_CRITICAL_EQV_CPT(OP, FLAG) \ #define OP_GOMP_CRITICAL_EQV_CPT(OP, FLAG) \
if ((FLAG) && (__kmp_atomic_mode == 2)) { \ if ((FLAG) && (__kmp_atomic_mode == 2)) { \
KMP_CHECK_GTID; \ KMP_CHECK_GTID; \
OP_CRITICAL_CPT(OP, 0); \ OP_CRITICAL_CPT(OP, 0); \
} }
▲ Show 20 Lines • Show All 107 Lines • ▼ Show 20 Lines
ATOMIC_CRITICAL_CPT(float16, add_a16_cpt, Quad_a16_t, +, 16r, ATOMIC_CRITICAL_CPT(float16, add_a16_cpt, Quad_a16_t, +, 16r,
1) // __kmpc_atomic_float16_add_a16_cpt 1) // __kmpc_atomic_float16_add_a16_cpt
ATOMIC_CRITICAL_CPT(float16, sub_a16_cpt, Quad_a16_t, -, 16r, ATOMIC_CRITICAL_CPT(float16, sub_a16_cpt, Quad_a16_t, -, 16r,
1) // __kmpc_atomic_float16_sub_a16_cpt 1) // __kmpc_atomic_float16_sub_a16_cpt
ATOMIC_CRITICAL_CPT(float16, mul_a16_cpt, Quad_a16_t, *, 16r, ATOMIC_CRITICAL_CPT(float16, mul_a16_cpt, Quad_a16_t, *, 16r,
1) // __kmpc_atomic_float16_mul_a16_cpt 1) // __kmpc_atomic_float16_mul_a16_cpt
ATOMIC_CRITICAL_CPT(float16, div_a16_cpt, Quad_a16_t, /, 16r, ATOMIC_CRITICAL_CPT(float16, div_a16_cpt, Quad_a16_t, /, 16r,
1) // __kmpc_atomic_float16_div_a16_cpt 1) // __kmpc_atomic_float16_div_a16_cpt
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
// routines for complex types // routines for complex types
// cmplx4 routines to return void // cmplx4 routines to return void
ATOMIC_CRITICAL_CPT_WRK(cmplx4, add_cpt, kmp_cmplx32, +, 8c, ATOMIC_CRITICAL_CPT_WRK(cmplx4, add_cpt, kmp_cmplx32, +, 8c,
1) // __kmpc_atomic_cmplx4_add_cpt 1) // __kmpc_atomic_cmplx4_add_cpt
ATOMIC_CRITICAL_CPT_WRK(cmplx4, sub_cpt, kmp_cmplx32, -, 8c, ATOMIC_CRITICAL_CPT_WRK(cmplx4, sub_cpt, kmp_cmplx32, -, 8c,
1) // __kmpc_atomic_cmplx4_sub_cpt 1) // __kmpc_atomic_cmplx4_sub_cpt
Show All 31 Lines
ATOMIC_CRITICAL_CPT(cmplx16, add_a16_cpt, kmp_cmplx128_a16_t, +, 32c, ATOMIC_CRITICAL_CPT(cmplx16, add_a16_cpt, kmp_cmplx128_a16_t, +, 32c,
1) // __kmpc_atomic_cmplx16_add_a16_cpt 1) // __kmpc_atomic_cmplx16_add_a16_cpt
ATOMIC_CRITICAL_CPT(cmplx16, sub_a16_cpt, kmp_cmplx128_a16_t, -, 32c, ATOMIC_CRITICAL_CPT(cmplx16, sub_a16_cpt, kmp_cmplx128_a16_t, -, 32c,
1) // __kmpc_atomic_cmplx16_sub_a16_cpt 1) // __kmpc_atomic_cmplx16_sub_a16_cpt
ATOMIC_CRITICAL_CPT(cmplx16, mul_a16_cpt, kmp_cmplx128_a16_t, *, 32c, ATOMIC_CRITICAL_CPT(cmplx16, mul_a16_cpt, kmp_cmplx128_a16_t, *, 32c,
1) // __kmpc_atomic_cmplx16_mul_a16_cpt 1) // __kmpc_atomic_cmplx16_mul_a16_cpt
ATOMIC_CRITICAL_CPT(cmplx16, div_a16_cpt, kmp_cmplx128_a16_t, /, 32c, ATOMIC_CRITICAL_CPT(cmplx16, div_a16_cpt, kmp_cmplx128_a16_t, /, 32c,
1) // __kmpc_atomic_cmplx16_div_a16_cpt 1) // __kmpc_atomic_cmplx16_div_a16_cpt
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
#if OMP_40_ENABLED
// OpenMP 4.0: v = x = expr binop x; { v = x; x = expr binop x; } { x = expr // OpenMP 4.0: v = x = expr binop x; { v = x; x = expr binop x; } { x = expr
// binop x; v = x; } for non-commutative operations. // binop x; v = x; } for non-commutative operations.
// Supported only on IA-32 architecture and Intel(R) 64 // Supported only on IA-32 architecture and Intel(R) 64
// ------------------------------------------------------------------------- // -------------------------------------------------------------------------
// Operation on *lhs, rhs bound by critical section // Operation on *lhs, rhs bound by critical section
// OP - operator (it's supposed to contain an assignment) // OP - operator (it's supposed to contain an assignment)
▲ Show 20 Lines • Show All 146 Lines • ▼ Show 20 LinesATOMIC_CRITICAL_CPT_REV(float16, sub_cpt_rev, QUAD_LEGACY, -, 16r,
1) // __kmpc_atomic_float16_sub_cpt_rev 1) // __kmpc_atomic_float16_sub_cpt_rev
ATOMIC_CRITICAL_CPT_REV(float16, div_cpt_rev, QUAD_LEGACY, /, 16r, ATOMIC_CRITICAL_CPT_REV(float16, div_cpt_rev, QUAD_LEGACY, /, 16r,
1) // __kmpc_atomic_float16_div_cpt_rev 1) // __kmpc_atomic_float16_div_cpt_rev
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
ATOMIC_CRITICAL_CPT_REV(float16, sub_a16_cpt_rev, Quad_a16_t, -, 16r, ATOMIC_CRITICAL_CPT_REV(float16, sub_a16_cpt_rev, Quad_a16_t, -, 16r,
1) // __kmpc_atomic_float16_sub_a16_cpt_rev 1) // __kmpc_atomic_float16_sub_a16_cpt_rev
ATOMIC_CRITICAL_CPT_REV(float16, div_a16_cpt_rev, Quad_a16_t, /, 16r, ATOMIC_CRITICAL_CPT_REV(float16, div_a16_cpt_rev, Quad_a16_t, /, 16r,
1) // __kmpc_atomic_float16_div_a16_cpt_rev 1) // __kmpc_atomic_float16_div_a16_cpt_rev
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
// routines for complex types // routines for complex types
// ------------------------------------------------------------------------ // ------------------------------------------------------------------------
// Workaround for cmplx4. Regular routines with return value don't work // Workaround for cmplx4. Regular routines with return value don't work
// on Win_32e. Let's return captured values through the additional parameter. // on Win_32e. Let's return captured values through the additional parameter.
#define OP_CRITICAL_CPT_REV_WRK(OP, LCK_ID) \ #define OP_CRITICAL_CPT_REV_WRK(OP, LCK_ID) \
__kmp_acquire_atomic_lock(&ATOMIC_LOCK##LCK_ID, gtid); \ __kmp_acquire_atomic_lock(&ATOMIC_LOCK##LCK_ID, gtid); \
▲ Show 20 Lines • Show All 49 Lines • ▼ Show 20 LinesATOMIC_CRITICAL_CPT_REV(cmplx16, sub_cpt_rev, CPLX128_LEG, -, 32c,
1) // __kmpc_atomic_cmplx16_sub_cpt_rev 1) // __kmpc_atomic_cmplx16_sub_cpt_rev
ATOMIC_CRITICAL_CPT_REV(cmplx16, div_cpt_rev, CPLX128_LEG, /, 32c, ATOMIC_CRITICAL_CPT_REV(cmplx16, div_cpt_rev, CPLX128_LEG, /, 32c,
1) // __kmpc_atomic_cmplx16_div_cpt_rev 1) // __kmpc_atomic_cmplx16_div_cpt_rev
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
ATOMIC_CRITICAL_CPT_REV(cmplx16, sub_a16_cpt_rev, kmp_cmplx128_a16_t, -, 32c, ATOMIC_CRITICAL_CPT_REV(cmplx16, sub_a16_cpt_rev, kmp_cmplx128_a16_t, -, 32c,
1) // __kmpc_atomic_cmplx16_sub_a16_cpt_rev 1) // __kmpc_atomic_cmplx16_sub_a16_cpt_rev
ATOMIC_CRITICAL_CPT_REV(cmplx16, div_a16_cpt_rev, kmp_cmplx128_a16_t, /, 32c, ATOMIC_CRITICAL_CPT_REV(cmplx16, div_a16_cpt_rev, kmp_cmplx128_a16_t, /, 32c,
1) // __kmpc_atomic_cmplx16_div_a16_cpt_rev 1) // __kmpc_atomic_cmplx16_div_a16_cpt_rev
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
// Capture reverse for mixed type: RHS=float16 // Capture reverse for mixed type: RHS=float16
#if KMP_HAVE_QUAD #if KMP_HAVE_QUAD
// Beginning of a definition (provides name, parameters, gebug trace) // Beginning of a definition (provides name, parameters, gebug trace)
// TYPE_ID - operands type and size (fixed*, fixed*u for signed, unsigned // TYPE_ID - operands type and size (fixed*, fixed*u for signed, unsigned
// fixed) // fixed)
// OP_ID - operation identifier (add, sub, mul, ...) // OP_ID - operation identifier (add, sub, mul, ...)
▲ Show 20 Lines • Show All 162 Lines • ▼ Show 20 Lines
ATOMIC_CMPXCHG_SWP(fixed8, kmp_int64, 64, ATOMIC_CMPXCHG_SWP(fixed8, kmp_int64, 64,
KMP_ARCH_X86) // __kmpc_atomic_fixed8_swp KMP_ARCH_X86) // __kmpc_atomic_fixed8_swp
ATOMIC_CMPXCHG_SWP(float8, kmp_real64, 64, ATOMIC_CMPXCHG_SWP(float8, kmp_real64, 64,
KMP_ARCH_X86) // __kmpc_atomic_float8_swp KMP_ARCH_X86) // __kmpc_atomic_float8_swp
#else #else
ATOMIC_XCHG_SWP(fixed8, kmp_int64, 64, KMP_ARCH_X86) // __kmpc_atomic_fixed8_swp ATOMIC_XCHG_SWP(fixed8, kmp_int64, 64, KMP_ARCH_X86) // __kmpc_atomic_fixed8_swp
ATOMIC_XCHG_FLOAT_SWP(float8, kmp_real64, 64, ATOMIC_XCHG_FLOAT_SWP(float8, kmp_real64, 64,
KMP_ARCH_X86) // __kmpc_atomic_float8_swp KMP_ARCH_X86) // __kmpc_atomic_float8_swp
#endif #endif // (KMP_ARCH_X86)
// ------------------------------------------------------------------------ // ------------------------------------------------------------------------
// Routines for Extended types: long double, _Quad, complex flavours (use // Routines for Extended types: long double, _Quad, complex flavours (use
// critical section) // critical section)
#define ATOMIC_CRITICAL_SWP(TYPE_ID, TYPE, LCK_ID, GOMP_FLAG) \ #define ATOMIC_CRITICAL_SWP(TYPE_ID, TYPE, LCK_ID, GOMP_FLAG) \
ATOMIC_BEGIN_SWP(TYPE_ID, TYPE) \ ATOMIC_BEGIN_SWP(TYPE_ID, TYPE) \
TYPE old_value; \ TYPE old_value; \
GOMP_CRITICAL_SWP(GOMP_FLAG) \ GOMP_CRITICAL_SWP(GOMP_FLAG) \
Show All 38 Lines#define ATOMIC_CRITICAL_SWP_WRK(TYPE_ID, TYPE, LCK_ID, GOMP_FLAG) \
GOMP_CRITICAL_SWP_WRK(GOMP_FLAG) \ GOMP_CRITICAL_SWP_WRK(GOMP_FLAG) \
CRITICAL_SWP_WRK(LCK_ID) \ CRITICAL_SWP_WRK(LCK_ID) \
} }
// The end of workaround for cmplx4 // The end of workaround for cmplx4
ATOMIC_CRITICAL_SWP(float10, long double, 10r, 1) // __kmpc_atomic_float10_swp ATOMIC_CRITICAL_SWP(float10, long double, 10r, 1) // __kmpc_atomic_float10_swp
#if KMP_HAVE_QUAD #if KMP_HAVE_QUAD
ATOMIC_CRITICAL_SWP(float16, QUAD_LEGACY, 16r, 1) // __kmpc_atomic_float16_swp ATOMIC_CRITICAL_SWP(float16, QUAD_LEGACY, 16r, 1) // __kmpc_atomic_float16_swp
#endif #endif // KMP_HAVE_QUAD
// cmplx4 routine to return void // cmplx4 routine to return void
ATOMIC_CRITICAL_SWP_WRK(cmplx4, kmp_cmplx32, 8c, 1) // __kmpc_atomic_cmplx4_swp ATOMIC_CRITICAL_SWP_WRK(cmplx4, kmp_cmplx32, 8c, 1) // __kmpc_atomic_cmplx4_swp
// ATOMIC_CRITICAL_SWP( cmplx4, kmp_cmplx32, 8c, 1 ) // // ATOMIC_CRITICAL_SWP( cmplx4, kmp_cmplx32, 8c, 1 ) //
// __kmpc_atomic_cmplx4_swp // __kmpc_atomic_cmplx4_swp
ATOMIC_CRITICAL_SWP(cmplx8, kmp_cmplx64, 16c, 1) // __kmpc_atomic_cmplx8_swp ATOMIC_CRITICAL_SWP(cmplx8, kmp_cmplx64, 16c, 1) // __kmpc_atomic_cmplx8_swp
ATOMIC_CRITICAL_SWP(cmplx10, kmp_cmplx80, 20c, 1) // __kmpc_atomic_cmplx10_swp ATOMIC_CRITICAL_SWP(cmplx10, kmp_cmplx80, 20c, 1) // __kmpc_atomic_cmplx10_swp
#if KMP_HAVE_QUAD #if KMP_HAVE_QUAD
ATOMIC_CRITICAL_SWP(cmplx16, CPLX128_LEG, 32c, 1) // __kmpc_atomic_cmplx16_swp ATOMIC_CRITICAL_SWP(cmplx16, CPLX128_LEG, 32c, 1) // __kmpc_atomic_cmplx16_swp
#if (KMP_ARCH_X86) #if (KMP_ARCH_X86)
ATOMIC_CRITICAL_SWP(float16_a16, Quad_a16_t, 16r, ATOMIC_CRITICAL_SWP(float16_a16, Quad_a16_t, 16r,
1) // __kmpc_atomic_float16_a16_swp 1) // __kmpc_atomic_float16_a16_swp
ATOMIC_CRITICAL_SWP(cmplx16_a16, kmp_cmplx128_a16_t, 32c, ATOMIC_CRITICAL_SWP(cmplx16_a16, kmp_cmplx128_a16_t, 32c,
1) // __kmpc_atomic_cmplx16_a16_swp 1) // __kmpc_atomic_cmplx16_a16_swp
#endif #endif // (KMP_ARCH_X86)
#endif #endif // KMP_HAVE_QUAD
// End of OpenMP 4.0 Capture // End of OpenMP 4.0 Capture
#endif // OMP_40_ENABLED
#endif // KMP_ARCH_X86 || KMP_ARCH_X86_64 #endif // KMP_ARCH_X86 || KMP_ARCH_X86_64
#undef OP_CRITICAL #undef OP_CRITICAL
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
/* Generic atomic routines */ /* Generic atomic routines */
void __kmpc_atomic_1(ident_t *id_ref, int gtid, void *lhs, void *rhs, void __kmpc_atomic_1(ident_t *id_ref, int gtid, void *lhs, void *rhs,
void (*f)(void *, void *, void *)) { void (*f)(void *, void *, void *)) {
KMP_DEBUG_ASSERT(__kmp_init_serial); KMP_DEBUG_ASSERT(__kmp_init_serial);
if ( if (
#if KMP_ARCH_X86 && defined(KMP_GOMP_COMPAT) #if KMP_ARCH_X86 && defined(KMP_GOMP_COMPAT)
FALSE /* must use lock */ FALSE /* must use lock */
#else #else
TRUE TRUE
#endif #endif // KMP_ARCH_X86 && defined(KMP_GOMP_COMPAT)
) { ) {
kmp_int8 old_value, new_value; kmp_int8 old_value, new_value;
old_value = *(kmp_int8 *)lhs; old_value = *(kmp_int8 *)lhs;
(*f)(&new_value, &old_value, rhs); (*f)(&new_value, &old_value, rhs);
/* TODO: Should this be acquire or release? */ /* TODO: Should this be acquire or release? */
while (!KMP_COMPARE_AND_STORE_ACQ8((kmp_int8 *)lhs, *(kmp_int8 *)&old_value, while (!KMP_COMPARE_AND_STORE_ACQ8((kmp_int8 *)lhs, *(kmp_int8 *)&old_value,
Show All 30 Linesvoid __kmpc_atomic_2(ident_t *id_ref, int gtid, void *lhs, void *rhs,
void (*f)(void *, void *, void *)) { void (*f)(void *, void *, void *)) {
if ( if (
#if KMP_ARCH_X86 && defined(KMP_GOMP_COMPAT) #if KMP_ARCH_X86 && defined(KMP_GOMP_COMPAT)
FALSE /* must use lock */ FALSE /* must use lock */
#elif KMP_ARCH_X86 || KMP_ARCH_X86_64 #elif KMP_ARCH_X86 || KMP_ARCH_X86_64
TRUE /* no alignment problems */ TRUE /* no alignment problems */
#else #else
!((kmp_uintptr_t)lhs & 0x1) /* make sure address is 2-byte aligned */ !((kmp_uintptr_t)lhs & 0x1) /* make sure address is 2-byte aligned */
#endif #endif // KMP_ARCH_X86 && defined(KMP_GOMP_COMPAT)
) { ) {
kmp_int16 old_value, new_value; kmp_int16 old_value, new_value;
old_value = *(kmp_int16 *)lhs; old_value = *(kmp_int16 *)lhs;
(*f)(&new_value, &old_value, rhs); (*f)(&new_value, &old_value, rhs);
/* TODO: Should this be acquire or release? */ /* TODO: Should this be acquire or release? */
while (!KMP_COMPARE_AND_STORE_ACQ16( while (!KMP_COMPARE_AND_STORE_ACQ16(
Show All 32 Linesvoid __kmpc_atomic_4(ident_t *id_ref, int gtid, void *lhs, void *rhs,
if ( if (
// FIXME: On IA-32 architecture, gcc uses cmpxchg only for 4-byte ints. // FIXME: On IA-32 architecture, gcc uses cmpxchg only for 4-byte ints.
// Gomp compatibility is broken if this routine is called for floats. // Gomp compatibility is broken if this routine is called for floats.
#if KMP_ARCH_X86 || KMP_ARCH_X86_64 #if KMP_ARCH_X86 || KMP_ARCH_X86_64
TRUE /* no alignment problems */ TRUE /* no alignment problems */
#else #else
!((kmp_uintptr_t)lhs & 0x3) /* make sure address is 4-byte aligned */ !((kmp_uintptr_t)lhs & 0x3) /* make sure address is 4-byte aligned */
#endif #endif // KMP_ARCH_X86 || KMP_ARCH_X86_64
) { ) {
kmp_int32 old_value, new_value; kmp_int32 old_value, new_value;
old_value = *(kmp_int32 *)lhs; old_value = *(kmp_int32 *)lhs;
(*f)(&new_value, &old_value, rhs); (*f)(&new_value, &old_value, rhs);
/* TODO: Should this be acquire or release? */ /* TODO: Should this be acquire or release? */
while (!KMP_COMPARE_AND_STORE_ACQ32( while (!KMP_COMPARE_AND_STORE_ACQ32(
Show All 33 Linesvoid __kmpc_atomic_8(ident_t *id_ref, int gtid, void *lhs, void *rhs,
if ( if (
#if KMP_ARCH_X86 && defined(KMP_GOMP_COMPAT) #if KMP_ARCH_X86 && defined(KMP_GOMP_COMPAT)
FALSE /* must use lock */ FALSE /* must use lock */
#elif KMP_ARCH_X86 || KMP_ARCH_X86_64 #elif KMP_ARCH_X86 || KMP_ARCH_X86_64
TRUE /* no alignment problems */ TRUE /* no alignment problems */
#else #else
!((kmp_uintptr_t)lhs & 0x7) /* make sure address is 8-byte aligned */ !((kmp_uintptr_t)lhs & 0x7) /* make sure address is 8-byte aligned */
#endif #endif // KMP_ARCH_X86 && defined(KMP_GOMP_COMPAT)
) { ) {
kmp_int64 old_value, new_value; kmp_int64 old_value, new_value;
old_value = *(kmp_int64 *)lhs; old_value = *(kmp_int64 *)lhs;
(*f)(&new_value, &old_value, rhs); (*f)(&new_value, &old_value, rhs);
/* TODO: Should this be acquire or release? */ /* TODO: Should this be acquire or release? */
while (!KMP_COMPARE_AND_STORE_ACQ64( while (!KMP_COMPARE_AND_STORE_ACQ64(
(kmp_int64 *)lhs, *(kmp_int64 *)&old_value, *(kmp_int64 *)&new_value)) { (kmp_int64 *)lhs, *(kmp_int64 *)&old_value, *(kmp_int64 *)&new_value)) {
▲ Show 20 Lines • Show All 133 Lines • Show Last 20 Lines

runtime/src/kmp_barrier.cpp

Show First 20 Lines • Show All 863 Lines • ▼ Show 20 Linesstatic void __kmp_hierarchical_barrier_gather(
KMP_TIME_DEVELOPER_PARTITIONED_BLOCK(KMP_hier_gather); KMP_TIME_DEVELOPER_PARTITIONED_BLOCK(KMP_hier_gather);
kmp_team_t *team = this_thr->th.th_team; kmp_team_t *team = this_thr->th.th_team;
kmp_bstate_t *thr_bar = &this_thr->th.th_bar[bt].bb; kmp_bstate_t *thr_bar = &this_thr->th.th_bar[bt].bb;
kmp_uint32 nproc = this_thr->th.th_team_nproc; kmp_uint32 nproc = this_thr->th.th_team_nproc;
kmp_info_t **other_threads = team->t.t_threads; kmp_info_t **other_threads = team->t.t_threads;
kmp_uint64 new_state; kmp_uint64 new_state;
int level = team->t.t_level; int level = team->t.t_level;
#if OMP_40_ENABLED
if (other_threads[0] if (other_threads[0]
->th.th_teams_microtask) // are we inside the teams construct? ->th.th_teams_microtask) // are we inside the teams construct?
if (this_thr->th.th_teams_size.nteams > 1) if (this_thr->th.th_teams_size.nteams > 1)
++level; // level was not increased in teams construct for team_of_masters ++level; // level was not increased in teams construct for team_of_masters
#endif
if (level == 1) if (level == 1)
thr_bar->use_oncore_barrier = 1; thr_bar->use_oncore_barrier = 1;
else else
thr_bar->use_oncore_barrier = 0; // Do not use oncore barrier when nested thr_bar->use_oncore_barrier = 0; // Do not use oncore barrier when nested
KA_TRACE(20, ("__kmp_hierarchical_barrier_gather: T#%d(%d:%d) enter for " KA_TRACE(20, ("__kmp_hierarchical_barrier_gather: T#%d(%d:%d) enter for "
"barrier type %d\n", "barrier type %d\n",
gtid, team->t.t_id, tid, bt)); gtid, team->t.t_id, tid, bt));
▲ Show 20 Lines • Show All 208 Lines • ▼ Show 20 Lines KA_TRACE(
20, 20,
("__kmp_hierarchical_barrier_release: T#%d(%d:%d) set go(%p) = %u\n", ("__kmp_hierarchical_barrier_release: T#%d(%d:%d) set go(%p) = %u\n",
gtid, team->t.t_id, tid, &thr_bar->b_go, KMP_INIT_BARRIER_STATE)); gtid, team->t.t_id, tid, &thr_bar->b_go, KMP_INIT_BARRIER_STATE));
KMP_MB(); // Flush all pending memory write invalidates. KMP_MB(); // Flush all pending memory write invalidates.
} }
nproc = this_thr->th.th_team_nproc; nproc = this_thr->th.th_team_nproc;
int level = team->t.t_level; int level = team->t.t_level;
#if OMP_40_ENABLED
if (team->t.t_threads[0] if (team->t.t_threads[0]
->th.th_teams_microtask) { // are we inside the teams construct? ->th.th_teams_microtask) { // are we inside the teams construct?
if (team->t.t_pkfn != (microtask_t)__kmp_teams_master && if (team->t.t_pkfn != (microtask_t)__kmp_teams_master &&
this_thr->th.th_teams_level == level) this_thr->th.th_teams_level == level)
++level; // level was not increased in teams construct for team_of_workers ++level; // level was not increased in teams construct for team_of_workers
if (this_thr->th.th_teams_size.nteams > 1) if (this_thr->th.th_teams_size.nteams > 1)
++level; // level was not increased in teams construct for team_of_masters ++level; // level was not increased in teams construct for team_of_masters
} }
#endif
if (level == 1) if (level == 1)
thr_bar->use_oncore_barrier = 1; thr_bar->use_oncore_barrier = 1;
else else
thr_bar->use_oncore_barrier = 0; // Do not use oncore barrier when nested thr_bar->use_oncore_barrier = 0; // Do not use oncore barrier when nested
// If the team size has increased, we still communicate with old leaves via // If the team size has increased, we still communicate with old leaves via
// oncore barrier. // oncore barrier.
unsigned short int old_leaf_kids = thr_bar->leaf_kids; unsigned short int old_leaf_kids = thr_bar->leaf_kids;
▲ Show 20 Lines • Show All 300 Lines • ▼ Show 20 Lines if (KMP_MASTER_TID(tid)) {
__kmp_task_team_wait(this_thr, team USE_ITT_BUILD_ARG(itt_sync_obj)); __kmp_task_team_wait(this_thr, team USE_ITT_BUILD_ARG(itt_sync_obj));
} }
#if USE_DEBUGGER #if USE_DEBUGGER
// Let the debugger know: All threads are arrived and starting leaving the // Let the debugger know: All threads are arrived and starting leaving the
// barrier. // barrier.
team->t.t_bar[bt].b_team_arrived += 1; team->t.t_bar[bt].b_team_arrived += 1;
#endif #endif
#if OMP_40_ENABLED
if (__kmp_omp_cancellation) { if (__kmp_omp_cancellation) {
kmp_int32 cancel_request = KMP_ATOMIC_LD_RLX(&team->t.t_cancel_request); kmp_int32 cancel_request = KMP_ATOMIC_LD_RLX(&team->t.t_cancel_request);
// Reset cancellation flag for worksharing constructs // Reset cancellation flag for worksharing constructs
if (cancel_request == cancel_loop || if (cancel_request == cancel_loop ||
cancel_request == cancel_sections) { cancel_request == cancel_sections) {
KMP_ATOMIC_ST_RLX(&team->t.t_cancel_request, cancel_noreq); KMP_ATOMIC_ST_RLX(&team->t.t_cancel_request, cancel_noreq);
} }
} }
#endif
#if USE_ITT_BUILD #if USE_ITT_BUILD
/* TODO: In case of split reduction barrier, master thread may send /* TODO: In case of split reduction barrier, master thread may send
acquired event early, before the final summation into the shared acquired event early, before the final summation into the shared
variable is done (final summation can be a long operation for array variable is done (final summation can be a long operation for array
reductions). */ reductions). */
if (__itt_sync_create_ptr || KMP_ITT_DEBUG) if (__itt_sync_create_ptr || KMP_ITT_DEBUG)
__kmp_itt_barrier_middle(gtid, itt_sync_obj); __kmp_itt_barrier_middle(gtid, itt_sync_obj);
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
#if USE_ITT_BUILD && USE_ITT_NOTIFY #if USE_ITT_BUILD && USE_ITT_NOTIFY
// Barrier - report frame end (only if active_level == 1) // Barrier - report frame end (only if active_level == 1)
if ((__itt_frame_submit_v3_ptr || KMP_ITT_DEBUG) && if ((__itt_frame_submit_v3_ptr || KMP_ITT_DEBUG) &&
__kmp_forkjoin_frames_mode && __kmp_forkjoin_frames_mode &&
#if OMP_40_ENABLED
this_thr->th.th_teams_microtask == NULL && this_thr->th.th_teams_microtask == NULL &&
#endif
team->t.t_active_level == 1) { team->t.t_active_level == 1) {
ident_t *loc = __kmp_threads[gtid]->th.th_ident; ident_t *loc = __kmp_threads[gtid]->th.th_ident;
kmp_uint64 cur_time = __itt_get_timestamp(); kmp_uint64 cur_time = __itt_get_timestamp();
kmp_info_t **other_threads = team->t.t_threads; kmp_info_t **other_threads = team->t.t_threads;
int nproc = this_thr->th.th_team_nproc; int nproc = this_thr->th.th_team_nproc;
int i; int i;
switch (__kmp_forkjoin_frames_mode) { switch (__kmp_forkjoin_frames_mode) {
case 1: case 1:
▲ Show 20 Lines • Show All 74 Lines • ▼ Show 20 Lines /* GEH: TODO: Move this under if-condition above and also include in
__kmp_end_split_barrier(). This will more accurately represent the actual __kmp_end_split_barrier(). This will more accurately represent the actual
release time of the threads for split barriers. */ release time of the threads for split barriers. */
if (__itt_sync_create_ptr || KMP_ITT_DEBUG) if (__itt_sync_create_ptr || KMP_ITT_DEBUG)
__kmp_itt_barrier_finished(gtid, itt_sync_obj); __kmp_itt_barrier_finished(gtid, itt_sync_obj);
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
} else { // Team is serialized. } else { // Team is serialized.
status = 0; status = 0;
if (__kmp_tasking_mode != tskm_immediate_exec) { if (__kmp_tasking_mode != tskm_immediate_exec) {
#if OMP_45_ENABLED
if (this_thr->th.th_task_team != NULL) { if (this_thr->th.th_task_team != NULL) {
#if USE_ITT_NOTIFY #if USE_ITT_NOTIFY
void *itt_sync_obj = NULL; void *itt_sync_obj = NULL;
if (__itt_sync_create_ptr || KMP_ITT_DEBUG) { if (__itt_sync_create_ptr || KMP_ITT_DEBUG) {
itt_sync_obj = __kmp_itt_barrier_object(gtid, bt, 1); itt_sync_obj = __kmp_itt_barrier_object(gtid, bt, 1);
__kmp_itt_barrier_starting(gtid, itt_sync_obj); __kmp_itt_barrier_starting(gtid, itt_sync_obj);
} }
#endif #endif
KMP_DEBUG_ASSERT(this_thr->th.th_task_team->tt.tt_found_proxy_tasks == KMP_DEBUG_ASSERT(this_thr->th.th_task_team->tt.tt_found_proxy_tasks ==
TRUE); TRUE);
__kmp_task_team_wait(this_thr, team USE_ITT_BUILD_ARG(itt_sync_obj)); __kmp_task_team_wait(this_thr, team USE_ITT_BUILD_ARG(itt_sync_obj));
__kmp_task_team_setup(this_thr, team, 0); __kmp_task_team_setup(this_thr, team, 0);
#if USE_ITT_BUILD #if USE_ITT_BUILD
if (__itt_sync_create_ptr || KMP_ITT_DEBUG) if (__itt_sync_create_ptr || KMP_ITT_DEBUG)
__kmp_itt_barrier_finished(gtid, itt_sync_obj); __kmp_itt_barrier_finished(gtid, itt_sync_obj);
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
} }
#else
// The task team should be NULL for serialized code (tasks will be
// executed immediately)
KMP_DEBUG_ASSERT(team->t.t_task_team[this_thr->th.th_task_state] == NULL);
KMP_DEBUG_ASSERT(this_thr->th.th_task_team == NULL);
#endif
} }
} }
KA_TRACE(15, ("__kmp_barrier: T#%d(%d:%d) is leaving with return value %d\n", KA_TRACE(15, ("__kmp_barrier: T#%d(%d:%d) is leaving with return value %d\n",
gtid, __kmp_team_from_gtid(gtid)->t.t_id, gtid, __kmp_team_from_gtid(gtid)->t.t_id,
__kmp_tid_from_gtid(gtid), status)); __kmp_tid_from_gtid(gtid), status));
#if OMPT_SUPPORT #if OMPT_SUPPORT
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
▲ Show 20 Lines • Show All 234 Lines • ▼ Show 20 Lines#endif /* USE_ITT_BUILD */
/* From this point on, the team data structure may be deallocated at any time /* From this point on, the team data structure may be deallocated at any time
by the master thread - it is unsafe to reference it in any of the worker by the master thread - it is unsafe to reference it in any of the worker
threads. Any per-team data items that need to be referenced before the threads. Any per-team data items that need to be referenced before the
end of the barrier should be moved to the kmp_task_team_t structs. */ end of the barrier should be moved to the kmp_task_team_t structs. */
if (KMP_MASTER_TID(tid)) { if (KMP_MASTER_TID(tid)) {
if (__kmp_tasking_mode != tskm_immediate_exec) { if (__kmp_tasking_mode != tskm_immediate_exec) {
__kmp_task_team_wait(this_thr, team USE_ITT_BUILD_ARG(itt_sync_obj)); __kmp_task_team_wait(this_thr, team USE_ITT_BUILD_ARG(itt_sync_obj));
} }
#if OMP_50_ENABLED
if (__kmp_display_affinity) { if (__kmp_display_affinity) {
KMP_CHECK_UPDATE(team->t.t_display_affinity, 0); KMP_CHECK_UPDATE(team->t.t_display_affinity, 0);
} }
#endif
#if KMP_STATS_ENABLED #if KMP_STATS_ENABLED
// Have master thread flag the workers to indicate they are now waiting for // Have master thread flag the workers to indicate they are now waiting for
// next parallel region, Also wake them up so they switch their timers to // next parallel region, Also wake them up so they switch their timers to
// idle. // idle.
for (int i = 0; i < team->t.t_nproc; ++i) { for (int i = 0; i < team->t.t_nproc; ++i) {
kmp_info_t *team_thread = team->t.t_threads[i]; kmp_info_t *team_thread = team->t.t_threads[i];
if (team_thread == this_thr) if (team_thread == this_thr)
continue; continue;
team_thread->th.th_stats->setIdleFlag(); team_thread->th.th_stats->setIdleFlag();
if (__kmp_dflt_blocktime != KMP_MAX_BLOCKTIME && if (__kmp_dflt_blocktime != KMP_MAX_BLOCKTIME &&
team_thread->th.th_sleep_loc != NULL) team_thread->th.th_sleep_loc != NULL)
__kmp_null_resume_wrapper(__kmp_gtid_from_thread(team_thread), __kmp_null_resume_wrapper(__kmp_gtid_from_thread(team_thread),
team_thread->th.th_sleep_loc); team_thread->th.th_sleep_loc);
} }
#endif #endif
#if USE_ITT_BUILD #if USE_ITT_BUILD
if (__itt_sync_create_ptr || KMP_ITT_DEBUG) if (__itt_sync_create_ptr || KMP_ITT_DEBUG)
__kmp_itt_barrier_middle(gtid, itt_sync_obj); __kmp_itt_barrier_middle(gtid, itt_sync_obj);
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
#if USE_ITT_BUILD && USE_ITT_NOTIFY #if USE_ITT_BUILD && USE_ITT_NOTIFY
// Join barrier - report frame end // Join barrier - report frame end
if ((__itt_frame_submit_v3_ptr || KMP_ITT_DEBUG) && if ((__itt_frame_submit_v3_ptr || KMP_ITT_DEBUG) &&
__kmp_forkjoin_frames_mode && __kmp_forkjoin_frames_mode && this_thr->th.th_teams_microtask == NULL &&
#if OMP_40_ENABLED
this_thr->th.th_teams_microtask == NULL &&
#endif
team->t.t_active_level == 1) { team->t.t_active_level == 1) {
kmp_uint64 cur_time = __itt_get_timestamp(); kmp_uint64 cur_time = __itt_get_timestamp();
ident_t *loc = team->t.t_ident; ident_t *loc = team->t.t_ident;
kmp_info_t **other_threads = team->t.t_threads; kmp_info_t **other_threads = team->t.t_threads;
int nproc = this_thr->th.th_team_nproc; int nproc = this_thr->th.th_team_nproc;
int i; int i;
switch (__kmp_forkjoin_frames_mode) { switch (__kmp_forkjoin_frames_mode) {
case 1: case 1:
▲ Show 20 Lines • Show All 224 Lines • ▼ Show 20 Lines /* Master thread's copy of the ICVs was set up on the implicit taskdata in
} }
} }
#endif // KMP_BARRIER_ICV_PULL #endif // KMP_BARRIER_ICV_PULL
if (__kmp_tasking_mode != tskm_immediate_exec) { if (__kmp_tasking_mode != tskm_immediate_exec) {
__kmp_task_team_sync(this_thr, team); __kmp_task_team_sync(this_thr, team);
} }
#if OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
kmp_proc_bind_t proc_bind = team->t.t_proc_bind; kmp_proc_bind_t proc_bind = team->t.t_proc_bind;
if (proc_bind == proc_bind_intel) { if (proc_bind == proc_bind_intel) {
#endif
#if KMP_AFFINITY_SUPPORTED
// Call dynamic affinity settings // Call dynamic affinity settings
if (__kmp_affinity_type == affinity_balanced && team->t.t_size_changed) { if (__kmp_affinity_type == affinity_balanced && team->t.t_size_changed) {
__kmp_balanced_affinity(this_thr, team->t.t_nproc); __kmp_balanced_affinity(this_thr, team->t.t_nproc);
} }
#endif // KMP_AFFINITY_SUPPORTED
#if OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED
} else if (proc_bind != proc_bind_false) { } else if (proc_bind != proc_bind_false) {
if (this_thr->th.th_new_place == this_thr->th.th_current_place) { if (this_thr->th.th_new_place == this_thr->th.th_current_place) {
KA_TRACE(100, ("__kmp_fork_barrier: T#%d already in correct place %d\n", KA_TRACE(100, ("__kmp_fork_barrier: T#%d already in correct place %d\n",
__kmp_gtid_from_thread(this_thr), __kmp_gtid_from_thread(this_thr),
this_thr->th.th_current_place)); this_thr->th.th_current_place));
} else { } else {
__kmp_affinity_set_place(gtid); __kmp_affinity_set_place(gtid);
} }
} }
#endif #endif // KMP_AFFINITY_SUPPORTED
#if OMP_50_ENABLED
// Perform the display affinity functionality // Perform the display affinity functionality
if (__kmp_display_affinity) { if (__kmp_display_affinity) {
if (team->t.t_display_affinity if (team->t.t_display_affinity
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
|| (__kmp_affinity_type == affinity_balanced && team->t.t_size_changed) || (__kmp_affinity_type == affinity_balanced && team->t.t_size_changed)
#endif #endif
) { ) {
// NULL means use the affinity-format-var ICV // NULL means use the affinity-format-var ICV
__kmp_aux_display_affinity(gtid, NULL); __kmp_aux_display_affinity(gtid, NULL);
this_thr->th.th_prev_num_threads = team->t.t_nproc; this_thr->th.th_prev_num_threads = team->t.t_nproc;
this_thr->th.th_prev_level = team->t.t_level; this_thr->th.th_prev_level = team->t.t_level;
} }
} }
if (!KMP_MASTER_TID(tid)) if (!KMP_MASTER_TID(tid))
KMP_CHECK_UPDATE(this_thr->th.th_def_allocator, team->t.t_def_allocator); KMP_CHECK_UPDATE(this_thr->th.th_def_allocator, team->t.t_def_allocator);
#endif
#if USE_ITT_BUILD && USE_ITT_NOTIFY #if USE_ITT_BUILD && USE_ITT_NOTIFY
if (__itt_sync_create_ptr || KMP_ITT_DEBUG) { if (__itt_sync_create_ptr || KMP_ITT_DEBUG) {
if (!KMP_MASTER_TID(tid)) { if (!KMP_MASTER_TID(tid)) {
// Get correct barrier object // Get correct barrier object
itt_sync_obj = __kmp_itt_barrier_object(gtid, bs_forkjoin_barrier); itt_sync_obj = __kmp_itt_barrier_object(gtid, bs_forkjoin_barrier);
__kmp_itt_barrier_finished(gtid, itt_sync_obj); // Workers call acquired __kmp_itt_barrier_finished(gtid, itt_sync_obj); // Workers call acquired
} // (prepare called inside barrier_release) } // (prepare called inside barrier_release)
▲ Show 20 Lines • Show All 51 Lines • Show Last 20 Lines

runtime/src/kmp_cancel.cpp

Show All 9 Lines
#include "kmp.h" #include "kmp.h"
#include "kmp_i18n.h" #include "kmp_i18n.h"
#include "kmp_io.h" #include "kmp_io.h"
#include "kmp_str.h" #include "kmp_str.h"
#if OMPT_SUPPORT #if OMPT_SUPPORT
#include "ompt-specific.h" #include "ompt-specific.h"
#endif #endif
#if OMP_40_ENABLED
/*! /*!
@ingroup CANCELLATION @ingroup CANCELLATION
@param loc_ref location of the original task directive @param loc_ref location of the original task directive
@param gtid Global thread ID of encountering thread @param gtid Global thread ID of encountering thread
@param cncl_kind Cancellation kind (parallel, for, sections, taskgroup) @param cncl_kind Cancellation kind (parallel, for, sections, taskgroup)
@return returns true if the cancellation request has been activated and the @return returns true if the cancellation request has been activated and the
execution thread needs to proceed to the end of the canceled region. execution thread needs to proceed to the end of the canceled region.
Show All 38 Lines#if OMPT_SUPPORT && OMPT_OPTIONAL
else if (cncl_kind == cancel_loop) else if (cncl_kind == cancel_loop)
type = ompt_cancel_loop; type = ompt_cancel_loop;
else if (cncl_kind == cancel_sections) else if (cncl_kind == cancel_sections)
type = ompt_cancel_sections; type = ompt_cancel_sections;
ompt_callbacks.ompt_callback(ompt_callback_cancel)( ompt_callbacks.ompt_callback(ompt_callback_cancel)(
task_data, type | ompt_cancel_activated, task_data, type | ompt_cancel_activated,
OMPT_GET_RETURN_ADDRESS(0)); OMPT_GET_RETURN_ADDRESS(0));
} }
#endif #endif // OMPT_SUPPORT && OMPT_OPTIONAL
return 1 /* true */; return 1 /* true */;
} }
break; break;
} }
case cancel_taskgroup: case cancel_taskgroup:
// cancellation requests for a task group // cancellation requests for a task group
// are handled through the taskgroup structure // are handled through the taskgroup structure
{ {
▲ Show 20 Lines • Show All 243 Lines • ▼ Show 20 Lines case cancel_taskgroup: {
taskgroup = task->td_taskgroup; taskgroup = task->td_taskgroup;
return taskgroup && taskgroup->cancel_request; return taskgroup && taskgroup->cancel_request;
} }
} }
} }
return 0 /* false */; return 0 /* false */;
} }
#endif

runtime/src/kmp_config.h.cmake

Show First 20 Lines • Show All 58 Lines • ▼ Show 20 Lines
#cmakedefine01 LIBOMP_USE_HWLOC #cmakedefine01 LIBOMP_USE_HWLOC
#define KMP_USE_HWLOC LIBOMP_USE_HWLOC #define KMP_USE_HWLOC LIBOMP_USE_HWLOC
#cmakedefine01 LIBOMP_ENABLE_SHARED #cmakedefine01 LIBOMP_ENABLE_SHARED
#define KMP_DYNAMIC_LIB LIBOMP_ENABLE_SHARED #define KMP_DYNAMIC_LIB LIBOMP_ENABLE_SHARED
#define KMP_ARCH_STR "@LIBOMP_LEGAL_ARCH@" #define KMP_ARCH_STR "@LIBOMP_LEGAL_ARCH@"
#define KMP_LIBRARY_FILE "@LIBOMP_LIB_FILE@" #define KMP_LIBRARY_FILE "@LIBOMP_LIB_FILE@"
#define KMP_VERSION_MAJOR @LIBOMP_VERSION_MAJOR@ #define KMP_VERSION_MAJOR @LIBOMP_VERSION_MAJOR@
#define KMP_VERSION_MINOR @LIBOMP_VERSION_MINOR@ #define KMP_VERSION_MINOR @LIBOMP_VERSION_MINOR@
#define LIBOMP_OMP_VERSION @LIBOMP_OMP_VERSION@
#define OMP_50_ENABLED (LIBOMP_OMP_VERSION >= 50)
#define OMP_45_ENABLED (LIBOMP_OMP_VERSION >= 45)
#define OMP_40_ENABLED (LIBOMP_OMP_VERSION >= 40)
#define OMP_30_ENABLED (LIBOMP_OMP_VERSION >= 30)
#cmakedefine01 LIBOMP_TSAN_SUPPORT #cmakedefine01 LIBOMP_TSAN_SUPPORT
#if LIBOMP_TSAN_SUPPORT #if LIBOMP_TSAN_SUPPORT
#define TSAN_SUPPORT #define TSAN_SUPPORT
#endif #endif
#cmakedefine01 MSVC #cmakedefine01 MSVC
#define KMP_MSVC_COMPAT MSVC #define KMP_MSVC_COMPAT MSVC
// Configured cache line based on architecture // Configured cache line based on architecture
Show All 37 Lines

runtime/src/kmp_csupport.cpp

Show First 20 Lines • Show All 238 Lines • ▼ Show 20 Lines
} }
void __kmpc_pop_num_threads(ident_t *loc, kmp_int32 global_tid) { void __kmpc_pop_num_threads(ident_t *loc, kmp_int32 global_tid) {
KA_TRACE(20, ("__kmpc_pop_num_threads: enter\n")); KA_TRACE(20, ("__kmpc_pop_num_threads: enter\n"));
/* the num_threads are automatically popped */ /* the num_threads are automatically popped */
} }
#if OMP_40_ENABLED
void __kmpc_push_proc_bind(ident_t *loc, kmp_int32 global_tid, void __kmpc_push_proc_bind(ident_t *loc, kmp_int32 global_tid,
kmp_int32 proc_bind) { kmp_int32 proc_bind) {
KA_TRACE(20, ("__kmpc_push_proc_bind: enter T#%d proc_bind=%d\n", global_tid, KA_TRACE(20, ("__kmpc_push_proc_bind: enter T#%d proc_bind=%d\n", global_tid,
proc_bind)); proc_bind));
__kmp_push_proc_bind(loc, global_tid, (kmp_proc_bind_t)proc_bind); __kmp_push_proc_bind(loc, global_tid, (kmp_proc_bind_t)proc_bind);
} }
#endif /* OMP_40_ENABLED */
/*! /*!
@ingroup PARALLEL @ingroup PARALLEL
@param loc source location information @param loc source location information
@param argc total number of arguments in the ellipsis @param argc total number of arguments in the ellipsis
@param microtask pointer to callback routine consisting of outlined parallel @param microtask pointer to callback routine consisting of outlined parallel
construct construct
@param ... pointers to shared variables that aren't global @param ... pointers to shared variables that aren't global
▲ Show 20 Lines • Show All 72 Lines • ▼ Show 20 Lines#if KMP_STATS_ENABLED
if (previous_state == stats_state_e::SERIAL_REGION) { if (previous_state == stats_state_e::SERIAL_REGION) {
KMP_EXCHANGE_PARTITIONED_TIMER(OMP_serial); KMP_EXCHANGE_PARTITIONED_TIMER(OMP_serial);
} else { } else {
KMP_POP_PARTITIONED_TIMER(); KMP_POP_PARTITIONED_TIMER();
} }
#endif // KMP_STATS_ENABLED #endif // KMP_STATS_ENABLED
} }
#if OMP_40_ENABLED
/*! /*!
@ingroup PARALLEL @ingroup PARALLEL
@param loc source location information @param loc source location information
@param global_tid global thread number @param global_tid global thread number
@param num_teams number of teams requested for the teams construct @param num_teams number of teams requested for the teams construct
@param num_threads number of threads per team requested for the teams construct @param num_threads number of threads per team requested for the teams construct
Set the number of teams to be used by the teams construct. Set the number of teams to be used by the teams construct.
▲ Show 20 Lines • Show All 101 Lines • ▼ Show 20 Lines
#if KMP_STATS_ENABLED #if KMP_STATS_ENABLED
if (previous_state == stats_state_e::SERIAL_REGION) { if (previous_state == stats_state_e::SERIAL_REGION) {
KMP_EXCHANGE_PARTITIONED_TIMER(OMP_serial); KMP_EXCHANGE_PARTITIONED_TIMER(OMP_serial);
} else { } else {
KMP_POP_PARTITIONED_TIMER(); KMP_POP_PARTITIONED_TIMER();
} }
#endif // KMP_STATS_ENABLED #endif // KMP_STATS_ENABLED
} }
#endif /* OMP_40_ENABLED */
// I don't think this function should ever have been exported. // I don't think this function should ever have been exported.
// The __kmpc_ prefix was misapplied. I'm fairly certain that no generated // The __kmpc_ prefix was misapplied. I'm fairly certain that no generated
// openmp code ever called it, but it's been exported from the RTL for so // openmp code ever called it, but it's been exported from the RTL for so
// long that I'm afraid to remove the definition. // long that I'm afraid to remove the definition.
int __kmpc_invoke_task_func(int gtid) { return __kmp_invoke_task_func(gtid); } int __kmpc_invoke_task_func(int gtid) { return __kmp_invoke_task_func(gtid); }
/*! /*!
Show All 37 Lines /* skip all this code for autopar serialized loops since it results in
unacceptable overhead */ unacceptable overhead */
if (loc != NULL && (loc->flags & KMP_IDENT_AUTOPAR)) if (loc != NULL && (loc->flags & KMP_IDENT_AUTOPAR))
return; return;
// Not autopar code // Not autopar code
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
this_thr = __kmp_threads[global_tid]; this_thr = __kmp_threads[global_tid];
serial_team = this_thr->th.th_serial_team; serial_team = this_thr->th.th_serial_team;
#if OMP_45_ENABLED
kmp_task_team_t *task_team = this_thr->th.th_task_team; kmp_task_team_t *task_team = this_thr->th.th_task_team;
// we need to wait for the proxy tasks before finishing the thread // we need to wait for the proxy tasks before finishing the thread
if (task_team != NULL && task_team->tt.tt_found_proxy_tasks) if (task_team != NULL && task_team->tt.tt_found_proxy_tasks)
__kmp_task_team_wait(this_thr, serial_team USE_ITT_BUILD_ARG(NULL)); __kmp_task_team_wait(this_thr, serial_team USE_ITT_BUILD_ARG(NULL));
#endif
KMP_MB(); KMP_MB();
KMP_DEBUG_ASSERT(serial_team); KMP_DEBUG_ASSERT(serial_team);
KMP_ASSERT(serial_team->t.t_serialized); KMP_ASSERT(serial_team->t.t_serialized);
KMP_DEBUG_ASSERT(this_thr->th.th_team == serial_team); KMP_DEBUG_ASSERT(this_thr->th.th_team == serial_team);
KMP_DEBUG_ASSERT(serial_team != this_thr->th.th_root->r.r_root_team); KMP_DEBUG_ASSERT(serial_team != this_thr->th.th_root->r.r_root_team);
KMP_DEBUG_ASSERT(serial_team->t.t_threads); KMP_DEBUG_ASSERT(serial_team->t.t_threads);
KMP_DEBUG_ASSERT(serial_team->t.t_threads[0] == this_thr); KMP_DEBUG_ASSERT(serial_team->t.t_threads[0] == this_thr);
Show All 38 Lines#endif
KMP_DEBUG_ASSERT(serial_team->t.t_dispatch->th_disp_buffer); KMP_DEBUG_ASSERT(serial_team->t.t_dispatch->th_disp_buffer);
{ {
dispatch_private_info_t *disp_buffer = dispatch_private_info_t *disp_buffer =
serial_team->t.t_dispatch->th_disp_buffer; serial_team->t.t_dispatch->th_disp_buffer;
serial_team->t.t_dispatch->th_disp_buffer = serial_team->t.t_dispatch->th_disp_buffer =
serial_team->t.t_dispatch->th_disp_buffer->next; serial_team->t.t_dispatch->th_disp_buffer->next;
__kmp_free(disp_buffer); __kmp_free(disp_buffer);
} }
#if OMP_50_ENABLED
this_thr->th.th_def_allocator = serial_team->t.t_def_allocator; // restore this_thr->th.th_def_allocator = serial_team->t.t_def_allocator; // restore
#endif
--serial_team->t.t_serialized; --serial_team->t.t_serialized;
if (serial_team->t.t_serialized == 0) { if (serial_team->t.t_serialized == 0) {
/* return to the parallel section */ /* return to the parallel section */
#if KMP_ARCH_X86 || KMP_ARCH_X86_64 #if KMP_ARCH_X86 || KMP_ARCH_X86_64
if (__kmp_inherit_fp_control && serial_team->t.t_fp_control_saved) { if (__kmp_inherit_fp_control && serial_team->t.t_fp_control_saved) {
▲ Show 20 Lines • Show All 128 Lines • ▼ Show 20 Lines
*/ */
void __kmpc_barrier(ident_t *loc, kmp_int32 global_tid) { void __kmpc_barrier(ident_t *loc, kmp_int32 global_tid) {
KMP_COUNT_BLOCK(OMP_BARRIER); KMP_COUNT_BLOCK(OMP_BARRIER);
KC_TRACE(10, ("__kmpc_barrier: called T#%d\n", global_tid)); KC_TRACE(10, ("__kmpc_barrier: called T#%d\n", global_tid));
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
if (__kmp_env_consistency_check) { if (__kmp_env_consistency_check) {
if (loc == 0) { if (loc == 0) {
KMP_WARNING(ConstructIdentInvalid); // ??? What does it mean for the user? KMP_WARNING(ConstructIdentInvalid); // ??? What does it mean for the user?
} }
__kmp_check_barrier(global_tid, ct_barrier, loc); __kmp_check_barrier(global_tid, ct_barrier, loc);
} }
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_frame_t *ompt_frame; ompt_frame_t *ompt_frame;
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
__ompt_get_task_info_internal(0, NULL, NULL, &ompt_frame, NULL, NULL); __ompt_get_task_info_internal(0, NULL, NULL, &ompt_frame, NULL, NULL);
if (ompt_frame->enter_frame.ptr == NULL) if (ompt_frame->enter_frame.ptr == NULL)
Show All 27 Lines
kmp_int32 __kmpc_master(ident_t *loc, kmp_int32 global_tid) { kmp_int32 __kmpc_master(ident_t *loc, kmp_int32 global_tid) {
int status = 0; int status = 0;
KC_TRACE(10, ("__kmpc_master: called T#%d\n", global_tid)); KC_TRACE(10, ("__kmpc_master: called T#%d\n", global_tid));
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
if (KMP_MASTER_GTID(global_tid)) { if (KMP_MASTER_GTID(global_tid)) {
KMP_COUNT_BLOCK(OMP_MASTER); KMP_COUNT_BLOCK(OMP_MASTER);
KMP_PUSH_PARTITIONED_TIMER(OMP_master); KMP_PUSH_PARTITIONED_TIMER(OMP_master);
status = 1; status = 1;
} }
#if OMPT_SUPPORT && OMPT_OPTIONAL #if OMPT_SUPPORT && OMPT_OPTIONAL
▲ Show 20 Lines • Show All 75 Lines • ▼ Show 20 Linesvoid __kmpc_ordered(ident_t *loc, kmp_int32 gtid) {
kmp_info_t *th; kmp_info_t *th;
KMP_DEBUG_ASSERT(__kmp_init_serial); KMP_DEBUG_ASSERT(__kmp_init_serial);
KC_TRACE(10, ("__kmpc_ordered: called T#%d\n", gtid)); KC_TRACE(10, ("__kmpc_ordered: called T#%d\n", gtid));
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
#if USE_ITT_BUILD #if USE_ITT_BUILD
__kmp_itt_ordered_prep(gtid); __kmp_itt_ordered_prep(gtid);
// TODO: ordered_wait_id // TODO: ordered_wait_id
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
th = __kmp_threads[gtid]; th = __kmp_threads[gtid];
▲ Show 20 Lines • Show All 738 Lines • ▼ Show 20 Lines
kmp_int32 __kmpc_barrier_master(ident_t *loc, kmp_int32 global_tid) { kmp_int32 __kmpc_barrier_master(ident_t *loc, kmp_int32 global_tid) {
int status; int status;
KC_TRACE(10, ("__kmpc_barrier_master: called T#%d\n", global_tid)); KC_TRACE(10, ("__kmpc_barrier_master: called T#%d\n", global_tid));
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
if (__kmp_env_consistency_check) if (__kmp_env_consistency_check)
__kmp_check_barrier(global_tid, ct_barrier, loc); __kmp_check_barrier(global_tid, ct_barrier, loc);
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_frame_t *ompt_frame; ompt_frame_t *ompt_frame;
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
__ompt_get_task_info_internal(0, NULL, NULL, &ompt_frame, NULL, NULL); __ompt_get_task_info_internal(0, NULL, NULL, &ompt_frame, NULL, NULL);
▲ Show 20 Lines • Show All 43 Lines • ▼ Show 20 Lines
kmp_int32 __kmpc_barrier_master_nowait(ident_t *loc, kmp_int32 global_tid) { kmp_int32 __kmpc_barrier_master_nowait(ident_t *loc, kmp_int32 global_tid) {
kmp_int32 ret; kmp_int32 ret;
KC_TRACE(10, ("__kmpc_barrier_master_nowait: called T#%d\n", global_tid)); KC_TRACE(10, ("__kmpc_barrier_master_nowait: called T#%d\n", global_tid));
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
if (__kmp_env_consistency_check) { if (__kmp_env_consistency_check) {
if (loc == 0) { if (loc == 0) {
KMP_WARNING(ConstructIdentInvalid); // ??? What does it mean for the user? KMP_WARNING(ConstructIdentInvalid); // ??? What does it mean for the user?
} }
__kmp_check_barrier(global_tid, ct_barrier, loc); __kmp_check_barrier(global_tid, ct_barrier, loc);
} }
▲ Show 20 Lines • Show All 204 Lines • ▼ Show 20 Lines
int ompc_get_ancestor_thread_num(int level) { int ompc_get_ancestor_thread_num(int level) {
return __kmp_get_ancestor_thread_num(__kmp_entry_gtid(), level); return __kmp_get_ancestor_thread_num(__kmp_entry_gtid(), level);
} }
int ompc_get_team_size(int level) { int ompc_get_team_size(int level) {
return __kmp_get_team_size(__kmp_entry_gtid(), level); return __kmp_get_team_size(__kmp_entry_gtid(), level);
} }
#if OMP_50_ENABLED
/* OpenMP 5.0 Affinity Format API */ /* OpenMP 5.0 Affinity Format API */
void ompc_set_affinity_format(char const *format) { void ompc_set_affinity_format(char const *format) {
if (!__kmp_init_serial) { if (!__kmp_init_serial) {
__kmp_serial_initialize(); __kmp_serial_initialize();
} }
__kmp_strncpy_truncate(__kmp_affinity_format, KMP_AFFINITY_FORMAT_SIZE, __kmp_strncpy_truncate(__kmp_affinity_format, KMP_AFFINITY_FORMAT_SIZE,
format, KMP_STRLEN(format) + 1); format, KMP_STRLEN(format) + 1);
Show All 34 Linessize_t ompc_capture_affinity(char *buffer, size_t buf_size,
num_required = __kmp_aux_capture_affinity(gtid, format, &capture_buf); num_required = __kmp_aux_capture_affinity(gtid, format, &capture_buf);
if (buffer && buf_size) { if (buffer && buf_size) {
__kmp_strncpy_truncate(buffer, buf_size, capture_buf.str, __kmp_strncpy_truncate(buffer, buf_size, capture_buf.str,
capture_buf.used + 1); capture_buf.used + 1);
} }
__kmp_str_buf_free(&capture_buf); __kmp_str_buf_free(&capture_buf);
return num_required; return num_required;
} }
#endif /* OMP_50_ENABLED */
void kmpc_set_stacksize(int arg) { void kmpc_set_stacksize(int arg) {
// __kmp_aux_set_stacksize initializes the library if needed // __kmp_aux_set_stacksize initializes the library if needed
__kmp_aux_set_stacksize(arg); __kmp_aux_set_stacksize(arg);
} }
void kmpc_set_stacksize_s(size_t arg) { void kmpc_set_stacksize_s(size_t arg) {
// __kmp_aux_set_stacksize initializes the library if needed // __kmp_aux_set_stacksize initializes the library if needed
▲ Show 20 Lines • Show All 1,358 Lines • ▼ Show 20 Lines#else // KMP_USE_DYNAMIC_LOCK
if (__kmp_env_consistency_check) if (__kmp_env_consistency_check)
__kmp_pop_sync(global_tid, ct_critical, loc); __kmp_pop_sync(global_tid, ct_critical, loc);
__kmp_release_user_lock_with_checks(lck, global_tid); __kmp_release_user_lock_with_checks(lck, global_tid);
#endif // KMP_USE_DYNAMIC_LOCK #endif // KMP_USE_DYNAMIC_LOCK
} // __kmp_end_critical_section_reduce_block } // __kmp_end_critical_section_reduce_block
#if OMP_40_ENABLED
static __forceinline int static __forceinline int
__kmp_swap_teams_for_teams_reduction(kmp_info_t *th, kmp_team_t **team_p, __kmp_swap_teams_for_teams_reduction(kmp_info_t *th, kmp_team_t **team_p,
int *task_state) { int *task_state) {
kmp_team_t *team; kmp_team_t *team;
// Check if we are inside the teams construct? // Check if we are inside the teams construct?
if (th->th.th_teams_microtask) { if (th->th.th_teams_microtask) {
*team_p = team = th->th.th_team; *team_p = team = th->th.th_team;
Show All 18 Lines
__kmp_restore_swapped_teams(kmp_info_t *th, kmp_team_t *team, int task_state) { __kmp_restore_swapped_teams(kmp_info_t *th, kmp_team_t *team, int task_state) {
// Restore thread structure swapped in __kmp_swap_teams_for_teams_reduction. // Restore thread structure swapped in __kmp_swap_teams_for_teams_reduction.
th->th.th_info.ds.ds_tid = 0; th->th.th_info.ds.ds_tid = 0;
th->th.th_team = team; th->th.th_team = team;
th->th.th_team_nproc = team->t.t_nproc; th->th.th_team_nproc = team->t.t_nproc;
th->th.th_task_team = team->t.t_task_team[task_state]; th->th.th_task_team = team->t.t_task_team[task_state];
th->th.th_task_state = task_state; th->th.th_task_state = task_state;
} }
#endif
/* 2.a.i. Reduce Block without a terminating barrier */ /* 2.a.i. Reduce Block without a terminating barrier */
/*! /*!
@ingroup SYNCHRONIZATION @ingroup SYNCHRONIZATION
@param loc source location information @param loc source location information
@param global_tid global thread number @param global_tid global thread number
@param num_vars number of items (variables) to be reduced @param num_vars number of items (variables) to be reduced
@param reduce_size size of data in bytes to be reduced @param reduce_size size of data in bytes to be reduced
Show All 10 Lines
__kmpc_reduce_nowait(ident_t *loc, kmp_int32 global_tid, kmp_int32 num_vars, __kmpc_reduce_nowait(ident_t *loc, kmp_int32 global_tid, kmp_int32 num_vars,
size_t reduce_size, void *reduce_data, size_t reduce_size, void *reduce_data,
void (*reduce_func)(void *lhs_data, void *rhs_data), void (*reduce_func)(void *lhs_data, void *rhs_data),
kmp_critical_name *lck) { kmp_critical_name *lck) {
KMP_COUNT_BLOCK(REDUCE_nowait); KMP_COUNT_BLOCK(REDUCE_nowait);
int retval = 0; int retval = 0;
PACKED_REDUCTION_METHOD_T packed_reduction_method; PACKED_REDUCTION_METHOD_T packed_reduction_method;
#if OMP_40_ENABLED
kmp_info_t *th; kmp_info_t *th;
kmp_team_t *team; kmp_team_t *team;
int teams_swapped = 0, task_state; int teams_swapped = 0, task_state;
#endif
KA_TRACE(10, ("__kmpc_reduce_nowait() enter: called T#%d\n", global_tid)); KA_TRACE(10, ("__kmpc_reduce_nowait() enter: called T#%d\n", global_tid));
// why do we need this initialization here at all? // why do we need this initialization here at all?
// Reduction clause can not be used as a stand-alone directive. // Reduction clause can not be used as a stand-alone directive.
// do not call __kmp_serial_initialize(), it will be called by // do not call __kmp_serial_initialize(), it will be called by
// __kmp_parallel_initialize() if needed // __kmp_parallel_initialize() if needed
// possible detection of false-positive race by the threadchecker ??? // possible detection of false-positive race by the threadchecker ???
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
// check correctness of reduce block nesting // check correctness of reduce block nesting
#if KMP_USE_DYNAMIC_LOCK #if KMP_USE_DYNAMIC_LOCK
if (__kmp_env_consistency_check) if (__kmp_env_consistency_check)
__kmp_push_sync(global_tid, ct_reduce, loc, NULL, 0); __kmp_push_sync(global_tid, ct_reduce, loc, NULL, 0);
#else #else
if (__kmp_env_consistency_check) if (__kmp_env_consistency_check)
__kmp_push_sync(global_tid, ct_reduce, loc, NULL); __kmp_push_sync(global_tid, ct_reduce, loc, NULL);
#endif #endif
#if OMP_40_ENABLED
th = __kmp_thread_from_gtid(global_tid); th = __kmp_thread_from_gtid(global_tid);
teams_swapped = __kmp_swap_teams_for_teams_reduction(th, &team, &task_state); teams_swapped = __kmp_swap_teams_for_teams_reduction(th, &team, &task_state);
#endif // OMP_40_ENABLED
// packed_reduction_method value will be reused by __kmp_end_reduce* function, // packed_reduction_method value will be reused by __kmp_end_reduce* function,
// the value should be kept in a variable // the value should be kept in a variable
// the variable should be either a construct-specific or thread-specific // the variable should be either a construct-specific or thread-specific
// property, not a team specific property // property, not a team specific property
// (a thread can reach the next reduce block on the next construct, reduce // (a thread can reach the next reduce block on the next construct, reduce
// method may differ on the next construct) // method may differ on the next construct)
// an ident_t "loc" parameter could be used as a construct-specific property // an ident_t "loc" parameter could be used as a construct-specific property
▲ Show 20 Lines • Show All 84 Lines • ▼ Show 20 Lines if (__kmp_env_consistency_check) {
} }
} }
} else { } else {
// should never reach this block // should never reach this block
KMP_ASSERT(0); // "unexpected method" KMP_ASSERT(0); // "unexpected method"
} }
#if OMP_40_ENABLED
if (teams_swapped) { if (teams_swapped) {
__kmp_restore_swapped_teams(th, team, task_state); __kmp_restore_swapped_teams(th, team, task_state);
} }
#endif
KA_TRACE( KA_TRACE(
10, 10,
("__kmpc_reduce_nowait() exit: called T#%d: method %08x, returns %08x\n", ("__kmpc_reduce_nowait() exit: called T#%d: method %08x, returns %08x\n",
global_tid, packed_reduction_method, retval)); global_tid, packed_reduction_method, retval));
return retval; return retval;
} }
▲ Show 20 Lines • Show All 69 Lines • ▼ Show 20 Lines
*/ */
kmp_int32 __kmpc_reduce(ident_t *loc, kmp_int32 global_tid, kmp_int32 num_vars, kmp_int32 __kmpc_reduce(ident_t *loc, kmp_int32 global_tid, kmp_int32 num_vars,
size_t reduce_size, void *reduce_data, size_t reduce_size, void *reduce_data,
void (*reduce_func)(void *lhs_data, void *rhs_data), void (*reduce_func)(void *lhs_data, void *rhs_data),
kmp_critical_name *lck) { kmp_critical_name *lck) {
KMP_COUNT_BLOCK(REDUCE_wait); KMP_COUNT_BLOCK(REDUCE_wait);
int retval = 0; int retval = 0;
PACKED_REDUCTION_METHOD_T packed_reduction_method; PACKED_REDUCTION_METHOD_T packed_reduction_method;
#if OMP_40_ENABLED
kmp_info_t *th; kmp_info_t *th;
kmp_team_t *team; kmp_team_t *team;
int teams_swapped = 0, task_state; int teams_swapped = 0, task_state;
#endif
KA_TRACE(10, ("__kmpc_reduce() enter: called T#%d\n", global_tid)); KA_TRACE(10, ("__kmpc_reduce() enter: called T#%d\n", global_tid));
// why do we need this initialization here at all? // why do we need this initialization here at all?
// Reduction clause can not be a stand-alone directive. // Reduction clause can not be a stand-alone directive.
// do not call __kmp_serial_initialize(), it will be called by // do not call __kmp_serial_initialize(), it will be called by
// __kmp_parallel_initialize() if needed // __kmp_parallel_initialize() if needed
// possible detection of false-positive race by the threadchecker ??? // possible detection of false-positive race by the threadchecker ???
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
// check correctness of reduce block nesting // check correctness of reduce block nesting
#if KMP_USE_DYNAMIC_LOCK #if KMP_USE_DYNAMIC_LOCK
if (__kmp_env_consistency_check) if (__kmp_env_consistency_check)
__kmp_push_sync(global_tid, ct_reduce, loc, NULL, 0); __kmp_push_sync(global_tid, ct_reduce, loc, NULL, 0);
#else #else
if (__kmp_env_consistency_check) if (__kmp_env_consistency_check)
__kmp_push_sync(global_tid, ct_reduce, loc, NULL); __kmp_push_sync(global_tid, ct_reduce, loc, NULL);
#endif #endif
#if OMP_40_ENABLED
th = __kmp_thread_from_gtid(global_tid); th = __kmp_thread_from_gtid(global_tid);
teams_swapped = __kmp_swap_teams_for_teams_reduction(th, &team, &task_state); teams_swapped = __kmp_swap_teams_for_teams_reduction(th, &team, &task_state);
#endif // OMP_40_ENABLED
packed_reduction_method = __kmp_determine_reduction_method( packed_reduction_method = __kmp_determine_reduction_method(
loc, global_tid, num_vars, reduce_size, reduce_data, reduce_func, lck); loc, global_tid, num_vars, reduce_size, reduce_data, reduce_func, lck);
__KMP_SET_REDUCTION_METHOD(global_tid, packed_reduction_method); __KMP_SET_REDUCTION_METHOD(global_tid, packed_reduction_method);
if (packed_reduction_method == critical_reduce_block) { if (packed_reduction_method == critical_reduce_block) {
__kmp_enter_critical_section_reduce_block(loc, global_tid, lck); __kmp_enter_critical_section_reduce_block(loc, global_tid, lck);
▲ Show 20 Lines • Show All 46 Lines • ▼ Show 20 Lines if (__kmp_env_consistency_check) {
} }
} }
} else { } else {
// should never reach this block // should never reach this block
KMP_ASSERT(0); // "unexpected method" KMP_ASSERT(0); // "unexpected method"
} }
#if OMP_40_ENABLED
if (teams_swapped) { if (teams_swapped) {
__kmp_restore_swapped_teams(th, team, task_state); __kmp_restore_swapped_teams(th, team, task_state);
} }
#endif
KA_TRACE(10, KA_TRACE(10,
("__kmpc_reduce() exit: called T#%d: method %08x, returns %08x\n", ("__kmpc_reduce() exit: called T#%d: method %08x, returns %08x\n",
global_tid, packed_reduction_method, retval)); global_tid, packed_reduction_method, retval));
return retval; return retval;
} }
/*! /*!
@ingroup SYNCHRONIZATION @ingroup SYNCHRONIZATION
@param loc source location information @param loc source location information
@param global_tid global thread id. @param global_tid global thread id.
@param lck pointer to the unique lock data structure @param lck pointer to the unique lock data structure
Finish the execution of a blocking reduce. Finish the execution of a blocking reduce.
The <tt>lck</tt> pointer must be the same as that used in the corresponding The <tt>lck</tt> pointer must be the same as that used in the corresponding
start function. start function.
*/ */
void __kmpc_end_reduce(ident_t *loc, kmp_int32 global_tid, void __kmpc_end_reduce(ident_t *loc, kmp_int32 global_tid,
kmp_critical_name *lck) { kmp_critical_name *lck) {
PACKED_REDUCTION_METHOD_T packed_reduction_method; PACKED_REDUCTION_METHOD_T packed_reduction_method;
#if OMP_40_ENABLED
kmp_info_t *th; kmp_info_t *th;
kmp_team_t *team; kmp_team_t *team;
int teams_swapped = 0, task_state; int teams_swapped = 0, task_state;
#endif
KA_TRACE(10, ("__kmpc_end_reduce() enter: called T#%d\n", global_tid)); KA_TRACE(10, ("__kmpc_end_reduce() enter: called T#%d\n", global_tid));
#if OMP_40_ENABLED
th = __kmp_thread_from_gtid(global_tid); th = __kmp_thread_from_gtid(global_tid);
teams_swapped = __kmp_swap_teams_for_teams_reduction(th, &team, &task_state); teams_swapped = __kmp_swap_teams_for_teams_reduction(th, &team, &task_state);
#endif // OMP_40_ENABLED
packed_reduction_method = __KMP_GET_REDUCTION_METHOD(global_tid); packed_reduction_method = __KMP_GET_REDUCTION_METHOD(global_tid);
// this barrier should be visible to a customer and to the threading profile // this barrier should be visible to a customer and to the threading profile
// tool (it's a terminating barrier on constructs if NOWAIT not specified) // tool (it's a terminating barrier on constructs if NOWAIT not specified)
if (packed_reduction_method == critical_reduce_block) { if (packed_reduction_method == critical_reduce_block) {
__kmp_end_critical_section_reduce_block(loc, global_tid, lck); __kmp_end_critical_section_reduce_block(loc, global_tid, lck);
// TODO: implicit barrier: should be exposed // TODO: implicit barrier: should be exposed
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_frame_t *ompt_frame; ompt_frame_t *ompt_frame;
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
__ompt_get_task_info_internal(0, NULL, NULL, &ompt_frame, NULL, NULL); __ompt_get_task_info_internal(0, NULL, NULL, &ompt_frame, NULL, NULL);
if (ompt_frame->enter_frame.ptr == NULL) if (ompt_frame->enter_frame.ptr == NULL)
▲ Show 20 Lines • Show All 64 Lines • ▼ Show 20 Lines#endif
__kmp_end_split_barrier(UNPACK_REDUCTION_BARRIER(packed_reduction_method), __kmp_end_split_barrier(UNPACK_REDUCTION_BARRIER(packed_reduction_method),
global_tid); global_tid);
} else { } else {
// should never reach this block // should never reach this block
KMP_ASSERT(0); // "unexpected method" KMP_ASSERT(0); // "unexpected method"
} }
#if OMP_40_ENABLED
if (teams_swapped) { if (teams_swapped) {
__kmp_restore_swapped_teams(th, team, task_state); __kmp_restore_swapped_teams(th, team, task_state);
} }
#endif
if (__kmp_env_consistency_check) if (__kmp_env_consistency_check)
__kmp_pop_sync(global_tid, ct_reduce, loc); __kmp_pop_sync(global_tid, ct_reduce, loc);
KA_TRACE(10, ("__kmpc_end_reduce() exit: called T#%d: method %08x\n", KA_TRACE(10, ("__kmpc_end_reduce() exit: called T#%d: method %08x\n",
global_tid, packed_reduction_method)); global_tid, packed_reduction_method));
return; return;
Show All 29 Lines if (gtid < 0) {
return 0; return 0;
} }
thread = __kmp_thread_from_gtid(gtid); thread = __kmp_thread_from_gtid(gtid);
parent_task = thread->th.th_current_task->td_parent; parent_task = thread->th.th_current_task->td_parent;
return (parent_task == NULL ? 0 : parent_task->td_task_id); return (parent_task == NULL ? 0 : parent_task->td_task_id);
} // __kmpc_get_parent_taskid } // __kmpc_get_parent_taskid
#if OMP_45_ENABLED
/*! /*!
@ingroup WORK_SHARING @ingroup WORK_SHARING
@param loc source location information. @param loc source location information.
@param gtid global thread number. @param gtid global thread number.
@param num_dims number of associated doacross loops. @param num_dims number of associated doacross loops.
@param dims info on loops bounds. @param dims info on loops bounds.
Initialize doacross loop information. Initialize doacross loop information.
▲ Show 20 Lines • Show All 295 Lines • ▼ Show 20 Lines sh_buf->doacross_buf_idx +=
__kmp_dispatch_num_buffers; // free buffer for future re-use __kmp_dispatch_num_buffers; // free buffer for future re-use
} }
// free private resources (need to keep buffer index forever) // free private resources (need to keep buffer index forever)
pr_buf->th_doacross_flags = NULL; pr_buf->th_doacross_flags = NULL;
__kmp_thread_free(th, (void *)pr_buf->th_doacross_info); __kmp_thread_free(th, (void *)pr_buf->th_doacross_info);
pr_buf->th_doacross_info = NULL; pr_buf->th_doacross_info = NULL;
KA_TRACE(20, ("__kmpc_doacross_fini() exit: T#%d\n", gtid)); KA_TRACE(20, ("__kmpc_doacross_fini() exit: T#%d\n", gtid));
} }
#endif
#if OMP_50_ENABLED
/* omp_alloc/omp_free only defined for C/C++, not for Fortran */ /* omp_alloc/omp_free only defined for C/C++, not for Fortran */
void *omp_alloc(size_t size, omp_allocator_handle_t allocator) { void *omp_alloc(size_t size, omp_allocator_handle_t allocator) {
return __kmpc_alloc(__kmp_entry_gtid(), size, allocator); return __kmpc_alloc(__kmp_entry_gtid(), size, allocator);
} }
void omp_free(void *ptr, omp_allocator_handle_t allocator) { void omp_free(void *ptr, omp_allocator_handle_t allocator) {
__kmpc_free(__kmp_entry_gtid(), ptr, allocator); __kmpc_free(__kmp_entry_gtid(), ptr, allocator);
} }
int __kmpc_get_target_offload(void) { int __kmpc_get_target_offload(void) {
if (!__kmp_init_serial) { if (!__kmp_init_serial) {
__kmp_serial_initialize(); __kmp_serial_initialize();
} }
return __kmp_target_offload; return __kmp_target_offload;
} }
int __kmpc_pause_resource(kmp_pause_status_t level) { int __kmpc_pause_resource(kmp_pause_status_t level) {
if (!__kmp_init_serial) { if (!__kmp_init_serial) {
return 1; // Can't pause if runtime is not initialized return 1; // Can't pause if runtime is not initialized
} }
return __kmp_pause_resource(level); return __kmp_pause_resource(level);
} }
#endif // OMP_50_ENABLED
// end of file //

runtime/src/kmp_debugger.cpp

Show First 20 Lines • Show All 95 Lines • ▼ Show 20 Lines#endif
offset_and_size_of(kmp_base_info_t, th_spin_here), offset_and_size_of(kmp_base_info_t, th_spin_here),
offset_and_size_of(kmp_base_info_t, th_next_waiting), offset_and_size_of(kmp_base_info_t, th_next_waiting),
offset_and_size_of(kmp_base_info_t, th_task_team), offset_and_size_of(kmp_base_info_t, th_task_team),
offset_and_size_of(kmp_base_info_t, th_current_task), offset_and_size_of(kmp_base_info_t, th_current_task),
offset_and_size_of(kmp_base_info_t, th_task_state), offset_and_size_of(kmp_base_info_t, th_task_state),
offset_and_size_of(kmp_base_info_t, th_bar), offset_and_size_of(kmp_base_info_t, th_bar),
offset_and_size_of(kmp_bstate_t, b_worker_arrived), offset_and_size_of(kmp_bstate_t, b_worker_arrived),
#if OMP_40_ENABLED
// teams information // teams information
offset_and_size_of(kmp_base_info_t, th_teams_microtask), offset_and_size_of(kmp_base_info_t, th_teams_microtask),
offset_and_size_of(kmp_base_info_t, th_teams_level), offset_and_size_of(kmp_base_info_t, th_teams_level),
offset_and_size_of(kmp_teams_size_t, nteams), offset_and_size_of(kmp_teams_size_t, nteams),
offset_and_size_of(kmp_teams_size_t, nth), offset_and_size_of(kmp_teams_size_t, nth),
#endif
// kmp_desc structure (for info field above) // kmp_desc structure (for info field above)
sizeof(kmp_desc_base_t), sizeof(kmp_desc_base_t),
offset_and_size_of(kmp_desc_base_t, ds_tid), offset_and_size_of(kmp_desc_base_t, ds_tid),
offset_and_size_of(kmp_desc_base_t, ds_gtid), offset_and_size_of(kmp_desc_base_t, ds_gtid),
// On Windows* OS, ds_thread contains a thread /handle/, which is not usable, // On Windows* OS, ds_thread contains a thread /handle/, which is not usable,
// while thread /id/ is in ds_thread_id. // while thread /id/ is in ds_thread_id.
#if KMP_OS_WINDOWS #if KMP_OS_WINDOWS
Show All 9 Lines#endif
offset_and_size_of(kmp_base_team_t, t_parent), offset_and_size_of(kmp_base_team_t, t_parent),
offset_and_size_of(kmp_base_team_t, t_nproc), offset_and_size_of(kmp_base_team_t, t_nproc),
offset_and_size_of(kmp_base_team_t, t_threads), offset_and_size_of(kmp_base_team_t, t_threads),
offset_and_size_of(kmp_base_team_t, t_serialized), offset_and_size_of(kmp_base_team_t, t_serialized),
offset_and_size_of(kmp_base_team_t, t_id), offset_and_size_of(kmp_base_team_t, t_id),
offset_and_size_of(kmp_base_team_t, t_pkfn), offset_and_size_of(kmp_base_team_t, t_pkfn),
offset_and_size_of(kmp_base_team_t, t_task_team), offset_and_size_of(kmp_base_team_t, t_task_team),
offset_and_size_of(kmp_base_team_t, t_implicit_task_taskdata), offset_and_size_of(kmp_base_team_t, t_implicit_task_taskdata),
#if OMP_40_ENABLED
offset_and_size_of(kmp_base_team_t, t_cancel_request), offset_and_size_of(kmp_base_team_t, t_cancel_request),
#endif
offset_and_size_of(kmp_base_team_t, t_bar), offset_and_size_of(kmp_base_team_t, t_bar),
offset_and_size_of(kmp_balign_team_t, b_master_arrived), offset_and_size_of(kmp_balign_team_t, b_master_arrived),
offset_and_size_of(kmp_balign_team_t, b_team_arrived), offset_and_size_of(kmp_balign_team_t, b_team_arrived),
// root structure information // root structure information
sizeof(kmp_base_root_t), sizeof(kmp_base_root_t),
offset_and_size_of(kmp_base_root_t, r_root_team), offset_and_size_of(kmp_base_root_t, r_root_team),
offset_and_size_of(kmp_base_root_t, r_hot_team), offset_and_size_of(kmp_base_root_t, r_hot_team),
▲ Show 20 Lines • Show All 43 Lines • ▼ Show 20 Lines#endif
offset_and_size_of(kmp_taskdata_t, td_ident), offset_and_size_of(kmp_taskdata_t, td_ident),
offset_and_size_of(kmp_taskdata_t, td_allocated_child_tasks), offset_and_size_of(kmp_taskdata_t, td_allocated_child_tasks),
offset_and_size_of(kmp_taskdata_t, td_incomplete_child_tasks), offset_and_size_of(kmp_taskdata_t, td_incomplete_child_tasks),
offset_and_size_of(kmp_taskdata_t, td_taskwait_ident), offset_and_size_of(kmp_taskdata_t, td_taskwait_ident),
offset_and_size_of(kmp_taskdata_t, td_taskwait_counter), offset_and_size_of(kmp_taskdata_t, td_taskwait_counter),
offset_and_size_of(kmp_taskdata_t, td_taskwait_thread), offset_and_size_of(kmp_taskdata_t, td_taskwait_thread),
#if OMP_40_ENABLED
offset_and_size_of(kmp_taskdata_t, td_taskgroup), offset_and_size_of(kmp_taskdata_t, td_taskgroup),
offset_and_size_of(kmp_taskgroup_t, count), offset_and_size_of(kmp_taskgroup_t, count),
offset_and_size_of(kmp_taskgroup_t, cancel_request), offset_and_size_of(kmp_taskgroup_t, cancel_request),
offset_and_size_of(kmp_taskdata_t, td_depnode), offset_and_size_of(kmp_taskdata_t, td_depnode),
offset_and_size_of(kmp_depnode_list_t, node), offset_and_size_of(kmp_depnode_list_t, node),
offset_and_size_of(kmp_depnode_list_t, next), offset_and_size_of(kmp_depnode_list_t, next),
offset_and_size_of(kmp_base_depnode_t, successors), offset_and_size_of(kmp_base_depnode_t, successors),
offset_and_size_of(kmp_base_depnode_t, task), offset_and_size_of(kmp_base_depnode_t, task),
offset_and_size_of(kmp_base_depnode_t, npredecessors), offset_and_size_of(kmp_base_depnode_t, npredecessors),
offset_and_size_of(kmp_base_depnode_t, nrefs), offset_and_size_of(kmp_base_depnode_t, nrefs),
#endif
offset_and_size_of(kmp_task_t, routine), offset_and_size_of(kmp_task_t, routine),
// thread_data_t. // thread_data_t.
sizeof(kmp_thread_data_t), sizeof(kmp_thread_data_t),
offset_and_size_of(kmp_base_thread_data_t, td_deque), offset_and_size_of(kmp_base_thread_data_t, td_deque),
offset_and_size_of(kmp_base_thread_data_t, td_deque_size), offset_and_size_of(kmp_base_thread_data_t, td_deque_size),
offset_and_size_of(kmp_base_thread_data_t, td_deque_head), offset_and_size_of(kmp_base_thread_data_t, td_deque_head),
offset_and_size_of(kmp_base_thread_data_t, td_deque_tail), offset_and_size_of(kmp_base_thread_data_t, td_deque_tail),
▲ Show 20 Lines • Show All 74 Lines • Show Last 20 Lines

runtime/src/kmp_dispatch.h

Show First 20 Lines • Show All 165 Lines • ▼ Show 20 Lines
template <typename T> struct dispatch_shared_info_template { template <typename T> struct dispatch_shared_info_template {
typedef typename traits_t<T>::unsigned_t UT; typedef typename traits_t<T>::unsigned_t UT;
// we need union here to keep the structure size // we need union here to keep the structure size
union shared_info_tmpl { union shared_info_tmpl {
dispatch_shared_infoXX_template<UT> s; dispatch_shared_infoXX_template<UT> s;
dispatch_shared_info64_t s64; dispatch_shared_info64_t s64;
} u; } u;
volatile kmp_uint32 buffer_index; volatile kmp_uint32 buffer_index;
#if OMP_45_ENABLED
volatile kmp_int32 doacross_buf_idx; // teamwise index volatile kmp_int32 doacross_buf_idx; // teamwise index
kmp_uint32 *doacross_flags; // array of iteration flags (0/1) kmp_uint32 *doacross_flags; // array of iteration flags (0/1)
kmp_int32 doacross_num_done; // count finished threads kmp_int32 doacross_num_done; // count finished threads
#endif
#if KMP_USE_HIER_SCHED #if KMP_USE_HIER_SCHED
kmp_hier_t<T> *hier; kmp_hier_t<T> *hier;
#endif #endif
#if KMP_USE_HWLOC #if KMP_USE_HWLOC
// When linking with libhwloc, the ORDERED EPCC test slowsdown on big // When linking with libhwloc, the ORDERED EPCC test slowsdown on big
// machines (> 48 cores). Performance analysis showed that a cache thrash // machines (> 48 cores). Performance analysis showed that a cache thrash
// was occurring and this padding helps alleviate the problem. // was occurring and this padding helps alleviate the problem.
char padding[64]; char padding[64];
▲ Show 20 Lines • Show All 322 Lines • Show Last 20 Lines

runtime/src/kmp_dispatch.cpp

Show First 20 Lines • Show All 127 Lines • ▼ Show 20 Lines#ifdef KMP_DEBUG
} }
#endif #endif
/* setup data */ /* setup data */
th = __kmp_threads[gtid]; th = __kmp_threads[gtid];
team = th->th.th_team; team = th->th.th_team;
active = !team->t.t_serialized; active = !team->t.t_serialized;
#if USE_ITT_BUILD #if USE_ITT_BUILD
int itt_need_metadata_reporting = __itt_metadata_add_ptr && int itt_need_metadata_reporting =
__kmp_forkjoin_frames_mode == 3 && __itt_metadata_add_ptr && __kmp_forkjoin_frames_mode == 3 &&
KMP_MASTER_GTID(gtid) && KMP_MASTER_GTID(gtid) && th->th.th_teams_microtask == NULL &&
#if OMP_40_ENABLED
th->th.th_teams_microtask == NULL &&
#endif
team->t.t_active_level == 1; team->t.t_active_level == 1;
#endif #endif
#if KMP_USE_HIER_SCHED #if KMP_USE_HIER_SCHED
use_hier = pr->flags.use_hier; use_hier = pr->flags.use_hier;
#else #else
use_hier = false; use_hier = false;
#endif #endif
▲ Show 20 Lines • Show All 88 Lines • ▼ Show 20 Lines if (schedule == kmp_sch_dynamic_chunked) {
schedule = kmp_sch_static_steal; schedule = kmp_sch_static_steal;
} }
#endif #endif
/* guided analytical not safe for too many threads */ /* guided analytical not safe for too many threads */
if (schedule == kmp_sch_guided_analytical_chunked && nproc > 1 << 20) { if (schedule == kmp_sch_guided_analytical_chunked && nproc > 1 << 20) {
schedule = kmp_sch_guided_iterative_chunked; schedule = kmp_sch_guided_iterative_chunked;
KMP_WARNING(DispatchManyThreads); KMP_WARNING(DispatchManyThreads);
} }
#if OMP_45_ENABLED
if (schedule == kmp_sch_runtime_simd) { if (schedule == kmp_sch_runtime_simd) {
// compiler provides simd_width in the chunk parameter // compiler provides simd_width in the chunk parameter
schedule = team->t.t_sched.r_sched_type; schedule = team->t.t_sched.r_sched_type;
monotonicity = __kmp_get_monotonicity(schedule, use_hier); monotonicity = __kmp_get_monotonicity(schedule, use_hier);
schedule = SCHEDULE_WITHOUT_MODIFIERS(schedule); schedule = SCHEDULE_WITHOUT_MODIFIERS(schedule);
// Detail the schedule if needed (global controls are differentiated // Detail the schedule if needed (global controls are differentiated
// appropriately) // appropriately)
if (schedule == kmp_sch_static || schedule == kmp_sch_auto || if (schedule == kmp_sch_static || schedule == kmp_sch_auto ||
Show All 17 Lines#ifdef KMP_DEBUG
"__kmp_dispatch_init_algorithm: T#%%d new: schedule:%%d" "__kmp_dispatch_init_algorithm: T#%%d new: schedule:%%d"
" chunk:%%%s\n", " chunk:%%%s\n",
traits_t<ST>::spec); traits_t<ST>::spec);
KD_TRACE(10, (buff, gtid, schedule, chunk)); KD_TRACE(10, (buff, gtid, schedule, chunk));
__kmp_str_free(&buff); __kmp_str_free(&buff);
} }
#endif #endif
} }
#endif // OMP_45_ENABLED
pr->u.p.parm1 = chunk; pr->u.p.parm1 = chunk;
} }
KMP_ASSERT2((kmp_sch_lower < schedule && schedule < kmp_sch_upper), KMP_ASSERT2((kmp_sch_lower < schedule && schedule < kmp_sch_upper),
"unknown scheduling type"); "unknown scheduling type");
pr->u.p.count = 0; pr->u.p.count = 0;
if (__kmp_env_consistency_check) { if (__kmp_env_consistency_check) {
▲ Show 20 Lines • Show All 166 Lines • ▼ Show 20 Lines if (st == 1) {
} }
} }
if (pr->flags.ordered) { if (pr->flags.ordered) {
pr->u.p.ordered_lower = init; pr->u.p.ordered_lower = init;
pr->u.p.ordered_upper = limit; pr->u.p.ordered_upper = limit;
} }
break; break;
} // case } // case
#if OMP_45_ENABLED
case kmp_sch_static_balanced_chunked: { case kmp_sch_static_balanced_chunked: {
// similar to balanced, but chunk adjusted to multiple of simd width // similar to balanced, but chunk adjusted to multiple of simd width
T nth = nproc; T nth = nproc;
KD_TRACE(100, ("__kmp_dispatch_init_algorithm: T#%d runtime(simd:static)" KD_TRACE(100, ("__kmp_dispatch_init_algorithm: T#%d runtime(simd:static)"
" -> falling-through to static_greedy\n", " -> falling-through to static_greedy\n",
gtid)); gtid));
schedule = kmp_sch_static_greedy; schedule = kmp_sch_static_greedy;
if (nth > 1) if (nth > 1)
pr->u.p.parm1 = ((tc + nth - 1) / nth + chunk - 1) & ~(chunk - 1); pr->u.p.parm1 = ((tc + nth - 1) / nth + chunk - 1) & ~(chunk - 1);
else else
pr->u.p.parm1 = tc; pr->u.p.parm1 = tc;
break; break;
} // case } // case
case kmp_sch_guided_simd: case kmp_sch_guided_simd:
#endif // OMP_45_ENABLED
case kmp_sch_guided_iterative_chunked: { case kmp_sch_guided_iterative_chunked: {
KD_TRACE( KD_TRACE(
100, 100,
("__kmp_dispatch_init_algorithm: T#%d kmp_sch_guided_iterative_chunked" ("__kmp_dispatch_init_algorithm: T#%d kmp_sch_guided_iterative_chunked"
" case\n", " case\n",
gtid)); gtid));
if (nproc > 1) { if (nproc > 1) {
▲ Show 20 Lines • Show All 290 Lines • ▼ Show 20 Lines__kmp_dispatch_init(ident_t *loc, int gtid, enum sched_type schedule, T lb,
KMP_BUILD_ASSERT(sizeof(dispatch_private_info_template<T>) == KMP_BUILD_ASSERT(sizeof(dispatch_private_info_template<T>) ==
sizeof(dispatch_private_info)); sizeof(dispatch_private_info));
KMP_BUILD_ASSERT(sizeof(dispatch_shared_info_template<UT>) == KMP_BUILD_ASSERT(sizeof(dispatch_shared_info_template<UT>) ==
sizeof(dispatch_shared_info)); sizeof(dispatch_shared_info));
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
#if INCLUDE_SSC_MARKS #if INCLUDE_SSC_MARKS
SSC_MARK_DISPATCH_INIT(); SSC_MARK_DISPATCH_INIT();
#endif #endif
#ifdef KMP_DEBUG #ifdef KMP_DEBUG
typedef typename traits_t<T>::signed_t ST; typedef typename traits_t<T>::signed_t ST;
{ {
char *buff; char *buff;
▲ Show 20 Lines • Show All 49 Lines • ▼ Show 20 Lines if (schedule == kmp_sch_runtime && __kmp_hier_scheds.size > 0) {
// use the runtime hierarchy if one was specified in the program // use the runtime hierarchy if one was specified in the program
if (!ordered && !pr->flags.use_hier) if (!ordered && !pr->flags.use_hier)
__kmp_dispatch_init_hier_runtime<T>(loc, lb, ub, st); __kmp_dispatch_init_hier_runtime<T>(loc, lb, ub, st);
} }
#endif // KMP_USE_HIER_SCHED #endif // KMP_USE_HIER_SCHED
#if USE_ITT_BUILD #if USE_ITT_BUILD
kmp_uint64 cur_chunk = chunk; kmp_uint64 cur_chunk = chunk;
int itt_need_metadata_reporting = __itt_metadata_add_ptr && int itt_need_metadata_reporting =
__kmp_forkjoin_frames_mode == 3 && __itt_metadata_add_ptr && __kmp_forkjoin_frames_mode == 3 &&
KMP_MASTER_GTID(gtid) && KMP_MASTER_GTID(gtid) && th->th.th_teams_microtask == NULL &&
#if OMP_40_ENABLED
th->th.th_teams_microtask == NULL &&
#endif
team->t.t_active_level == 1; team->t.t_active_level == 1;
#endif #endif
if (!active) { if (!active) {
pr = reinterpret_cast<dispatch_private_info_template<T> *>( pr = reinterpret_cast<dispatch_private_info_template<T> *>(
th->th.th_dispatch->th_disp_buffer); /* top of the stack */ th->th.th_dispatch->th_disp_buffer); /* top of the stack */
} else { } else {
KMP_DEBUG_ASSERT(th->th.th_dispatch == KMP_DEBUG_ASSERT(th->th.th_dispatch ==
&th->th.th_team->t.t_dispatch[th->th.th_info.ds.ds_tid]); &th->th.th_team->t.t_dispatch[th->th.th_info.ds.ds_tid]);
▲ Show 20 Lines • Show All 59 Lines • ▼ Show 20 Lines if (itt_need_metadata_reporting) {
case kmp_sch_static_greedy: case kmp_sch_static_greedy:
cur_chunk = pr->u.p.parm1; cur_chunk = pr->u.p.parm1;
break; break;
case kmp_sch_dynamic_chunked: case kmp_sch_dynamic_chunked:
schedtype = 1; schedtype = 1;
break; break;
case kmp_sch_guided_iterative_chunked: case kmp_sch_guided_iterative_chunked:
case kmp_sch_guided_analytical_chunked: case kmp_sch_guided_analytical_chunked:
#if OMP_45_ENABLED
case kmp_sch_guided_simd: case kmp_sch_guided_simd:
#endif
schedtype = 2; schedtype = 2;
break; break;
default: default:
// Should we put this case under "static"? // Should we put this case under "static"?
// case kmp_sch_static_steal: // case kmp_sch_static_steal:
schedtype = 3; schedtype = 3;
break; break;
} }
▲ Show 20 Lines • Show All 642 Lines • ▼ Show 20 Lines if (status != 0) {
*p_lb = 0; *p_lb = 0;
*p_ub = 0; *p_ub = 0;
if (p_st != NULL) if (p_st != NULL)
*p_st = 0; *p_st = 0;
} // if } // if
} // case } // case
break; break;
#if OMP_45_ENABLED
case kmp_sch_guided_simd: { case kmp_sch_guided_simd: {
// same as iterative but curr-chunk adjusted to be multiple of given // same as iterative but curr-chunk adjusted to be multiple of given
// chunk // chunk
T chunk = pr->u.p.parm1; T chunk = pr->u.p.parm1;
KD_TRACE(100, KD_TRACE(100,
("__kmp_dispatch_next_algorithm: T#%d kmp_sch_guided_simd case\n", ("__kmp_dispatch_next_algorithm: T#%d kmp_sch_guided_simd case\n",
gtid)); gtid));
trip = pr->u.p.tc; trip = pr->u.p.tc;
▲ Show 20 Lines • Show All 56 Lines • ▼ Show 20 Lines case kmp_sch_guided_simd: {
} else { } else {
*p_lb = 0; *p_lb = 0;
*p_ub = 0; *p_ub = 0;
if (p_st != NULL) if (p_st != NULL)
*p_st = 0; *p_st = 0;
} // if } // if
} // case } // case
break; break;
#endif // OMP_45_ENABLED
case kmp_sch_guided_analytical_chunked: { case kmp_sch_guided_analytical_chunked: {
T chunkspec = pr->u.p.parm1; T chunkspec = pr->u.p.parm1;
UT chunkIdx; UT chunkIdx;
#if KMP_USE_X87CONTROL #if KMP_USE_X87CONTROL
/* for storing original FPCW value for Windows* OS on /* for storing original FPCW value for Windows* OS on
IA-32 architecture 8-byte version */ IA-32 architecture 8-byte version */
unsigned int oldFpcw; unsigned int oldFpcw;
▲ Show 20 Lines • Show All 519 Lines • ▼ Show 20 Lines if (incr > 0 ? (*pupper < *plower) : (*plower < *pupper)) {
// Compiler does not check the following illegal loops: // Compiler does not check the following illegal loops:
// for(i=0;i<10;i+=incr) // where incr<0 // for(i=0;i<10;i+=incr) // where incr<0
// for(i=10;i>0;i-=incr) // where incr<0 // for(i=10;i>0;i-=incr) // where incr<0
__kmp_error_construct(kmp_i18n_msg_CnsLoopIncrIllegal, ct_pdo, loc); __kmp_error_construct(kmp_i18n_msg_CnsLoopIncrIllegal, ct_pdo, loc);
} }
} }
th = __kmp_threads[gtid]; th = __kmp_threads[gtid];
team = th->th.th_team; team = th->th.th_team;
#if OMP_40_ENABLED
KMP_DEBUG_ASSERT(th->th.th_teams_microtask); // we are in the teams construct KMP_DEBUG_ASSERT(th->th.th_teams_microtask); // we are in the teams construct
nteams = th->th.th_teams_size.nteams; nteams = th->th.th_teams_size.nteams;
#endif
team_id = team->t.t_master_tid; team_id = team->t.t_master_tid;
KMP_DEBUG_ASSERT(nteams == (kmp_uint32)team->t.t_parent->t.t_nproc); KMP_DEBUG_ASSERT(nteams == (kmp_uint32)team->t.t_parent->t.t_nproc);
// compute global trip count // compute global trip count
if (incr == 1) { if (incr == 1) {
trip_count = *pupper - *plower + 1; trip_count = *pupper - *plower + 1;
} else if (incr == -1) { } else if (incr == -1) {
trip_count = *plower - *pupper + 1; trip_count = *plower - *pupper + 1;
▲ Show 20 Lines • Show All 420 Lines • Show Last 20 Lines

runtime/src/kmp_dispatch_hier.h

Show First 20 Lines • Show All 935 Lines • ▼ Show 20 Lines#ifdef KMP_DEBUG
} }
#endif // KMP_DEBUG #endif // KMP_DEBUG
KMP_DEBUG_ASSERT(n > 0); KMP_DEBUG_ASSERT(n > 0);
KMP_DEBUG_ASSERT(new_layers); KMP_DEBUG_ASSERT(new_layers);
KMP_DEBUG_ASSERT(new_scheds); KMP_DEBUG_ASSERT(new_scheds);
KMP_DEBUG_ASSERT(new_chunks); KMP_DEBUG_ASSERT(new_chunks);
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
th = __kmp_threads[gtid]; th = __kmp_threads[gtid];
team = th->th.th_team; team = th->th.th_team;
active = !team->t.t_serialized; active = !team->t.t_serialized;
th->th.th_ident = loc; th->th.th_ident = loc;
num_hw_threads = __kmp_hier_max_units[kmp_hier_layer_e::LAYER_THREAD + 1]; num_hw_threads = __kmp_hier_max_units[kmp_hier_layer_e::LAYER_THREAD + 1];
KMP_DEBUG_ASSERT(th->th.th_dispatch == KMP_DEBUG_ASSERT(th->th.th_dispatch ==
&th->th.th_team->t.t_dispatch[th->th.th_info.ds.ds_tid]); &th->th.th_team->t.t_dispatch[th->th.th_info.ds.ds_tid]);
▲ Show 20 Lines • Show All 154 Lines • Show Last 20 Lines

runtime/src/kmp_ftn_entry.h

Show All 14 Lines
#endif #endif
#ifdef KMP_STUB #ifdef KMP_STUB
#include "kmp_stub.h" #include "kmp_stub.h"
#endif #endif
#include "kmp_i18n.h" #include "kmp_i18n.h"
#if OMP_50_ENABLED
// For affinity format functions // For affinity format functions
#include "kmp_io.h" #include "kmp_io.h"
#include "kmp_str.h" #include "kmp_str.h"
#endif
#if OMPT_SUPPORT #if OMPT_SUPPORT
#include "ompt-specific.h" #include "ompt-specific.h"
#endif #endif
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif // __cplusplus #endif // __cplusplus
▲ Show 20 Lines • Show All 308 Lines • ▼ Show 20 Lines#else
gtid = __kmp_entry_gtid(); gtid = __kmp_entry_gtid();
thread = __kmp_threads[gtid]; thread = __kmp_threads[gtid];
// return thread -> th.th_team -> t.t_current_task[ // return thread -> th.th_team -> t.t_current_task[
// thread->th.th_info.ds.ds_tid ] -> icvs.nproc; // thread->th.th_info.ds.ds_tid ] -> icvs.nproc;
return thread->th.th_current_task->td_icvs.nproc; return thread->th.th_current_task->td_icvs.nproc;
#endif #endif
} }
#if OMP_50_ENABLED
int FTN_STDCALL FTN_CONTROL_TOOL(int command, int modifier, void *arg) { int FTN_STDCALL FTN_CONTROL_TOOL(int command, int modifier, void *arg) {
#if defined(KMP_STUB) || !OMPT_SUPPORT #if defined(KMP_STUB) || !OMPT_SUPPORT
return -2; return -2;
#else #else
OMPT_STORE_RETURN_ADDRESS(__kmp_entry_gtid()); OMPT_STORE_RETURN_ADDRESS(__kmp_entry_gtid());
if (!TCR_4(__kmp_init_middle)) { if (!TCR_4(__kmp_init_middle)) {
return -2; return -2;
} }
▲ Show 20 Lines • Show All 160 Lines • ▼ Show 20 Lines#else
if (buffer && buf_size) { if (buffer && buf_size) {
__kmp_fortran_strncpy_truncate(buffer, buf_size, capture_buf.str, __kmp_fortran_strncpy_truncate(buffer, buf_size, capture_buf.str,
capture_buf.used); capture_buf.used);
} }
__kmp_str_buf_free(&capture_buf); __kmp_str_buf_free(&capture_buf);
return num_required; return num_required;
#endif #endif
} }
#endif /* OMP_50_ENABLED */
int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_THREAD_NUM)(void) { int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_THREAD_NUM)(void) {
#ifdef KMP_STUB #ifdef KMP_STUB
return 0; return 0;
#else #else
int gtid; int gtid;
#if KMP_OS_DARWIN || KMP_OS_DRAGONFLY || KMP_OS_FREEBSD || KMP_OS_NETBSD || \ #if KMP_OS_DARWIN || KMP_OS_DRAGONFLY || KMP_OS_FREEBSD || KMP_OS_NETBSD || \
▲ Show 20 Lines • Show All 108 Lines • ▼ Show 20 Lines
#endif #endif
} }
int FTN_STDCALL KMP_EXPAND_NAME(FTN_IN_PARALLEL)(void) { int FTN_STDCALL KMP_EXPAND_NAME(FTN_IN_PARALLEL)(void) {
#ifdef KMP_STUB #ifdef KMP_STUB
return 0; return 0;
#else #else
kmp_info_t *th = __kmp_entry_thread(); kmp_info_t *th = __kmp_entry_thread();
#if OMP_40_ENABLED
if (th->th.th_teams_microtask) { if (th->th.th_teams_microtask) {
// AC: r_in_parallel does not work inside teams construct where real // AC: r_in_parallel does not work inside teams construct where real
// parallel is inactive, but all threads have same root, so setting it in // parallel is inactive, but all threads have same root, so setting it in
// one team affects other teams. // one team affects other teams.
// The solution is to use per-team nesting level // The solution is to use per-team nesting level
return (th->th.th_team->t.t_active_level ? 1 : 0); return (th->th.th_team->t.t_active_level ? 1 : 0);
} else } else
#endif /* OMP_40_ENABLED */
return (th->th.th_root->r.r_in_parallel ? FTN_TRUE : FTN_FALSE); return (th->th.th_root->r.r_in_parallel ? FTN_TRUE : FTN_FALSE);
#endif #endif
} }
void FTN_STDCALL KMP_EXPAND_NAME(FTN_SET_SCHEDULE)(kmp_sched_t KMP_DEREF kind, void FTN_STDCALL KMP_EXPAND_NAME(FTN_SET_SCHEDULE)(kmp_sched_t KMP_DEREF kind,
int KMP_DEREF modifier) { int KMP_DEREF modifier) {
#ifdef KMP_STUB #ifdef KMP_STUB
__kmps_set_schedule(KMP_DEREF kind, KMP_DEREF modifier); __kmps_set_schedule(KMP_DEREF kind, KMP_DEREF modifier);
▲ Show 20 Lines • Show All 88 Lines • ▼ Show 20 Lines
#else #else
if (!TCR_4(__kmp_init_parallel)) { if (!TCR_4(__kmp_init_parallel)) {
return 0; return 0;
} }
return __kmp_entry_thread()->th.th_current_task->td_flags.final; return __kmp_entry_thread()->th.th_current_task->td_flags.final;
#endif #endif
} }
#if OMP_40_ENABLED
kmp_proc_bind_t FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_PROC_BIND)(void) { kmp_proc_bind_t FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_PROC_BIND)(void) {
#ifdef KMP_STUB #ifdef KMP_STUB
return __kmps_get_proc_bind(); return __kmps_get_proc_bind();
#else #else
return get__proc_bind(__kmp_entry_thread()); return get__proc_bind(__kmp_entry_thread());
#endif #endif
} }
#if OMP_45_ENABLED
int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_NUM_PLACES)(void) { int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_NUM_PLACES)(void) {
#if defined(KMP_STUB) || !KMP_AFFINITY_SUPPORTED #if defined(KMP_STUB) || !KMP_AFFINITY_SUPPORTED
return 0; return 0;
#else #else
if (!TCR_4(__kmp_init_middle)) { if (!TCR_4(__kmp_init_middle)) {
__kmp_middle_initialize(); __kmp_middle_initialize();
} }
if (!KMP_AFFINITY_CAPABLE()) if (!KMP_AFFINITY_CAPABLE())
▲ Show 20 Lines • Show All 121 Lines • ▼ Show 20 Lines if (first_place <= last_place) {
start = last_place; start = last_place;
end = first_place; end = first_place;
} }
for (i = 0, place_num = start; place_num <= end; ++place_num, ++i) { for (i = 0, place_num = start; place_num <= end; ++place_num, ++i) {
place_nums[i] = place_num; place_nums[i] = place_num;
} }
#endif #endif
} }
#endif
int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_NUM_TEAMS)(void) { int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_NUM_TEAMS)(void) {
#ifdef KMP_STUB #ifdef KMP_STUB
return 1; return 1;
#else #else
return __kmp_aux_get_num_teams(); return __kmp_aux_get_num_teams();
#endif #endif
} }
▲ Show 20 Lines • Show All 43 Lines • ▼ Show 20 Lines
// This function always returns true when called on host device. // This function always returns true when called on host device.
// Compilier/libomptarget should handle when it is called inside target region. // Compilier/libomptarget should handle when it is called inside target region.
int FTN_STDCALL KMP_EXPAND_NAME(FTN_IS_INITIAL_DEVICE)(void) KMP_WEAK_ATTRIBUTE; int FTN_STDCALL KMP_EXPAND_NAME(FTN_IS_INITIAL_DEVICE)(void) KMP_WEAK_ATTRIBUTE;
int FTN_STDCALL KMP_EXPAND_NAME(FTN_IS_INITIAL_DEVICE)(void) { int FTN_STDCALL KMP_EXPAND_NAME(FTN_IS_INITIAL_DEVICE)(void) {
return 1; // This is the host return 1; // This is the host
} }
#endif // OMP_40_ENABLED
#if OMP_45_ENABLED
// OpenMP 4.5 entries
// libomptarget, if loaded, provides this function // libomptarget, if loaded, provides this function
int FTN_STDCALL FTN_GET_INITIAL_DEVICE(void) KMP_WEAK_ATTRIBUTE; int FTN_STDCALL FTN_GET_INITIAL_DEVICE(void) KMP_WEAK_ATTRIBUTE;
int FTN_STDCALL FTN_GET_INITIAL_DEVICE(void) { int FTN_STDCALL FTN_GET_INITIAL_DEVICE(void) {
#if KMP_MIC || KMP_OS_DARWIN || KMP_OS_WINDOWS || defined(KMP_STUB) #if KMP_MIC || KMP_OS_DARWIN || KMP_OS_WINDOWS || defined(KMP_STUB)
return KMP_HOST_DEVICE; return KMP_HOST_DEVICE;
#else #else
int (*fptr)(); int (*fptr)();
if ((*(void **)(&fptr) = dlsym(RTLD_NEXT, "omp_get_initial_device"))) { if ((*(void **)(&fptr) = dlsym(RTLD_NEXT, "omp_get_initial_device"))) {
Show All 32 Linesint FTN_STDCALL FTN_TARGET_ASSOCIATE_PTR(void *host_ptr, void *device_ptr,
int device_num) { int device_num) {
return -1; return -1;
} }
int FTN_STDCALL FTN_TARGET_DISASSOCIATE_PTR(void *host_ptr, int device_num) { int FTN_STDCALL FTN_TARGET_DISASSOCIATE_PTR(void *host_ptr, int device_num) {
return -1; return -1;
} }
#endif // defined(KMP_STUB) #endif // defined(KMP_STUB)
#endif // OMP_45_ENABLED
#ifdef KMP_STUB #ifdef KMP_STUB
typedef enum { UNINIT = -1, UNLOCKED, LOCKED } kmp_stub_lock_t; typedef enum { UNINIT = -1, UNLOCKED, LOCKED } kmp_stub_lock_t;
#endif /* KMP_STUB */ #endif /* KMP_STUB */
#if KMP_USE_DYNAMIC_LOCK #if KMP_USE_DYNAMIC_LOCK
void FTN_STDCALL FTN_INIT_LOCK_WITH_HINT(void **user_lock, void FTN_STDCALL FTN_INIT_LOCK_WITH_HINT(void **user_lock,
uintptr_t KMP_DEREF hint) { uintptr_t KMP_DEREF hint) {
▲ Show 20 Lines • Show All 256 Lines • ▼ Show 20 Lines#ifdef PASS_ARGS_BY_VALUE
int len = (int)KMP_STRLEN(str); int len = (int)KMP_STRLEN(str);
#endif #endif
__kmp_aux_set_defaults(str, len); __kmp_aux_set_defaults(str, len);
#endif #endif
} }
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if OMP_40_ENABLED
/* returns the status of cancellation */ /* returns the status of cancellation */
int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_CANCELLATION)(void) { int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_CANCELLATION)(void) {
#ifdef KMP_STUB #ifdef KMP_STUB
return 0 /* false */; return 0 /* false */;
#else #else
// initialize the library if needed // initialize the library if needed
if (!__kmp_init_serial) { if (!__kmp_init_serial) {
__kmp_serial_initialize(); __kmp_serial_initialize();
} }
return __kmp_omp_cancellation; return __kmp_omp_cancellation;
#endif #endif
} }
int FTN_STDCALL FTN_GET_CANCELLATION_STATUS(int cancel_kind) { int FTN_STDCALL FTN_GET_CANCELLATION_STATUS(int cancel_kind) {
#ifdef KMP_STUB #ifdef KMP_STUB
return 0 /* false */; return 0 /* false */;
#else #else
return __kmp_get_cancellation_status(cancel_kind); return __kmp_get_cancellation_status(cancel_kind);
#endif #endif
} }
#endif // OMP_40_ENABLED
#if OMP_45_ENABLED
/* returns the maximum allowed task priority */ /* returns the maximum allowed task priority */
int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_MAX_TASK_PRIORITY)(void) { int FTN_STDCALL KMP_EXPAND_NAME(FTN_GET_MAX_TASK_PRIORITY)(void) {
#ifdef KMP_STUB #ifdef KMP_STUB
return 0; return 0;
#else #else
if (!__kmp_init_serial) { if (!__kmp_init_serial) {
__kmp_serial_initialize(); __kmp_serial_initialize();
} }
return __kmp_max_task_priority; return __kmp_max_task_priority;
#endif #endif
} }
#endif
#if OMP_50_ENABLED
// This function will be defined in libomptarget. When libomptarget is not // This function will be defined in libomptarget. When libomptarget is not
// loaded, we assume we are on the host and return KMP_HOST_DEVICE. // loaded, we assume we are on the host and return KMP_HOST_DEVICE.
// Compiler/libomptarget will handle this if called inside target. // Compiler/libomptarget will handle this if called inside target.
int FTN_STDCALL FTN_GET_DEVICE_NUM(void) KMP_WEAK_ATTRIBUTE; int FTN_STDCALL FTN_GET_DEVICE_NUM(void) KMP_WEAK_ATTRIBUTE;
int FTN_STDCALL FTN_GET_DEVICE_NUM(void) { return KMP_HOST_DEVICE; } int FTN_STDCALL FTN_GET_DEVICE_NUM(void) { return KMP_HOST_DEVICE; }
// Compiler will ensure that this is only called from host in sequential region // Compiler will ensure that this is only called from host in sequential region
int FTN_STDCALL FTN_PAUSE_RESOURCE(kmp_pause_status_t kind, int device_num) { int FTN_STDCALL FTN_PAUSE_RESOURCE(kmp_pause_status_t kind, int device_num) {
Show All 40 Lines
} }
void FTN_STDCALL FTN_FULFILL_EVENT(kmp_event_t *event) { void FTN_STDCALL FTN_FULFILL_EVENT(kmp_event_t *event) {
#ifndef KMP_STUB #ifndef KMP_STUB
__kmp_fulfill_event(event); __kmp_fulfill_event(event);
#endif #endif
} }
#endif // OMP_50_ENABLED
// GCC compatibility (versioned symbols) // GCC compatibility (versioned symbols)
#ifdef KMP_USE_VERSION_SYMBOLS #ifdef KMP_USE_VERSION_SYMBOLS
/* These following sections create versioned symbols for the /* These following sections create versioned symbols for the
omp_* routines. The KMP_VERSION_SYMBOL macro expands the API name and omp_* routines. The KMP_VERSION_SYMBOL macro expands the API name and
then maps it to a versioned symbol. then maps it to a versioned symbol.
libgomp ``versions'' its symbols (OMP_1.0, OMP_2.0, OMP_3.0, ...) while also libgomp ``versions'' its symbols (OMP_1.0, OMP_2.0, OMP_3.0, ...) while also
retaining the default version which libomp uses: VERSION (defined in retaining the default version which libomp uses: VERSION (defined in
▲ Show 20 Lines • Show All 58 Lines • ▼ Show 20 Lines
KMP_VERSION_SYMBOL(FTN_UNSET_LOCK, 30, "OMP_3.0"); KMP_VERSION_SYMBOL(FTN_UNSET_LOCK, 30, "OMP_3.0");
KMP_VERSION_SYMBOL(FTN_UNSET_NEST_LOCK, 30, "OMP_3.0"); KMP_VERSION_SYMBOL(FTN_UNSET_NEST_LOCK, 30, "OMP_3.0");
KMP_VERSION_SYMBOL(FTN_TEST_LOCK, 30, "OMP_3.0"); KMP_VERSION_SYMBOL(FTN_TEST_LOCK, 30, "OMP_3.0");
KMP_VERSION_SYMBOL(FTN_TEST_NEST_LOCK, 30, "OMP_3.0"); KMP_VERSION_SYMBOL(FTN_TEST_NEST_LOCK, 30, "OMP_3.0");
// OMP_3.1 versioned symbol // OMP_3.1 versioned symbol
KMP_VERSION_SYMBOL(FTN_IN_FINAL, 31, "OMP_3.1"); KMP_VERSION_SYMBOL(FTN_IN_FINAL, 31, "OMP_3.1");
#if OMP_40_ENABLED
// OMP_4.0 versioned symbols // OMP_4.0 versioned symbols
KMP_VERSION_SYMBOL(FTN_GET_PROC_BIND, 40, "OMP_4.0"); KMP_VERSION_SYMBOL(FTN_GET_PROC_BIND, 40, "OMP_4.0");
KMP_VERSION_SYMBOL(FTN_GET_NUM_TEAMS, 40, "OMP_4.0"); KMP_VERSION_SYMBOL(FTN_GET_NUM_TEAMS, 40, "OMP_4.0");
KMP_VERSION_SYMBOL(FTN_GET_TEAM_NUM, 40, "OMP_4.0"); KMP_VERSION_SYMBOL(FTN_GET_TEAM_NUM, 40, "OMP_4.0");
KMP_VERSION_SYMBOL(FTN_GET_CANCELLATION, 40, "OMP_4.0"); KMP_VERSION_SYMBOL(FTN_GET_CANCELLATION, 40, "OMP_4.0");
KMP_VERSION_SYMBOL(FTN_GET_DEFAULT_DEVICE, 40, "OMP_4.0"); KMP_VERSION_SYMBOL(FTN_GET_DEFAULT_DEVICE, 40, "OMP_4.0");
KMP_VERSION_SYMBOL(FTN_SET_DEFAULT_DEVICE, 40, "OMP_4.0"); KMP_VERSION_SYMBOL(FTN_SET_DEFAULT_DEVICE, 40, "OMP_4.0");
KMP_VERSION_SYMBOL(FTN_IS_INITIAL_DEVICE, 40, "OMP_4.0"); KMP_VERSION_SYMBOL(FTN_IS_INITIAL_DEVICE, 40, "OMP_4.0");
KMP_VERSION_SYMBOL(FTN_GET_NUM_DEVICES, 40, "OMP_4.0"); KMP_VERSION_SYMBOL(FTN_GET_NUM_DEVICES, 40, "OMP_4.0");
#endif /* OMP_40_ENABLED */
#if OMP_45_ENABLED
// OMP_4.5 versioned symbols // OMP_4.5 versioned symbols
KMP_VERSION_SYMBOL(FTN_GET_MAX_TASK_PRIORITY, 45, "OMP_4.5"); KMP_VERSION_SYMBOL(FTN_GET_MAX_TASK_PRIORITY, 45, "OMP_4.5");
KMP_VERSION_SYMBOL(FTN_GET_NUM_PLACES, 45, "OMP_4.5"); KMP_VERSION_SYMBOL(FTN_GET_NUM_PLACES, 45, "OMP_4.5");
KMP_VERSION_SYMBOL(FTN_GET_PLACE_NUM_PROCS, 45, "OMP_4.5"); KMP_VERSION_SYMBOL(FTN_GET_PLACE_NUM_PROCS, 45, "OMP_4.5");
KMP_VERSION_SYMBOL(FTN_GET_PLACE_PROC_IDS, 45, "OMP_4.5"); KMP_VERSION_SYMBOL(FTN_GET_PLACE_PROC_IDS, 45, "OMP_4.5");
KMP_VERSION_SYMBOL(FTN_GET_PLACE_NUM, 45, "OMP_4.5"); KMP_VERSION_SYMBOL(FTN_GET_PLACE_NUM, 45, "OMP_4.5");
KMP_VERSION_SYMBOL(FTN_GET_PARTITION_NUM_PLACES, 45, "OMP_4.5"); KMP_VERSION_SYMBOL(FTN_GET_PARTITION_NUM_PLACES, 45, "OMP_4.5");
KMP_VERSION_SYMBOL(FTN_GET_PARTITION_PLACE_NUMS, 45, "OMP_4.5"); KMP_VERSION_SYMBOL(FTN_GET_PARTITION_PLACE_NUMS, 45, "OMP_4.5");
// KMP_VERSION_SYMBOL(FTN_GET_INITIAL_DEVICE, 45, "OMP_4.5"); // KMP_VERSION_SYMBOL(FTN_GET_INITIAL_DEVICE, 45, "OMP_4.5");
#endif
#if OMP_50_ENABLED
// OMP_5.0 versioned symbols // OMP_5.0 versioned symbols
// KMP_VERSION_SYMBOL(FTN_GET_DEVICE_NUM, 50, "OMP_5.0"); // KMP_VERSION_SYMBOL(FTN_GET_DEVICE_NUM, 50, "OMP_5.0");
// KMP_VERSION_SYMBOL(FTN_PAUSE_RESOURCE, 50, "OMP_5.0"); // KMP_VERSION_SYMBOL(FTN_PAUSE_RESOURCE, 50, "OMP_5.0");
// KMP_VERSION_SYMBOL(FTN_PAUSE_RESOURCE_ALL, 50, "OMP_5.0"); // KMP_VERSION_SYMBOL(FTN_PAUSE_RESOURCE_ALL, 50, "OMP_5.0");
// KMP_VERSION_SYMBOL(FTN_GET_SUPPORTED_ACTIVE_LEVELS, 50, "OMP_5.0"); // KMP_VERSION_SYMBOL(FTN_GET_SUPPORTED_ACTIVE_LEVELS, 50, "OMP_5.0");
// KMP_VERSION_SYMBOL(FTN_FULFILL_EVENT, 50, "OMP_5.0"); // KMP_VERSION_SYMBOL(FTN_FULFILL_EVENT, 50, "OMP_5.0");
#endif
#endif // KMP_USE_VERSION_SYMBOLS #endif // KMP_USE_VERSION_SYMBOLS
#ifdef __cplusplus #ifdef __cplusplus
} // extern "C" } // extern "C"
#endif // __cplusplus #endif // __cplusplus
// end of file // // end of file //

runtime/src/kmp_ftn_os.h

Show First 20 Lines • Show All 65 Lines • ▼ Show 20 Lines
#define FTN_SET_MAX_ACTIVE_LEVELS omp_set_max_active_levels #define FTN_SET_MAX_ACTIVE_LEVELS omp_set_max_active_levels
#define FTN_GET_MAX_ACTIVE_LEVELS omp_get_max_active_levels #define FTN_GET_MAX_ACTIVE_LEVELS omp_get_max_active_levels
#define FTN_GET_ACTIVE_LEVEL omp_get_active_level #define FTN_GET_ACTIVE_LEVEL omp_get_active_level
#define FTN_GET_LEVEL omp_get_level #define FTN_GET_LEVEL omp_get_level
#define FTN_GET_ANCESTOR_THREAD_NUM omp_get_ancestor_thread_num #define FTN_GET_ANCESTOR_THREAD_NUM omp_get_ancestor_thread_num
#define FTN_GET_TEAM_SIZE omp_get_team_size #define FTN_GET_TEAM_SIZE omp_get_team_size
#define FTN_IN_FINAL omp_in_final #define FTN_IN_FINAL omp_in_final
#define FTN_GET_PROC_BIND omp_get_proc_bind #define FTN_GET_PROC_BIND omp_get_proc_bind
#if OMP_40_ENABLED
#define FTN_GET_NUM_TEAMS omp_get_num_teams #define FTN_GET_NUM_TEAMS omp_get_num_teams
#define FTN_GET_TEAM_NUM omp_get_team_num #define FTN_GET_TEAM_NUM omp_get_team_num
#endif
#define FTN_INIT_LOCK omp_init_lock #define FTN_INIT_LOCK omp_init_lock
#if KMP_USE_DYNAMIC_LOCK #if KMP_USE_DYNAMIC_LOCK
#define FTN_INIT_LOCK_WITH_HINT omp_init_lock_with_hint #define FTN_INIT_LOCK_WITH_HINT omp_init_lock_with_hint
#define FTN_INIT_NEST_LOCK_WITH_HINT omp_init_nest_lock_with_hint #define FTN_INIT_NEST_LOCK_WITH_HINT omp_init_nest_lock_with_hint
#endif #endif
#define FTN_DESTROY_LOCK omp_destroy_lock #define FTN_DESTROY_LOCK omp_destroy_lock
#define FTN_SET_LOCK omp_set_lock #define FTN_SET_LOCK omp_set_lock
#define FTN_UNSET_LOCK omp_unset_lock #define FTN_UNSET_LOCK omp_unset_lock
#define FTN_TEST_LOCK omp_test_lock #define FTN_TEST_LOCK omp_test_lock
#define FTN_INIT_NEST_LOCK omp_init_nest_lock #define FTN_INIT_NEST_LOCK omp_init_nest_lock
#define FTN_DESTROY_NEST_LOCK omp_destroy_nest_lock #define FTN_DESTROY_NEST_LOCK omp_destroy_nest_lock
#define FTN_SET_NEST_LOCK omp_set_nest_lock #define FTN_SET_NEST_LOCK omp_set_nest_lock
#define FTN_UNSET_NEST_LOCK omp_unset_nest_lock #define FTN_UNSET_NEST_LOCK omp_unset_nest_lock
#define FTN_TEST_NEST_LOCK omp_test_nest_lock #define FTN_TEST_NEST_LOCK omp_test_nest_lock
#define FTN_SET_WARNINGS_ON kmp_set_warnings_on #define FTN_SET_WARNINGS_ON kmp_set_warnings_on
#define FTN_SET_WARNINGS_OFF kmp_set_warnings_off #define FTN_SET_WARNINGS_OFF kmp_set_warnings_off
#define FTN_GET_WTIME omp_get_wtime #define FTN_GET_WTIME omp_get_wtime
#define FTN_GET_WTICK omp_get_wtick #define FTN_GET_WTICK omp_get_wtick
#if OMP_40_ENABLED
#define FTN_GET_NUM_DEVICES omp_get_num_devices #define FTN_GET_NUM_DEVICES omp_get_num_devices
#define FTN_GET_DEFAULT_DEVICE omp_get_default_device #define FTN_GET_DEFAULT_DEVICE omp_get_default_device
#define FTN_SET_DEFAULT_DEVICE omp_set_default_device #define FTN_SET_DEFAULT_DEVICE omp_set_default_device
#define FTN_IS_INITIAL_DEVICE omp_is_initial_device #define FTN_IS_INITIAL_DEVICE omp_is_initial_device
#endif
#if OMP_40_ENABLED
#define FTN_GET_CANCELLATION omp_get_cancellation #define FTN_GET_CANCELLATION omp_get_cancellation
#define FTN_GET_CANCELLATION_STATUS kmp_get_cancellation_status #define FTN_GET_CANCELLATION_STATUS kmp_get_cancellation_status
#endif
#if OMP_45_ENABLED
#define FTN_GET_MAX_TASK_PRIORITY omp_get_max_task_priority #define FTN_GET_MAX_TASK_PRIORITY omp_get_max_task_priority
#define FTN_GET_NUM_PLACES omp_get_num_places #define FTN_GET_NUM_PLACES omp_get_num_places
#define FTN_GET_PLACE_NUM_PROCS omp_get_place_num_procs #define FTN_GET_PLACE_NUM_PROCS omp_get_place_num_procs
#define FTN_GET_PLACE_PROC_IDS omp_get_place_proc_ids #define FTN_GET_PLACE_PROC_IDS omp_get_place_proc_ids
#define FTN_GET_PLACE_NUM omp_get_place_num #define FTN_GET_PLACE_NUM omp_get_place_num
#define FTN_GET_PARTITION_NUM_PLACES omp_get_partition_num_places #define FTN_GET_PARTITION_NUM_PLACES omp_get_partition_num_places
#define FTN_GET_PARTITION_PLACE_NUMS omp_get_partition_place_nums #define FTN_GET_PARTITION_PLACE_NUMS omp_get_partition_place_nums
#define FTN_GET_INITIAL_DEVICE omp_get_initial_device #define FTN_GET_INITIAL_DEVICE omp_get_initial_device
#ifdef KMP_STUB #ifdef KMP_STUB
#define FTN_TARGET_ALLOC omp_target_alloc #define FTN_TARGET_ALLOC omp_target_alloc
#define FTN_TARGET_FREE omp_target_free #define FTN_TARGET_FREE omp_target_free
#define FTN_TARGET_IS_PRESENT omp_target_is_present #define FTN_TARGET_IS_PRESENT omp_target_is_present
#define FTN_TARGET_MEMCPY omp_target_memcpy #define FTN_TARGET_MEMCPY omp_target_memcpy
#define FTN_TARGET_MEMCPY_RECT omp_target_memcpy_rect #define FTN_TARGET_MEMCPY_RECT omp_target_memcpy_rect
#define FTN_TARGET_ASSOCIATE_PTR omp_target_associate_ptr #define FTN_TARGET_ASSOCIATE_PTR omp_target_associate_ptr
#define FTN_TARGET_DISASSOCIATE_PTR omp_target_disassociate_ptr #define FTN_TARGET_DISASSOCIATE_PTR omp_target_disassociate_ptr
#endif #endif
#endif
#if OMP_50_ENABLED
#define FTN_CONTROL_TOOL omp_control_tool #define FTN_CONTROL_TOOL omp_control_tool
#define FTN_INIT_ALLOCATOR omp_init_allocator #define FTN_INIT_ALLOCATOR omp_init_allocator
#define FTN_DESTROY_ALLOCATOR omp_destroy_allocator #define FTN_DESTROY_ALLOCATOR omp_destroy_allocator
#define FTN_SET_DEFAULT_ALLOCATOR omp_set_default_allocator #define FTN_SET_DEFAULT_ALLOCATOR omp_set_default_allocator
#define FTN_GET_DEFAULT_ALLOCATOR omp_get_default_allocator #define FTN_GET_DEFAULT_ALLOCATOR omp_get_default_allocator
#define FTN_GET_DEVICE_NUM omp_get_device_num #define FTN_GET_DEVICE_NUM omp_get_device_num
#define FTN_SET_AFFINITY_FORMAT omp_set_affinity_format #define FTN_SET_AFFINITY_FORMAT omp_set_affinity_format
#define FTN_GET_AFFINITY_FORMAT omp_get_affinity_format #define FTN_GET_AFFINITY_FORMAT omp_get_affinity_format
#define FTN_DISPLAY_AFFINITY omp_display_affinity #define FTN_DISPLAY_AFFINITY omp_display_affinity
#define FTN_CAPTURE_AFFINITY omp_capture_affinity #define FTN_CAPTURE_AFFINITY omp_capture_affinity
#define FTN_PAUSE_RESOURCE omp_pause_resource #define FTN_PAUSE_RESOURCE omp_pause_resource
#define FTN_PAUSE_RESOURCE_ALL omp_pause_resource_all #define FTN_PAUSE_RESOURCE_ALL omp_pause_resource_all
#define FTN_GET_SUPPORTED_ACTIVE_LEVELS omp_get_supported_active_levels #define FTN_GET_SUPPORTED_ACTIVE_LEVELS omp_get_supported_active_levels
#define FTN_FULFILL_EVENT omp_fulfill_event #define FTN_FULFILL_EVENT omp_fulfill_event
#endif
#endif /* KMP_FTN_PLAIN */ #endif /* KMP_FTN_PLAIN */
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if KMP_FTN_ENTRIES == KMP_FTN_APPEND #if KMP_FTN_ENTRIES == KMP_FTN_APPEND
#define FTN_SET_STACKSIZE kmp_set_stacksize_ #define FTN_SET_STACKSIZE kmp_set_stacksize_
▲ Show 20 Lines • Show All 42 Lines • ▼ Show 20 Lines
#define FTN_SET_MAX_ACTIVE_LEVELS omp_set_max_active_levels_ #define FTN_SET_MAX_ACTIVE_LEVELS omp_set_max_active_levels_
#define FTN_GET_MAX_ACTIVE_LEVELS omp_get_max_active_levels_ #define FTN_GET_MAX_ACTIVE_LEVELS omp_get_max_active_levels_
#define FTN_GET_ACTIVE_LEVEL omp_get_active_level_ #define FTN_GET_ACTIVE_LEVEL omp_get_active_level_
#define FTN_GET_LEVEL omp_get_level_ #define FTN_GET_LEVEL omp_get_level_
#define FTN_GET_ANCESTOR_THREAD_NUM omp_get_ancestor_thread_num_ #define FTN_GET_ANCESTOR_THREAD_NUM omp_get_ancestor_thread_num_
#define FTN_GET_TEAM_SIZE omp_get_team_size_ #define FTN_GET_TEAM_SIZE omp_get_team_size_
#define FTN_IN_FINAL omp_in_final_ #define FTN_IN_FINAL omp_in_final_
#define FTN_GET_PROC_BIND omp_get_proc_bind_ #define FTN_GET_PROC_BIND omp_get_proc_bind_
#if OMP_40_ENABLED
#define FTN_GET_NUM_TEAMS omp_get_num_teams_ #define FTN_GET_NUM_TEAMS omp_get_num_teams_
#define FTN_GET_TEAM_NUM omp_get_team_num_ #define FTN_GET_TEAM_NUM omp_get_team_num_
#endif
#define FTN_INIT_LOCK omp_init_lock_ #define FTN_INIT_LOCK omp_init_lock_
#if KMP_USE_DYNAMIC_LOCK #if KMP_USE_DYNAMIC_LOCK
#define FTN_INIT_LOCK_WITH_HINT omp_init_lock_with_hint_ #define FTN_INIT_LOCK_WITH_HINT omp_init_lock_with_hint_
#define FTN_INIT_NEST_LOCK_WITH_HINT omp_init_nest_lock_with_hint_ #define FTN_INIT_NEST_LOCK_WITH_HINT omp_init_nest_lock_with_hint_
#endif #endif
#define FTN_DESTROY_LOCK omp_destroy_lock_ #define FTN_DESTROY_LOCK omp_destroy_lock_
#define FTN_SET_LOCK omp_set_lock_ #define FTN_SET_LOCK omp_set_lock_
#define FTN_UNSET_LOCK omp_unset_lock_ #define FTN_UNSET_LOCK omp_unset_lock_
#define FTN_TEST_LOCK omp_test_lock_ #define FTN_TEST_LOCK omp_test_lock_
#define FTN_INIT_NEST_LOCK omp_init_nest_lock_ #define FTN_INIT_NEST_LOCK omp_init_nest_lock_
#define FTN_DESTROY_NEST_LOCK omp_destroy_nest_lock_ #define FTN_DESTROY_NEST_LOCK omp_destroy_nest_lock_
#define FTN_SET_NEST_LOCK omp_set_nest_lock_ #define FTN_SET_NEST_LOCK omp_set_nest_lock_
#define FTN_UNSET_NEST_LOCK omp_unset_nest_lock_ #define FTN_UNSET_NEST_LOCK omp_unset_nest_lock_
#define FTN_TEST_NEST_LOCK omp_test_nest_lock_ #define FTN_TEST_NEST_LOCK omp_test_nest_lock_
#define FTN_SET_WARNINGS_ON kmp_set_warnings_on_ #define FTN_SET_WARNINGS_ON kmp_set_warnings_on_
#define FTN_SET_WARNINGS_OFF kmp_set_warnings_off_ #define FTN_SET_WARNINGS_OFF kmp_set_warnings_off_
#define FTN_GET_WTIME omp_get_wtime_ #define FTN_GET_WTIME omp_get_wtime_
#define FTN_GET_WTICK omp_get_wtick_ #define FTN_GET_WTICK omp_get_wtick_
#if OMP_40_ENABLED
#define FTN_GET_NUM_DEVICES omp_get_num_devices_ #define FTN_GET_NUM_DEVICES omp_get_num_devices_
#define FTN_GET_DEFAULT_DEVICE omp_get_default_device_ #define FTN_GET_DEFAULT_DEVICE omp_get_default_device_
#define FTN_SET_DEFAULT_DEVICE omp_set_default_device_ #define FTN_SET_DEFAULT_DEVICE omp_set_default_device_
#define FTN_IS_INITIAL_DEVICE omp_is_initial_device_ #define FTN_IS_INITIAL_DEVICE omp_is_initial_device_
#endif
#if OMP_40_ENABLED
#define FTN_GET_CANCELLATION omp_get_cancellation_ #define FTN_GET_CANCELLATION omp_get_cancellation_
#define FTN_GET_CANCELLATION_STATUS kmp_get_cancellation_status_ #define FTN_GET_CANCELLATION_STATUS kmp_get_cancellation_status_
#endif
#if OMP_45_ENABLED
#define FTN_GET_MAX_TASK_PRIORITY omp_get_max_task_priority_ #define FTN_GET_MAX_TASK_PRIORITY omp_get_max_task_priority_
#define FTN_GET_NUM_PLACES omp_get_num_places_ #define FTN_GET_NUM_PLACES omp_get_num_places_
#define FTN_GET_PLACE_NUM_PROCS omp_get_place_num_procs_ #define FTN_GET_PLACE_NUM_PROCS omp_get_place_num_procs_
#define FTN_GET_PLACE_PROC_IDS omp_get_place_proc_ids_ #define FTN_GET_PLACE_PROC_IDS omp_get_place_proc_ids_
#define FTN_GET_PLACE_NUM omp_get_place_num_ #define FTN_GET_PLACE_NUM omp_get_place_num_
#define FTN_GET_PARTITION_NUM_PLACES omp_get_partition_num_places_ #define FTN_GET_PARTITION_NUM_PLACES omp_get_partition_num_places_
#define FTN_GET_PARTITION_PLACE_NUMS omp_get_partition_place_nums_ #define FTN_GET_PARTITION_PLACE_NUMS omp_get_partition_place_nums_
#define FTN_GET_INITIAL_DEVICE omp_get_initial_device_ #define FTN_GET_INITIAL_DEVICE omp_get_initial_device_
#ifdef KMP_STUB #ifdef KMP_STUB
#define FTN_TARGET_ALLOC omp_target_alloc_ #define FTN_TARGET_ALLOC omp_target_alloc_
#define FTN_TARGET_FREE omp_target_free_ #define FTN_TARGET_FREE omp_target_free_
#define FTN_TARGET_IS_PRESENT omp_target_is_present_ #define FTN_TARGET_IS_PRESENT omp_target_is_present_
#define FTN_TARGET_MEMCPY omp_target_memcpy_ #define FTN_TARGET_MEMCPY omp_target_memcpy_
#define FTN_TARGET_MEMCPY_RECT omp_target_memcpy_rect_ #define FTN_TARGET_MEMCPY_RECT omp_target_memcpy_rect_
#define FTN_TARGET_ASSOCIATE_PTR omp_target_associate_ptr_ #define FTN_TARGET_ASSOCIATE_PTR omp_target_associate_ptr_
#define FTN_TARGET_DISASSOCIATE_PTR omp_target_disassociate_ptr_ #define FTN_TARGET_DISASSOCIATE_PTR omp_target_disassociate_ptr_
#endif #endif
#endif
#if OMP_50_ENABLED
#define FTN_CONTROL_TOOL omp_control_tool_ #define FTN_CONTROL_TOOL omp_control_tool_
#define FTN_INIT_ALLOCATOR omp_init_allocator_ #define FTN_INIT_ALLOCATOR omp_init_allocator_
#define FTN_DESTROY_ALLOCATOR omp_destroy_allocator_ #define FTN_DESTROY_ALLOCATOR omp_destroy_allocator_
#define FTN_SET_DEFAULT_ALLOCATOR omp_set_default_allocator_ #define FTN_SET_DEFAULT_ALLOCATOR omp_set_default_allocator_
#define FTN_GET_DEFAULT_ALLOCATOR omp_get_default_allocator_ #define FTN_GET_DEFAULT_ALLOCATOR omp_get_default_allocator_
#define FTN_ALLOC omp_alloc_ #define FTN_ALLOC omp_alloc_
#define FTN_FREE omp_free_ #define FTN_FREE omp_free_
#define FTN_GET_DEVICE_NUM omp_get_device_num_ #define FTN_GET_DEVICE_NUM omp_get_device_num_
#define FTN_SET_AFFINITY_FORMAT omp_set_affinity_format_ #define FTN_SET_AFFINITY_FORMAT omp_set_affinity_format_
#define FTN_GET_AFFINITY_FORMAT omp_get_affinity_format_ #define FTN_GET_AFFINITY_FORMAT omp_get_affinity_format_
#define FTN_DISPLAY_AFFINITY omp_display_affinity_ #define FTN_DISPLAY_AFFINITY omp_display_affinity_
#define FTN_CAPTURE_AFFINITY omp_capture_affinity_ #define FTN_CAPTURE_AFFINITY omp_capture_affinity_
#define FTN_PAUSE_RESOURCE omp_pause_resource_ #define FTN_PAUSE_RESOURCE omp_pause_resource_
#define FTN_PAUSE_RESOURCE_ALL omp_pause_resource_all_ #define FTN_PAUSE_RESOURCE_ALL omp_pause_resource_all_
#define FTN_GET_SUPPORTED_ACTIVE_LEVELS omp_get_supported_active_levels_ #define FTN_GET_SUPPORTED_ACTIVE_LEVELS omp_get_supported_active_levels_
#define FTN_FULFILL_EVENT omp_fulfill_event_ #define FTN_FULFILL_EVENT omp_fulfill_event_
#endif
#endif /* KMP_FTN_APPEND */ #endif /* KMP_FTN_APPEND */
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if KMP_FTN_ENTRIES == KMP_FTN_UPPER #if KMP_FTN_ENTRIES == KMP_FTN_UPPER
#define FTN_SET_STACKSIZE KMP_SET_STACKSIZE #define FTN_SET_STACKSIZE KMP_SET_STACKSIZE
▲ Show 20 Lines • Show All 42 Lines • ▼ Show 20 Lines
#define FTN_SET_MAX_ACTIVE_LEVELS OMP_SET_MAX_ACTIVE_LEVELS #define FTN_SET_MAX_ACTIVE_LEVELS OMP_SET_MAX_ACTIVE_LEVELS
#define FTN_GET_MAX_ACTIVE_LEVELS OMP_GET_MAX_ACTIVE_LEVELS #define FTN_GET_MAX_ACTIVE_LEVELS OMP_GET_MAX_ACTIVE_LEVELS
#define FTN_GET_ACTIVE_LEVEL OMP_GET_ACTIVE_LEVEL #define FTN_GET_ACTIVE_LEVEL OMP_GET_ACTIVE_LEVEL
#define FTN_GET_LEVEL OMP_GET_LEVEL #define FTN_GET_LEVEL OMP_GET_LEVEL
#define FTN_GET_ANCESTOR_THREAD_NUM OMP_GET_ANCESTOR_THREAD_NUM #define FTN_GET_ANCESTOR_THREAD_NUM OMP_GET_ANCESTOR_THREAD_NUM
#define FTN_GET_TEAM_SIZE OMP_GET_TEAM_SIZE #define FTN_GET_TEAM_SIZE OMP_GET_TEAM_SIZE
#define FTN_IN_FINAL OMP_IN_FINAL #define FTN_IN_FINAL OMP_IN_FINAL
#define FTN_GET_PROC_BIND OMP_GET_PROC_BIND #define FTN_GET_PROC_BIND OMP_GET_PROC_BIND
#if OMP_40_ENABLED
#define FTN_GET_NUM_TEAMS OMP_GET_NUM_TEAMS #define FTN_GET_NUM_TEAMS OMP_GET_NUM_TEAMS
#define FTN_GET_TEAM_NUM OMP_GET_TEAM_NUM #define FTN_GET_TEAM_NUM OMP_GET_TEAM_NUM
#endif
#define FTN_INIT_LOCK OMP_INIT_LOCK #define FTN_INIT_LOCK OMP_INIT_LOCK
#if KMP_USE_DYNAMIC_LOCK #if KMP_USE_DYNAMIC_LOCK
#define FTN_INIT_LOCK_WITH_HINT OMP_INIT_LOCK_WITH_HINT #define FTN_INIT_LOCK_WITH_HINT OMP_INIT_LOCK_WITH_HINT
#define FTN_INIT_NEST_LOCK_WITH_HINT OMP_INIT_NEST_LOCK_WITH_HINT #define FTN_INIT_NEST_LOCK_WITH_HINT OMP_INIT_NEST_LOCK_WITH_HINT
#endif #endif
#define FTN_DESTROY_LOCK OMP_DESTROY_LOCK #define FTN_DESTROY_LOCK OMP_DESTROY_LOCK
#define FTN_SET_LOCK OMP_SET_LOCK #define FTN_SET_LOCK OMP_SET_LOCK
#define FTN_UNSET_LOCK OMP_UNSET_LOCK #define FTN_UNSET_LOCK OMP_UNSET_LOCK
#define FTN_TEST_LOCK OMP_TEST_LOCK #define FTN_TEST_LOCK OMP_TEST_LOCK
#define FTN_INIT_NEST_LOCK OMP_INIT_NEST_LOCK #define FTN_INIT_NEST_LOCK OMP_INIT_NEST_LOCK
#define FTN_DESTROY_NEST_LOCK OMP_DESTROY_NEST_LOCK #define FTN_DESTROY_NEST_LOCK OMP_DESTROY_NEST_LOCK
#define FTN_SET_NEST_LOCK OMP_SET_NEST_LOCK #define FTN_SET_NEST_LOCK OMP_SET_NEST_LOCK
#define FTN_UNSET_NEST_LOCK OMP_UNSET_NEST_LOCK #define FTN_UNSET_NEST_LOCK OMP_UNSET_NEST_LOCK
#define FTN_TEST_NEST_LOCK OMP_TEST_NEST_LOCK #define FTN_TEST_NEST_LOCK OMP_TEST_NEST_LOCK
#define FTN_SET_WARNINGS_ON KMP_SET_WARNINGS_ON #define FTN_SET_WARNINGS_ON KMP_SET_WARNINGS_ON
#define FTN_SET_WARNINGS_OFF KMP_SET_WARNINGS_OFF #define FTN_SET_WARNINGS_OFF KMP_SET_WARNINGS_OFF
#define FTN_GET_WTIME OMP_GET_WTIME #define FTN_GET_WTIME OMP_GET_WTIME
#define FTN_GET_WTICK OMP_GET_WTICK #define FTN_GET_WTICK OMP_GET_WTICK
#if OMP_40_ENABLED
#define FTN_GET_NUM_DEVICES OMP_GET_NUM_DEVICES #define FTN_GET_NUM_DEVICES OMP_GET_NUM_DEVICES
#define FTN_GET_DEFAULT_DEVICE OMP_GET_DEFAULT_DEVICE #define FTN_GET_DEFAULT_DEVICE OMP_GET_DEFAULT_DEVICE
#define FTN_SET_DEFAULT_DEVICE OMP_SET_DEFAULT_DEVICE #define FTN_SET_DEFAULT_DEVICE OMP_SET_DEFAULT_DEVICE
#define FTN_IS_INITIAL_DEVICE OMP_IS_INITIAL_DEVICE #define FTN_IS_INITIAL_DEVICE OMP_IS_INITIAL_DEVICE
#endif
#if OMP_40_ENABLED
#define FTN_GET_CANCELLATION OMP_GET_CANCELLATION #define FTN_GET_CANCELLATION OMP_GET_CANCELLATION
#define FTN_GET_CANCELLATION_STATUS KMP_GET_CANCELLATION_STATUS #define FTN_GET_CANCELLATION_STATUS KMP_GET_CANCELLATION_STATUS
#endif
#if OMP_45_ENABLED
#define FTN_GET_MAX_TASK_PRIORITY OMP_GET_MAX_TASK_PRIORITY #define FTN_GET_MAX_TASK_PRIORITY OMP_GET_MAX_TASK_PRIORITY
#define FTN_GET_NUM_PLACES OMP_GET_NUM_PLACES #define FTN_GET_NUM_PLACES OMP_GET_NUM_PLACES
#define FTN_GET_PLACE_NUM_PROCS OMP_GET_PLACE_NUM_PROCS #define FTN_GET_PLACE_NUM_PROCS OMP_GET_PLACE_NUM_PROCS
#define FTN_GET_PLACE_PROC_IDS OMP_GET_PLACE_PROC_IDS #define FTN_GET_PLACE_PROC_IDS OMP_GET_PLACE_PROC_IDS
#define FTN_GET_PLACE_NUM OMP_GET_PLACE_NUM #define FTN_GET_PLACE_NUM OMP_GET_PLACE_NUM
#define FTN_GET_PARTITION_NUM_PLACES OMP_GET_PARTITION_NUM_PLACES #define FTN_GET_PARTITION_NUM_PLACES OMP_GET_PARTITION_NUM_PLACES
#define FTN_GET_PARTITION_PLACE_NUMS OMP_GET_PARTITION_PLACE_NUMS #define FTN_GET_PARTITION_PLACE_NUMS OMP_GET_PARTITION_PLACE_NUMS
#define FTN_GET_INITIAL_DEVICE OMP_GET_INITIAL_DEVICE #define FTN_GET_INITIAL_DEVICE OMP_GET_INITIAL_DEVICE
#ifdef KMP_STUB #ifdef KMP_STUB
#define FTN_TARGET_ALLOC OMP_TARGET_ALLOC #define FTN_TARGET_ALLOC OMP_TARGET_ALLOC
#define FTN_TARGET_FREE OMP_TARGET_FREE #define FTN_TARGET_FREE OMP_TARGET_FREE
#define FTN_TARGET_IS_PRESENT OMP_TARGET_IS_PRESENT #define FTN_TARGET_IS_PRESENT OMP_TARGET_IS_PRESENT
#define FTN_TARGET_MEMCPY OMP_TARGET_MEMCPY #define FTN_TARGET_MEMCPY OMP_TARGET_MEMCPY
#define FTN_TARGET_MEMCPY_RECT OMP_TARGET_MEMCPY_RECT #define FTN_TARGET_MEMCPY_RECT OMP_TARGET_MEMCPY_RECT
#define FTN_TARGET_ASSOCIATE_PTR OMP_TARGET_ASSOCIATE_PTR #define FTN_TARGET_ASSOCIATE_PTR OMP_TARGET_ASSOCIATE_PTR
#define FTN_TARGET_DISASSOCIATE_PTR OMP_TARGET_DISASSOCIATE_PTR #define FTN_TARGET_DISASSOCIATE_PTR OMP_TARGET_DISASSOCIATE_PTR
#endif #endif
#endif
#if OMP_50_ENABLED
#define FTN_CONTROL_TOOL OMP_CONTROL_TOOL #define FTN_CONTROL_TOOL OMP_CONTROL_TOOL
#define FTN_INIT_ALLOCATOR OMP_INIT_ALLOCATOR #define FTN_INIT_ALLOCATOR OMP_INIT_ALLOCATOR
#define FTN_DESTROY_ALLOCATOR OMP_DESTROY_ALLOCATOR #define FTN_DESTROY_ALLOCATOR OMP_DESTROY_ALLOCATOR
#define FTN_SET_DEFAULT_ALLOCATOR OMP_SET_DEFAULT_ALLOCATOR #define FTN_SET_DEFAULT_ALLOCATOR OMP_SET_DEFAULT_ALLOCATOR
#define FTN_GET_DEFAULT_ALLOCATOR OMP_GET_DEFAULT_ALLOCATOR #define FTN_GET_DEFAULT_ALLOCATOR OMP_GET_DEFAULT_ALLOCATOR
#define FTN_GET_DEVICE_NUM OMP_GET_DEVICE_NUM #define FTN_GET_DEVICE_NUM OMP_GET_DEVICE_NUM
#define FTN_SET_AFFINITY_FORMAT OMP_SET_AFFINITY_FORMAT #define FTN_SET_AFFINITY_FORMAT OMP_SET_AFFINITY_FORMAT
#define FTN_GET_AFFINITY_FORMAT OMP_GET_AFFINITY_FORMAT #define FTN_GET_AFFINITY_FORMAT OMP_GET_AFFINITY_FORMAT
#define FTN_DISPLAY_AFFINITY OMP_DISPLAY_AFFINITY #define FTN_DISPLAY_AFFINITY OMP_DISPLAY_AFFINITY
#define FTN_CAPTURE_AFFINITY OMP_CAPTURE_AFFINITY #define FTN_CAPTURE_AFFINITY OMP_CAPTURE_AFFINITY
#define FTN_PAUSE_RESOURCE OMP_PAUSE_RESOURCE #define FTN_PAUSE_RESOURCE OMP_PAUSE_RESOURCE
#define FTN_PAUSE_RESOURCE_ALL OMP_PAUSE_RESOURCE_ALL #define FTN_PAUSE_RESOURCE_ALL OMP_PAUSE_RESOURCE_ALL
#define FTN_GET_SUPPORTED_ACTIVE_LEVELS OMP_GET_SUPPORTED_ACTIVE_LEVELS #define FTN_GET_SUPPORTED_ACTIVE_LEVELS OMP_GET_SUPPORTED_ACTIVE_LEVELS
#define FTN_FULFILL_EVENT OMP_FULFILL_EVENT #define FTN_FULFILL_EVENT OMP_FULFILL_EVENT
#endif
#endif /* KMP_FTN_UPPER */ #endif /* KMP_FTN_UPPER */
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if KMP_FTN_ENTRIES == KMP_FTN_UAPPEND #if KMP_FTN_ENTRIES == KMP_FTN_UAPPEND
#define FTN_SET_STACKSIZE KMP_SET_STACKSIZE_ #define FTN_SET_STACKSIZE KMP_SET_STACKSIZE_
▲ Show 20 Lines • Show All 42 Lines • ▼ Show 20 Lines
#define FTN_SET_MAX_ACTIVE_LEVELS OMP_SET_MAX_ACTIVE_LEVELS_ #define FTN_SET_MAX_ACTIVE_LEVELS OMP_SET_MAX_ACTIVE_LEVELS_
#define FTN_GET_MAX_ACTIVE_LEVELS OMP_GET_MAX_ACTIVE_LEVELS_ #define FTN_GET_MAX_ACTIVE_LEVELS OMP_GET_MAX_ACTIVE_LEVELS_
#define FTN_GET_ACTIVE_LEVEL OMP_GET_ACTIVE_LEVEL_ #define FTN_GET_ACTIVE_LEVEL OMP_GET_ACTIVE_LEVEL_
#define FTN_GET_LEVEL OMP_GET_LEVEL_ #define FTN_GET_LEVEL OMP_GET_LEVEL_
#define FTN_GET_ANCESTOR_THREAD_NUM OMP_GET_ANCESTOR_THREAD_NUM_ #define FTN_GET_ANCESTOR_THREAD_NUM OMP_GET_ANCESTOR_THREAD_NUM_
#define FTN_GET_TEAM_SIZE OMP_GET_TEAM_SIZE_ #define FTN_GET_TEAM_SIZE OMP_GET_TEAM_SIZE_
#define FTN_IN_FINAL OMP_IN_FINAL_ #define FTN_IN_FINAL OMP_IN_FINAL_
#define FTN_GET_PROC_BIND OMP_GET_PROC_BIND_ #define FTN_GET_PROC_BIND OMP_GET_PROC_BIND_
#if OMP_40_ENABLED
#define FTN_GET_NUM_TEAMS OMP_GET_NUM_TEAMS_ #define FTN_GET_NUM_TEAMS OMP_GET_NUM_TEAMS_
#define FTN_GET_TEAM_NUM OMP_GET_TEAM_NUM_ #define FTN_GET_TEAM_NUM OMP_GET_TEAM_NUM_
#endif
#define FTN_INIT_LOCK OMP_INIT_LOCK_ #define FTN_INIT_LOCK OMP_INIT_LOCK_
#if KMP_USE_DYNAMIC_LOCK #if KMP_USE_DYNAMIC_LOCK
#define FTN_INIT_LOCK_WITH_HINT OMP_INIT_LOCK_WITH_HINT_ #define FTN_INIT_LOCK_WITH_HINT OMP_INIT_LOCK_WITH_HINT_
#define FTN_INIT_NEST_LOCK_WITH_HINT OMP_INIT_NEST_LOCK_WITH_HINT_ #define FTN_INIT_NEST_LOCK_WITH_HINT OMP_INIT_NEST_LOCK_WITH_HINT_
#endif #endif
#define FTN_DESTROY_LOCK OMP_DESTROY_LOCK_ #define FTN_DESTROY_LOCK OMP_DESTROY_LOCK_
#define FTN_SET_LOCK OMP_SET_LOCK_ #define FTN_SET_LOCK OMP_SET_LOCK_
#define FTN_UNSET_LOCK OMP_UNSET_LOCK_ #define FTN_UNSET_LOCK OMP_UNSET_LOCK_
#define FTN_TEST_LOCK OMP_TEST_LOCK_ #define FTN_TEST_LOCK OMP_TEST_LOCK_
#define FTN_INIT_NEST_LOCK OMP_INIT_NEST_LOCK_ #define FTN_INIT_NEST_LOCK OMP_INIT_NEST_LOCK_
#define FTN_DESTROY_NEST_LOCK OMP_DESTROY_NEST_LOCK_ #define FTN_DESTROY_NEST_LOCK OMP_DESTROY_NEST_LOCK_
#define FTN_SET_NEST_LOCK OMP_SET_NEST_LOCK_ #define FTN_SET_NEST_LOCK OMP_SET_NEST_LOCK_
#define FTN_UNSET_NEST_LOCK OMP_UNSET_NEST_LOCK_ #define FTN_UNSET_NEST_LOCK OMP_UNSET_NEST_LOCK_
#define FTN_TEST_NEST_LOCK OMP_TEST_NEST_LOCK_ #define FTN_TEST_NEST_LOCK OMP_TEST_NEST_LOCK_
#define FTN_SET_WARNINGS_ON KMP_SET_WARNINGS_ON_ #define FTN_SET_WARNINGS_ON KMP_SET_WARNINGS_ON_
#define FTN_SET_WARNINGS_OFF KMP_SET_WARNINGS_OFF_ #define FTN_SET_WARNINGS_OFF KMP_SET_WARNINGS_OFF_
#define FTN_GET_WTIME OMP_GET_WTIME_ #define FTN_GET_WTIME OMP_GET_WTIME_
#define FTN_GET_WTICK OMP_GET_WTICK_ #define FTN_GET_WTICK OMP_GET_WTICK_
#if OMP_40_ENABLED
#define FTN_GET_NUM_DEVICES OMP_GET_NUM_DEVICES_ #define FTN_GET_NUM_DEVICES OMP_GET_NUM_DEVICES_
#define FTN_GET_DEFAULT_DEVICE OMP_GET_DEFAULT_DEVICE_ #define FTN_GET_DEFAULT_DEVICE OMP_GET_DEFAULT_DEVICE_
#define FTN_SET_DEFAULT_DEVICE OMP_SET_DEFAULT_DEVICE_ #define FTN_SET_DEFAULT_DEVICE OMP_SET_DEFAULT_DEVICE_
#define FTN_IS_INITIAL_DEVICE OMP_IS_INITIAL_DEVICE_ #define FTN_IS_INITIAL_DEVICE OMP_IS_INITIAL_DEVICE_
#endif
#if OMP_40_ENABLED
#define FTN_GET_CANCELLATION OMP_GET_CANCELLATION_ #define FTN_GET_CANCELLATION OMP_GET_CANCELLATION_
#define FTN_GET_CANCELLATION_STATUS KMP_GET_CANCELLATION_STATUS_ #define FTN_GET_CANCELLATION_STATUS KMP_GET_CANCELLATION_STATUS_
#endif
#if OMP_45_ENABLED
#define FTN_GET_MAX_TASK_PRIORITY OMP_GET_MAX_TASK_PRIORITY_ #define FTN_GET_MAX_TASK_PRIORITY OMP_GET_MAX_TASK_PRIORITY_
#define FTN_GET_NUM_PLACES OMP_GET_NUM_PLACES_ #define FTN_GET_NUM_PLACES OMP_GET_NUM_PLACES_
#define FTN_GET_PLACE_NUM_PROCS OMP_GET_PLACE_NUM_PROCS_ #define FTN_GET_PLACE_NUM_PROCS OMP_GET_PLACE_NUM_PROCS_
#define FTN_GET_PLACE_PROC_IDS OMP_GET_PLACE_PROC_IDS_ #define FTN_GET_PLACE_PROC_IDS OMP_GET_PLACE_PROC_IDS_
#define FTN_GET_PLACE_NUM OMP_GET_PLACE_NUM_ #define FTN_GET_PLACE_NUM OMP_GET_PLACE_NUM_
#define FTN_GET_PARTITION_NUM_PLACES OMP_GET_PARTITION_NUM_PLACES_ #define FTN_GET_PARTITION_NUM_PLACES OMP_GET_PARTITION_NUM_PLACES_
#define FTN_GET_PARTITION_PLACE_NUMS OMP_GET_PARTITION_PLACE_NUMS_ #define FTN_GET_PARTITION_PLACE_NUMS OMP_GET_PARTITION_PLACE_NUMS_
#define FTN_GET_INITIAL_DEVICE OMP_GET_INITIAL_DEVICE_ #define FTN_GET_INITIAL_DEVICE OMP_GET_INITIAL_DEVICE_
#ifdef KMP_STUB #ifdef KMP_STUB
#define FTN_TARGET_ALLOC OMP_TARGET_ALLOC_ #define FTN_TARGET_ALLOC OMP_TARGET_ALLOC_
#define FTN_TARGET_FREE OMP_TARGET_FREE_ #define FTN_TARGET_FREE OMP_TARGET_FREE_
#define FTN_TARGET_IS_PRESENT OMP_TARGET_IS_PRESENT_ #define FTN_TARGET_IS_PRESENT OMP_TARGET_IS_PRESENT_
#define FTN_TARGET_MEMCPY OMP_TARGET_MEMCPY_ #define FTN_TARGET_MEMCPY OMP_TARGET_MEMCPY_
#define FTN_TARGET_MEMCPY_RECT OMP_TARGET_MEMCPY_RECT_ #define FTN_TARGET_MEMCPY_RECT OMP_TARGET_MEMCPY_RECT_
#define FTN_TARGET_ASSOCIATE_PTR OMP_TARGET_ASSOCIATE_PTR_ #define FTN_TARGET_ASSOCIATE_PTR OMP_TARGET_ASSOCIATE_PTR_
#define FTN_TARGET_DISASSOCIATE_PTR OMP_TARGET_DISASSOCIATE_PTR_ #define FTN_TARGET_DISASSOCIATE_PTR OMP_TARGET_DISASSOCIATE_PTR_
#endif #endif
#endif
#if OMP_50_ENABLED
#define FTN_CONTROL_TOOL OMP_CONTROL_TOOL_ #define FTN_CONTROL_TOOL OMP_CONTROL_TOOL_
#define FTN_INIT_ALLOCATOR OMP_INIT_ALLOCATOR_ #define FTN_INIT_ALLOCATOR OMP_INIT_ALLOCATOR_
#define FTN_DESTROY_ALLOCATOR OMP_DESTROY_ALLOCATOR_ #define FTN_DESTROY_ALLOCATOR OMP_DESTROY_ALLOCATOR_
#define FTN_SET_DEFAULT_ALLOCATOR OMP_SET_DEFAULT_ALLOCATOR_ #define FTN_SET_DEFAULT_ALLOCATOR OMP_SET_DEFAULT_ALLOCATOR_
#define FTN_GET_DEFAULT_ALLOCATOR OMP_GET_DEFAULT_ALLOCATOR_ #define FTN_GET_DEFAULT_ALLOCATOR OMP_GET_DEFAULT_ALLOCATOR_
#define FTN_ALLOC OMP_ALLOC_ #define FTN_ALLOC OMP_ALLOC_
#define FTN_FREE OMP_FREE_ #define FTN_FREE OMP_FREE_
#define FTN_GET_DEVICE_NUM OMP_GET_DEVICE_NUM_ #define FTN_GET_DEVICE_NUM OMP_GET_DEVICE_NUM_
#define FTN_SET_AFFINITY_FORMAT OMP_SET_AFFINITY_FORMAT_ #define FTN_SET_AFFINITY_FORMAT OMP_SET_AFFINITY_FORMAT_
#define FTN_GET_AFFINITY_FORMAT OMP_GET_AFFINITY_FORMAT_ #define FTN_GET_AFFINITY_FORMAT OMP_GET_AFFINITY_FORMAT_
#define FTN_DISPLAY_AFFINITY OMP_DISPLAY_AFFINITY_ #define FTN_DISPLAY_AFFINITY OMP_DISPLAY_AFFINITY_
#define FTN_CAPTURE_AFFINITY OMP_CAPTURE_AFFINITY_ #define FTN_CAPTURE_AFFINITY OMP_CAPTURE_AFFINITY_
#define FTN_PAUSE_RESOURCE OMP_PAUSE_RESOURCE_ #define FTN_PAUSE_RESOURCE OMP_PAUSE_RESOURCE_
#define FTN_PAUSE_RESOURCE_ALL OMP_PAUSE_RESOURCE_ALL_ #define FTN_PAUSE_RESOURCE_ALL OMP_PAUSE_RESOURCE_ALL_
#define FTN_GET_SUPPORTED_ACTIVE_LEVELS OMP_GET_SUPPORTED_ACTIVE_LEVELS_ #define FTN_GET_SUPPORTED_ACTIVE_LEVELS OMP_GET_SUPPORTED_ACTIVE_LEVELS_
#define FTN_FULFILL_EVENT OMP_FULFILL_EVENT_ #define FTN_FULFILL_EVENT OMP_FULFILL_EVENT_
#endif
#endif /* KMP_FTN_UAPPEND */ #endif /* KMP_FTN_UAPPEND */
/* -------------------------- GOMP API NAMES ------------------------ */ /* -------------------------- GOMP API NAMES ------------------------ */
// All GOMP_1.0 symbols // All GOMP_1.0 symbols
#define KMP_API_NAME_GOMP_ATOMIC_END GOMP_atomic_end #define KMP_API_NAME_GOMP_ATOMIC_END GOMP_atomic_end
#define KMP_API_NAME_GOMP_ATOMIC_START GOMP_atomic_start #define KMP_API_NAME_GOMP_ATOMIC_START GOMP_atomic_start
#define KMP_API_NAME_GOMP_BARRIER GOMP_barrier #define KMP_API_NAME_GOMP_BARRIER GOMP_barrier
▲ Show 20 Lines • Show All 126 Lines • Show Last 20 Lines

runtime/src/kmp_global.cpp

Show First 20 Lines • Show All 196 Lines • ▼ Show 20 Lineskmp_adaptive_backoff_params_t __kmp_adaptive_backoff_params = {
1, 1024}; // TODO: tune it! 1, 1024}; // TODO: tune it!
#if KMP_DEBUG_ADAPTIVE_LOCKS #if KMP_DEBUG_ADAPTIVE_LOCKS
const char *__kmp_speculative_statsfile = "-"; const char *__kmp_speculative_statsfile = "-";
#endif #endif
#endif // KMP_USE_ADAPTIVE_LOCKS #endif // KMP_USE_ADAPTIVE_LOCKS
#if OMP_40_ENABLED
int __kmp_display_env = FALSE; int __kmp_display_env = FALSE;
int __kmp_display_env_verbose = FALSE; int __kmp_display_env_verbose = FALSE;
int __kmp_omp_cancellation = FALSE; int __kmp_omp_cancellation = FALSE;
#endif
/* map OMP 3.0 schedule types with our internal schedule types */ /* map OMP 3.0 schedule types with our internal schedule types */
enum sched_type __kmp_sch_map[kmp_sched_upper - kmp_sched_lower_ext + enum sched_type __kmp_sch_map[kmp_sched_upper - kmp_sched_lower_ext +
kmp_sched_upper_std - kmp_sched_lower - 2] = { kmp_sched_upper_std - kmp_sched_lower - 2] = {
kmp_sch_static_chunked, // ==> kmp_sched_static = 1 kmp_sch_static_chunked, // ==> kmp_sched_static = 1
kmp_sch_dynamic_chunked, // ==> kmp_sched_dynamic = 2 kmp_sch_dynamic_chunked, // ==> kmp_sched_dynamic = 2
kmp_sch_guided_chunked, // ==> kmp_sched_guided = 3 kmp_sch_guided_chunked, // ==> kmp_sched_guided = 3
kmp_sch_auto, // ==> kmp_sched_auto = 4 kmp_sch_auto, // ==> kmp_sched_auto = 4
▲ Show 20 Lines • Show All 47 Lines • ▼ Show 20 Lines
char *__kmp_affinity_proclist = NULL; char *__kmp_affinity_proclist = NULL;
kmp_affin_mask_t *__kmp_affinity_masks = NULL; kmp_affin_mask_t *__kmp_affinity_masks = NULL;
unsigned __kmp_affinity_num_masks = 0; unsigned __kmp_affinity_num_masks = 0;
char *__kmp_cpuinfo_file = NULL; char *__kmp_cpuinfo_file = NULL;
#endif /* KMP_AFFINITY_SUPPORTED */ #endif /* KMP_AFFINITY_SUPPORTED */
#if OMP_40_ENABLED
kmp_nested_proc_bind_t __kmp_nested_proc_bind = {NULL, 0, 0}; kmp_nested_proc_bind_t __kmp_nested_proc_bind = {NULL, 0, 0};
int __kmp_affinity_num_places = 0; int __kmp_affinity_num_places = 0;
#endif
#if OMP_50_ENABLED
int __kmp_display_affinity = FALSE; int __kmp_display_affinity = FALSE;
char *__kmp_affinity_format = NULL; char *__kmp_affinity_format = NULL;
#endif // OMP_50_ENABLED
kmp_hws_item_t __kmp_hws_socket = {0, 0}; kmp_hws_item_t __kmp_hws_socket = {0, 0};
kmp_hws_item_t __kmp_hws_node = {0, 0}; kmp_hws_item_t __kmp_hws_node = {0, 0};
kmp_hws_item_t __kmp_hws_tile = {0, 0}; kmp_hws_item_t __kmp_hws_tile = {0, 0};
kmp_hws_item_t __kmp_hws_core = {0, 0}; kmp_hws_item_t __kmp_hws_core = {0, 0};
kmp_hws_item_t __kmp_hws_proc = {0, 0}; kmp_hws_item_t __kmp_hws_proc = {0, 0};
int __kmp_hws_requested = 0; int __kmp_hws_requested = 0;
int __kmp_hws_abs_flag = 0; // absolute or per-item number requested int __kmp_hws_abs_flag = 0; // absolute or per-item number requested
#if OMP_40_ENABLED
kmp_int32 __kmp_default_device = 0; kmp_int32 __kmp_default_device = 0;
#endif
kmp_tasking_mode_t __kmp_tasking_mode = tskm_task_teams; kmp_tasking_mode_t __kmp_tasking_mode = tskm_task_teams;
#if OMP_45_ENABLED
kmp_int32 __kmp_max_task_priority = 0; kmp_int32 __kmp_max_task_priority = 0;
kmp_uint64 __kmp_taskloop_min_tasks = 0; kmp_uint64 __kmp_taskloop_min_tasks = 0;
#endif
#if OMP_50_ENABLED
int __kmp_memkind_available = 0; int __kmp_memkind_available = 0;
omp_allocator_handle_t const omp_null_allocator = NULL; omp_allocator_handle_t const omp_null_allocator = NULL;
omp_allocator_handle_t const omp_default_mem_alloc = omp_allocator_handle_t const omp_default_mem_alloc =
(omp_allocator_handle_t const)1; (omp_allocator_handle_t const)1;
omp_allocator_handle_t const omp_large_cap_mem_alloc = omp_allocator_handle_t const omp_large_cap_mem_alloc =
(omp_allocator_handle_t const)2; (omp_allocator_handle_t const)2;
omp_allocator_handle_t const omp_const_mem_alloc = omp_allocator_handle_t const omp_const_mem_alloc =
(omp_allocator_handle_t const)3; (omp_allocator_handle_t const)3;
Show All 16 Lines
omp_memspace_handle_t const omp_large_cap_mem_space = omp_memspace_handle_t const omp_large_cap_mem_space =
(omp_memspace_handle_t const)1; (omp_memspace_handle_t const)1;
omp_memspace_handle_t const omp_const_mem_space = omp_memspace_handle_t const omp_const_mem_space =
(omp_memspace_handle_t const)2; (omp_memspace_handle_t const)2;
omp_memspace_handle_t const omp_high_bw_mem_space = omp_memspace_handle_t const omp_high_bw_mem_space =
(omp_memspace_handle_t const)3; (omp_memspace_handle_t const)3;
omp_memspace_handle_t const omp_low_lat_mem_space = omp_memspace_handle_t const omp_low_lat_mem_space =
(omp_memspace_handle_t const)4; (omp_memspace_handle_t const)4;
#endif
/* This check ensures that the compiler is passing the correct data type for the /* This check ensures that the compiler is passing the correct data type for the
flags formal parameter of the function kmpc_omp_task_alloc(). If the type is flags formal parameter of the function kmpc_omp_task_alloc(). If the type is
not a 4-byte type, then give an error message about a non-positive length not a 4-byte type, then give an error message about a non-positive length
array pointing here. If that happens, the kmp_tasking_flags_t structure must array pointing here. If that happens, the kmp_tasking_flags_t structure must
be redefined to have exactly 32 bits. */ be redefined to have exactly 32 bits. */
KMP_BUILD_ASSERT(sizeof(kmp_tasking_flags_t) == 4); KMP_BUILD_ASSERT(sizeof(kmp_tasking_flags_t) == 4);
▲ Show 20 Lines • Show All 191 Lines • ▼ Show 20 Lines
// Symbols for MS mutual detection. // Symbols for MS mutual detection.
int _You_must_link_with_exactly_one_OpenMP_library = 1; int _You_must_link_with_exactly_one_OpenMP_library = 1;
int _You_must_link_with_Intel_OpenMP_library = 1; int _You_must_link_with_Intel_OpenMP_library = 1;
#if KMP_OS_WINDOWS && (KMP_VERSION_MAJOR > 4) #if KMP_OS_WINDOWS && (KMP_VERSION_MAJOR > 4)
int _You_must_link_with_Microsoft_OpenMP_library = 1; int _You_must_link_with_Microsoft_OpenMP_library = 1;
#endif #endif
#if OMP_50_ENABLED
kmp_target_offload_kind_t __kmp_target_offload = tgt_default; kmp_target_offload_kind_t __kmp_target_offload = tgt_default;
// OMP Pause Resources // OMP Pause Resources
kmp_pause_status_t __kmp_pause_status = kmp_not_paused; kmp_pause_status_t __kmp_pause_status = kmp_not_paused;
#endif // OMP_50_ENABLED
// end of file // // end of file //

runtime/src/kmp_gsupport.cpp

Show First 20 Lines • Show All 112 Lines • ▼ Show 20 Lines
int KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SINGLE_START)(void) { int KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SINGLE_START)(void) {
int gtid = __kmp_entry_gtid(); int gtid = __kmp_entry_gtid();
MKLOC(loc, "GOMP_single_start"); MKLOC(loc, "GOMP_single_start");
KA_TRACE(20, ("GOMP_single_start: T#%d\n", gtid)); KA_TRACE(20, ("GOMP_single_start: T#%d\n", gtid));
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
// 3rd parameter == FALSE prevents kmp_enter_single from pushing a // 3rd parameter == FALSE prevents kmp_enter_single from pushing a
// workshare when USE_CHECKS is defined. We need to avoid the push, // workshare when USE_CHECKS is defined. We need to avoid the push,
// as there is no corresponding GOMP_single_end() call. // as there is no corresponding GOMP_single_end() call.
kmp_int32 rc = __kmp_enter_single(gtid, &loc, FALSE); kmp_int32 rc = __kmp_enter_single(gtid, &loc, FALSE);
#if OMPT_SUPPORT && OMPT_OPTIONAL #if OMPT_SUPPORT && OMPT_OPTIONAL
kmp_info_t *this_thr = __kmp_threads[gtid]; kmp_info_t *this_thr = __kmp_threads[gtid];
Show All 32 Lines
void *KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SINGLE_COPY_START)(void) { void *KMP_EXPAND_NAME(KMP_API_NAME_GOMP_SINGLE_COPY_START)(void) {
void *retval; void *retval;
int gtid = __kmp_entry_gtid(); int gtid = __kmp_entry_gtid();
MKLOC(loc, "GOMP_single_copy_start"); MKLOC(loc, "GOMP_single_copy_start");
KA_TRACE(20, ("GOMP_single_copy_start: T#%d\n", gtid)); KA_TRACE(20, ("GOMP_single_copy_start: T#%d\n", gtid));
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
// If this is the first thread to enter, return NULL. The generated code will // If this is the first thread to enter, return NULL. The generated code will
// then call GOMP_single_copy_end() for this thread only, with the // then call GOMP_single_copy_end() for this thread only, with the
// copyprivate data pointer as an argument. // copyprivate data pointer as an argument.
if (__kmp_enter_single(gtid, &loc, FALSE)) if (__kmp_enter_single(gtid, &loc, FALSE))
return NULL; return NULL;
// Wait for the first thread to set the copyprivate data pointer, // Wait for the first thread to set the copyprivate data pointer,
▲ Show 20 Lines • Show All 405 Lines • ▼ Show 20 Lines int func(long lb, long ub, long str, long *p_lb, long *p_ub) { \
KA_TRACE( \ KA_TRACE( \
20, \ 20, \
(KMP_STR( \ (KMP_STR( \
func) " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", \ func) " exit: T#%d, *p_lb 0x%lx, *p_ub 0x%lx, returning %d\n", \
gtid, *p_lb, *p_ub, status)); \ gtid, *p_lb, *p_ub, status)); \
return status; \ return status; \
} }
#if OMP_45_ENABLED
#define KMP_DOACROSS_FINI(status, gtid) \ #define KMP_DOACROSS_FINI(status, gtid) \
if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags) { \ if (!status && __kmp_threads[gtid]->th.th_dispatch->th_doacross_flags) { \
__kmpc_doacross_fini(NULL, gtid); \ __kmpc_doacross_fini(NULL, gtid); \
} }
#else
#define KMP_DOACROSS_FINI(status, gtid) /* Nothing */
#endif
#define LOOP_NEXT(func, fini_code) \ #define LOOP_NEXT(func, fini_code) \
int func(long *p_lb, long *p_ub) { \ int func(long *p_lb, long *p_ub) { \
int status; \ int status; \
long stride; \ long stride; \
int gtid = __kmp_get_gtid(); \ int gtid = __kmp_get_gtid(); \
MKLOC(loc, KMP_STR(func)); \ MKLOC(loc, KMP_STR(func)); \
KA_TRACE(20, (KMP_STR(func) ": T#%d\n", gtid)); \ KA_TRACE(20, (KMP_STR(func) ": T#%d\n", gtid)); \
Show All 39 Lines
LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_GUIDED_NEXT), LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_GUIDED_NEXT),
{ KMP_DISPATCH_FINI_CHUNK(&loc, gtid); }) { KMP_DISPATCH_FINI_CHUNK(&loc, gtid); })
LOOP_RUNTIME_START( LOOP_RUNTIME_START(
KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_RUNTIME_START), KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_RUNTIME_START),
kmp_ord_runtime) kmp_ord_runtime)
LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_RUNTIME_NEXT), LOOP_NEXT(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ORDERED_RUNTIME_NEXT),
{ KMP_DISPATCH_FINI_CHUNK(&loc, gtid); }) { KMP_DISPATCH_FINI_CHUNK(&loc, gtid); })
#if OMP_45_ENABLED
#define LOOP_DOACROSS_START(func, schedule) \ #define LOOP_DOACROSS_START(func, schedule) \
bool func(unsigned ncounts, long *counts, long chunk_sz, long *p_lb, \ bool func(unsigned ncounts, long *counts, long chunk_sz, long *p_lb, \
long *p_ub) { \ long *p_ub) { \
int status; \ int status; \
long stride, lb, ub, str; \ long stride, lb, ub, str; \
int gtid = __kmp_entry_gtid(); \ int gtid = __kmp_entry_gtid(); \
struct kmp_dim *dims = \ struct kmp_dim *dims = \
(struct kmp_dim *)__kmp_allocate(sizeof(struct kmp_dim) * ncounts); \ (struct kmp_dim *)__kmp_allocate(sizeof(struct kmp_dim) * ncounts); \
▲ Show 20 Lines • Show All 89 Lines • ▼ Show 20 LinesLOOP_DOACROSS_START(
KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_DYNAMIC_START), KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_DYNAMIC_START),
kmp_sch_dynamic_chunked) kmp_sch_dynamic_chunked)
LOOP_DOACROSS_START( LOOP_DOACROSS_START(
KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_GUIDED_START), KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_GUIDED_START),
kmp_sch_guided_chunked) kmp_sch_guided_chunked)
LOOP_DOACROSS_RUNTIME_START( LOOP_DOACROSS_RUNTIME_START(
KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_RUNTIME_START), KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_DOACROSS_RUNTIME_START),
kmp_sch_runtime) kmp_sch_runtime)
#endif // OMP_45_ENABLED
void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_END)(void) { void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_END)(void) {
int gtid = __kmp_get_gtid(); int gtid = __kmp_get_gtid();
KA_TRACE(20, ("GOMP_loop_end: T#%d\n", gtid)) KA_TRACE(20, ("GOMP_loop_end: T#%d\n", gtid))
#if OMPT_SUPPORT && OMPT_OPTIONAL #if OMPT_SUPPORT && OMPT_OPTIONAL
ompt_frame_t *ompt_frame; ompt_frame_t *ompt_frame;
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
▲ Show 20 Lines • Show All 146 Lines • ▼ Show 20 Lines
LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_GUIDED_NEXT), LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_GUIDED_NEXT),
{ KMP_DISPATCH_FINI_CHUNK_ULL(&loc, gtid); }) { KMP_DISPATCH_FINI_CHUNK_ULL(&loc, gtid); })
LOOP_RUNTIME_START_ULL( LOOP_RUNTIME_START_ULL(
KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_RUNTIME_START), KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_RUNTIME_START),
kmp_ord_runtime) kmp_ord_runtime)
LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_RUNTIME_NEXT), LOOP_NEXT_ULL(KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_ORDERED_RUNTIME_NEXT),
{ KMP_DISPATCH_FINI_CHUNK_ULL(&loc, gtid); }) { KMP_DISPATCH_FINI_CHUNK_ULL(&loc, gtid); })
#if OMP_45_ENABLED
#define LOOP_DOACROSS_START_ULL(func, schedule) \ #define LOOP_DOACROSS_START_ULL(func, schedule) \
int func(unsigned ncounts, unsigned long long *counts, \ int func(unsigned ncounts, unsigned long long *counts, \
unsigned long long chunk_sz, unsigned long long *p_lb, \ unsigned long long chunk_sz, unsigned long long *p_lb, \
unsigned long long *p_ub) { \ unsigned long long *p_ub) { \
int status; \ int status; \
long long stride, str, lb, ub; \ long long stride, str, lb, ub; \
int gtid = __kmp_entry_gtid(); \ int gtid = __kmp_entry_gtid(); \
struct kmp_dim *dims = \ struct kmp_dim *dims = \
▲ Show 20 Lines • Show All 93 Lines • ▼ Show 20 LinesLOOP_DOACROSS_START_ULL(
KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_DYNAMIC_START), KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_DYNAMIC_START),
kmp_sch_dynamic_chunked) kmp_sch_dynamic_chunked)
LOOP_DOACROSS_START_ULL( LOOP_DOACROSS_START_ULL(
KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_GUIDED_START), KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_GUIDED_START),
kmp_sch_guided_chunked) kmp_sch_guided_chunked)
LOOP_DOACROSS_RUNTIME_START_ULL( LOOP_DOACROSS_RUNTIME_START_ULL(
KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_RUNTIME_START), KMP_EXPAND_NAME(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_RUNTIME_START),
kmp_sch_runtime) kmp_sch_runtime)
#endif
// Combined parallel / loop worksharing constructs // Combined parallel / loop worksharing constructs
// //
// There are no ull versions (yet). // There are no ull versions (yet).
#define PARALLEL_LOOP_START(func, schedule, ompt_pre, ompt_post) \ #define PARALLEL_LOOP_START(func, schedule, ompt_pre, ompt_post) \
void func(void (*task)(void *), void *data, unsigned num_threads, long lb, \ void func(void (*task)(void *), void *data, unsigned num_threads, long lb, \
long ub, long str, long chunk_sz) { \ long ub, long str, long chunk_sz) { \
▲ Show 20 Lines • Show All 66 Lines • ▼ Show 20 LinesPARALLEL_LOOP_START(
KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_RUNTIME_START), KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL_LOOP_RUNTIME_START),
kmp_sch_runtime, OMPT_LOOP_PRE, OMPT_LOOP_POST) kmp_sch_runtime, OMPT_LOOP_PRE, OMPT_LOOP_POST)
// Tasking constructs // Tasking constructs
void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASK)(void (*func)(void *), void *data, void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASK)(void (*func)(void *), void *data,
void (*copy_func)(void *, void *), void (*copy_func)(void *, void *),
long arg_size, long arg_align, long arg_size, long arg_align,
bool if_cond, unsigned gomp_flags bool if_cond, unsigned gomp_flags,
#if OMP_40_ENABLED void **depend) {
,
void **depend
#endif
) {
MKLOC(loc, "GOMP_task"); MKLOC(loc, "GOMP_task");
int gtid = __kmp_entry_gtid(); int gtid = __kmp_entry_gtid();
kmp_int32 flags = 0; kmp_int32 flags = 0;
kmp_tasking_flags_t *input_flags = (kmp_tasking_flags_t *)&flags; kmp_tasking_flags_t *input_flags = (kmp_tasking_flags_t *)&flags;
KA_TRACE(20, ("GOMP_task: T#%d\n", gtid)); KA_TRACE(20, ("GOMP_task: T#%d\n", gtid));
// The low-order bit is the "untied" flag // The low-order bit is the "untied" flag
Show All 34 Lines#if OMPT_SUPPORT
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
OMPT_STORE_RETURN_ADDRESS(gtid); OMPT_STORE_RETURN_ADDRESS(gtid);
current_task = __kmp_threads[gtid]->th.th_current_task; current_task = __kmp_threads[gtid]->th.th_current_task;
current_task->ompt_task_info.frame.enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0); current_task->ompt_task_info.frame.enter_frame.ptr = OMPT_GET_FRAME_ADDRESS(0);
} }
#endif #endif
if (if_cond) { if (if_cond) {
#if OMP_40_ENABLED
if (gomp_flags & 8) { if (gomp_flags & 8) {
KMP_ASSERT(depend); KMP_ASSERT(depend);
const size_t ndeps = (kmp_intptr_t)depend[0]; const size_t ndeps = (kmp_intptr_t)depend[0];
const size_t nout = (kmp_intptr_t)depend[1]; const size_t nout = (kmp_intptr_t)depend[1];
kmp_depend_info_t dep_list[ndeps]; kmp_depend_info_t dep_list[ndeps];
for (size_t i = 0U; i < ndeps; i++) { for (size_t i = 0U; i < ndeps; i++) {
dep_list[i].base_addr = (kmp_intptr_t)depend[2U + i]; dep_list[i].base_addr = (kmp_intptr_t)depend[2U + i];
dep_list[i].len = 0U; dep_list[i].len = 0U;
dep_list[i].flags.in = 1; dep_list[i].flags.in = 1;
dep_list[i].flags.out = (i < nout); dep_list[i].flags.out = (i < nout);
} }
__kmpc_omp_task_with_deps(&loc, gtid, task, ndeps, dep_list, 0, NULL); __kmpc_omp_task_with_deps(&loc, gtid, task, ndeps, dep_list, 0, NULL);
} else { } else {
#endif
__kmpc_omp_task(&loc, gtid, task); __kmpc_omp_task(&loc, gtid, task);
} }
} else { } else {
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_thread_info_t oldInfo; ompt_thread_info_t oldInfo;
kmp_info_t *thread; kmp_info_t *thread;
kmp_taskdata_t *taskdata; kmp_taskdata_t *taskdata;
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
▲ Show 20 Lines • Show All 168 Lines • ▼ Show 20 Lines
} }
// libgomp has an empty function for GOMP_taskyield as of 2013-10-10 // libgomp has an empty function for GOMP_taskyield as of 2013-10-10
void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKYIELD)(void) { void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TASKYIELD)(void) {
KA_TRACE(20, ("GOMP_taskyield: T#%d\n", __kmp_get_gtid())) KA_TRACE(20, ("GOMP_taskyield: T#%d\n", __kmp_get_gtid()))
return; return;
} }
#if OMP_40_ENABLED // these are new GOMP_4.0 entry points
void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL)(void (*task)(void *), void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_PARALLEL)(void (*task)(void *),
void *data, void *data,
unsigned num_threads, unsigned num_threads,
unsigned int flags) { unsigned int flags) {
int gtid = __kmp_entry_gtid(); int gtid = __kmp_entry_gtid();
MKLOC(loc, "GOMP_parallel"); MKLOC(loc, "GOMP_parallel");
KA_TRACE(20, ("GOMP_parallel: T#%d\n", gtid)); KA_TRACE(20, ("GOMP_parallel: T#%d\n", gtid));
▲ Show 20 Lines • Show All 241 Lines • ▼ Show 20 Linesvoid KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TARGET_UPDATE)(
size_t *sizes, unsigned char *kinds) { size_t *sizes, unsigned char *kinds) {
return; return;
} }
void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TEAMS)(unsigned int num_teams, void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_TEAMS)(unsigned int num_teams,
unsigned int thread_limit) { unsigned int thread_limit) {
return; return;
} }
#endif // OMP_40_ENABLED
#if OMP_45_ENABLED
// Task duplication function which copies src to dest (both are // Task duplication function which copies src to dest (both are
// preallocated task structures) // preallocated task structures)
static void __kmp_gomp_task_dup(kmp_task_t *dest, kmp_task_t *src, static void __kmp_gomp_task_dup(kmp_task_t *dest, kmp_task_t *src,
kmp_int32 last_private) { kmp_int32 last_private) {
kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(src); kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(src);
if (taskdata->td_copy_func) { if (taskdata->td_copy_func) {
(taskdata->td_copy_func)(dest->shareds, src->shareds); (taskdata->td_copy_func)(dest->shareds, src->shareds);
▲ Show 20 Lines • Show All 184 Lines • ▼ Show 20 Lines
void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_DOACROSS_ULL_WAIT)( void KMP_EXPAND_NAME(KMP_API_NAME_GOMP_DOACROSS_ULL_WAIT)(
unsigned long long first, ...) { unsigned long long first, ...) {
va_list args; va_list args;
va_start(args, first); va_start(args, first);
__kmp_GOMP_doacross_wait<unsigned long long>(first, args); __kmp_GOMP_doacross_wait<unsigned long long>(first, args);
va_end(args); va_end(args);
} }
#endif // OMP_45_ENABLED
/* The following sections of code create aliases for the GOMP_* functions, then /* The following sections of code create aliases for the GOMP_* functions, then
create versioned symbols using the assembler directive .symver. This is only create versioned symbols using the assembler directive .symver. This is only
pertinent for ELF .so library. The KMP_VERSION_SYMBOL macro is defined in pertinent for ELF .so library. The KMP_VERSION_SYMBOL macro is defined in
kmp_os.h */ kmp_os.h */
#ifdef KMP_USE_VERSION_SYMBOLS #ifdef KMP_USE_VERSION_SYMBOLS
// GOMP_1.0 versioned symbols // GOMP_1.0 versioned symbols
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_ATOMIC_END, 10, "GOMP_1.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_ATOMIC_END, 10, "GOMP_1.0");
▲ Show 20 Lines • Show All 71 Lines • ▼ Show 20 Lines
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_RUNTIME_START, 20, "GOMP_2.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_RUNTIME_START, 20, "GOMP_2.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_STATIC_NEXT, 20, "GOMP_2.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_STATIC_NEXT, 20, "GOMP_2.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_STATIC_START, 20, "GOMP_2.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_STATIC_START, 20, "GOMP_2.0");
// GOMP_3.0 versioned symbols // GOMP_3.0 versioned symbols
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKYIELD, 30, "GOMP_3.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKYIELD, 30, "GOMP_3.0");
// GOMP_4.0 versioned symbols // GOMP_4.0 versioned symbols
#if OMP_40_ENABLED
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_SECTIONS, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_SECTIONS, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_DYNAMIC, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_DYNAMIC, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_GUIDED, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_GUIDED, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_RUNTIME, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_RUNTIME, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_STATIC, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_PARALLEL_LOOP_STATIC, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKGROUP_START, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKGROUP_START, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKGROUP_END, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKGROUP_END, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_BARRIER_CANCEL, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_BARRIER_CANCEL, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CANCEL, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CANCEL, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CANCELLATION_POINT, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_CANCELLATION_POINT, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_END_CANCEL, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_END_CANCEL, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SECTIONS_END_CANCEL, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_SECTIONS_END_CANCEL, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET_DATA, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET_DATA, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET_END_DATA, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET_END_DATA, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET_UPDATE, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TARGET_UPDATE, 40, "GOMP_4.0");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TEAMS, 40, "GOMP_4.0"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TEAMS, 40, "GOMP_4.0");
#endif
// GOMP_4.5 versioned symbols // GOMP_4.5 versioned symbols
#if OMP_45_ENABLED
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKLOOP, 45, "GOMP_4.5"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKLOOP, 45, "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKLOOP_ULL, 45, "GOMP_4.5"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_TASKLOOP_ULL, 45, "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_POST, 45, "GOMP_4.5"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_POST, 45, "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_WAIT, 45, "GOMP_4.5"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_WAIT, 45, "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_STATIC_START, 45, KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_STATIC_START, 45,
"GOMP_4.5"); "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_DYNAMIC_START, 45, KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_DYNAMIC_START, 45,
"GOMP_4.5"); "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_GUIDED_START, 45, KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_GUIDED_START, 45,
"GOMP_4.5"); "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_RUNTIME_START, 45, KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_DOACROSS_RUNTIME_START, 45,
"GOMP_4.5"); "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_ULL_POST, 45, "GOMP_4.5"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_ULL_POST, 45, "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_ULL_WAIT, 45, "GOMP_4.5"); KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_DOACROSS_ULL_WAIT, 45, "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_STATIC_START, 45, KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_STATIC_START, 45,
"GOMP_4.5"); "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_DYNAMIC_START, 45, KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_DYNAMIC_START, 45,
"GOMP_4.5"); "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_GUIDED_START, 45, KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_GUIDED_START, 45,
"GOMP_4.5"); "GOMP_4.5");
KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_RUNTIME_START, 45, KMP_VERSION_SYMBOL(KMP_API_NAME_GOMP_LOOP_ULL_DOACROSS_RUNTIME_START, 45,
"GOMP_4.5"); "GOMP_4.5");
#endif
#endif // KMP_USE_VERSION_SYMBOLS #endif // KMP_USE_VERSION_SYMBOLS
#ifdef __cplusplus #ifdef __cplusplus
} // extern "C" } // extern "C"
#endif // __cplusplus #endif // __cplusplus

runtime/src/kmp_omp.h

Show First 20 Lines • Show All 100 Lines • ▼ Show 20 Lines#endif
offset_and_size_t offset_and_size_t
th_next_waiting; // next thread waiting for lock (if available) th_next_waiting; // next thread waiting for lock (if available)
offset_and_size_t th_task_team; // task team struct offset_and_size_t th_task_team; // task team struct
offset_and_size_t th_current_task; // innermost task being executed offset_and_size_t th_current_task; // innermost task being executed
offset_and_size_t offset_and_size_t
th_task_state; // alternating 0/1 for task team identification th_task_state; // alternating 0/1 for task team identification
offset_and_size_t th_bar; offset_and_size_t th_bar;
offset_and_size_t th_b_worker_arrived; // the worker increases it by 1 when it offset_and_size_t th_b_worker_arrived; // the worker increases it by 1 when it
// arrives to the barrier // arrives to the barrier
#if OMP_40_ENABLED
/* teams information */ /* teams information */
offset_and_size_t th_teams_microtask; // entry address for teams construct offset_and_size_t th_teams_microtask; // entry address for teams construct
offset_and_size_t th_teams_level; // initial level of teams construct offset_and_size_t th_teams_level; // initial level of teams construct
offset_and_size_t th_teams_nteams; // number of teams in a league offset_and_size_t th_teams_nteams; // number of teams in a league
offset_and_size_t offset_and_size_t
th_teams_nth; // number of threads in each team of the league th_teams_nth; // number of threads in each team of the league
#endif
/* kmp_desc structure (for info field above) */ /* kmp_desc structure (for info field above) */
kmp_int32 ds_sizeof_struct; kmp_int32 ds_sizeof_struct;
offset_and_size_t ds_tid; // team thread id offset_and_size_t ds_tid; // team thread id
offset_and_size_t ds_gtid; // global thread id offset_and_size_t ds_gtid; // global thread id
offset_and_size_t ds_thread; // native thread id offset_and_size_t ds_thread; // native thread id
/* team structure information */ /* team structure information */
kmp_int32 t_sizeof_struct; kmp_int32 t_sizeof_struct;
offset_and_size_t t_master_tid; // tid of master in parent team offset_and_size_t t_master_tid; // tid of master in parent team
offset_and_size_t t_ident; // location of parallel region offset_and_size_t t_ident; // location of parallel region
offset_and_size_t t_parent; // parent team offset_and_size_t t_parent; // parent team
offset_and_size_t t_nproc; // # team threads offset_and_size_t t_nproc; // # team threads
offset_and_size_t t_threads; // array of threads offset_and_size_t t_threads; // array of threads
offset_and_size_t t_serialized; // # levels of serialized teams offset_and_size_t t_serialized; // # levels of serialized teams
offset_and_size_t t_id; // unique team id offset_and_size_t t_id; // unique team id
offset_and_size_t t_pkfn; offset_and_size_t t_pkfn;
offset_and_size_t t_task_team; // task team structure offset_and_size_t t_task_team; // task team structure
offset_and_size_t t_implicit_task; // taskdata for the thread's implicit task offset_and_size_t t_implicit_task; // taskdata for the thread's implicit task
#if OMP_40_ENABLED
offset_and_size_t t_cancel_request; offset_and_size_t t_cancel_request;
#endif
offset_and_size_t t_bar; offset_and_size_t t_bar;
offset_and_size_t offset_and_size_t
t_b_master_arrived; // increased by 1 when master arrives to a barrier t_b_master_arrived; // increased by 1 when master arrives to a barrier
offset_and_size_t offset_and_size_t
t_b_team_arrived; // increased by one when all the threads arrived t_b_team_arrived; // increased by one when all the threads arrived
/* root structure information */ /* root structure information */
kmp_int32 r_sizeof_struct; kmp_int32 r_sizeof_struct;
▲ Show 20 Lines • Show All 49 Lines • ▼ Show 20 Lines#endif
offset_and_size_t td_incomplete_child_tasks; // child tasks not yet complete offset_and_size_t td_incomplete_child_tasks; // child tasks not yet complete
/* Taskwait */ /* Taskwait */
offset_and_size_t td_taskwait_ident; offset_and_size_t td_taskwait_ident;
offset_and_size_t td_taskwait_counter; offset_and_size_t td_taskwait_counter;
offset_and_size_t offset_and_size_t
td_taskwait_thread; // gtid + 1 of thread encountered taskwait td_taskwait_thread; // gtid + 1 of thread encountered taskwait
#if OMP_40_ENABLED
/* Taskgroup */ /* Taskgroup */
offset_and_size_t td_taskgroup; // pointer to the current taskgroup offset_and_size_t td_taskgroup; // pointer to the current taskgroup
offset_and_size_t offset_and_size_t
td_task_count; // number of allocated and not yet complete tasks td_task_count; // number of allocated and not yet complete tasks
offset_and_size_t td_cancel; // request for cancellation of this taskgroup offset_and_size_t td_cancel; // request for cancellation of this taskgroup
/* Task dependency */ /* Task dependency */
offset_and_size_t offset_and_size_t
td_depnode; // pointer to graph node if the task has dependencies td_depnode; // pointer to graph node if the task has dependencies
offset_and_size_t dn_node; offset_and_size_t dn_node;
offset_and_size_t dn_next; offset_and_size_t dn_next;
offset_and_size_t dn_successors; offset_and_size_t dn_successors;
offset_and_size_t dn_task; offset_and_size_t dn_task;
offset_and_size_t dn_npredecessors; offset_and_size_t dn_npredecessors;
offset_and_size_t dn_nrefs; offset_and_size_t dn_nrefs;
#endif
offset_and_size_t dn_routine; offset_and_size_t dn_routine;
/* kmp_thread_data_t */ /* kmp_thread_data_t */
kmp_int32 hd_sizeof_struct; kmp_int32 hd_sizeof_struct;
offset_and_size_t hd_deque; offset_and_size_t hd_deque;
offset_and_size_t hd_deque_size; offset_and_size_t hd_deque_size;
offset_and_size_t hd_deque_head; offset_and_size_t hd_deque_head;
offset_and_size_t hd_deque_tail; offset_and_size_t hd_deque_tail;
Show All 11 Lines

runtime/src/kmp_os.h

Show First 20 Lines • Show All 959 Lines • ▼ Show 20 Lines
#endif #endif
// Switches for OSS builds // Switches for OSS builds
#ifndef USE_CMPXCHG_FIX #ifndef USE_CMPXCHG_FIX
#define USE_CMPXCHG_FIX 1 #define USE_CMPXCHG_FIX 1
#endif #endif
// Enable dynamic user lock // Enable dynamic user lock
#if OMP_45_ENABLED
#define KMP_USE_DYNAMIC_LOCK 1 #define KMP_USE_DYNAMIC_LOCK 1
#endif
// Enable Intel(R) Transactional Synchronization Extensions (Intel(R) TSX) if // Enable Intel(R) Transactional Synchronization Extensions (Intel(R) TSX) if
// dynamic user lock is turned on // dynamic user lock is turned on
#if KMP_USE_DYNAMIC_LOCK #if KMP_USE_DYNAMIC_LOCK
// Visual studio can't handle the asm sections in this code // Visual studio can't handle the asm sections in this code
#define KMP_USE_TSX (KMP_ARCH_X86 || KMP_ARCH_X86_64) && !KMP_COMPILER_MSVC #define KMP_USE_TSX (KMP_ARCH_X86 || KMP_ARCH_X86_64) && !KMP_COMPILER_MSVC
#ifdef KMP_USE_ADAPTIVE_LOCKS #ifdef KMP_USE_ADAPTIVE_LOCKS
#undef KMP_USE_ADAPTIVE_LOCKS #undef KMP_USE_ADAPTIVE_LOCKS
▲ Show 20 Lines • Show All 64 Lines • Show Last 20 Lines

runtime/src/kmp_runtime.cpp

  • This file is larger than 256 KB, so syntax highlighting is disabled by default.
Show All 40 Lines
#include "tsan_annotations.h" #include "tsan_annotations.h"
#if defined(KMP_GOMP_COMPAT) #if defined(KMP_GOMP_COMPAT)
char const __kmp_version_alt_comp[] = char const __kmp_version_alt_comp[] =
KMP_VERSION_PREFIX "alternative compiler support: yes"; KMP_VERSION_PREFIX "alternative compiler support: yes";
#endif /* defined(KMP_GOMP_COMPAT) */ #endif /* defined(KMP_GOMP_COMPAT) */
char const __kmp_version_omp_api[] = KMP_VERSION_PREFIX "API version: " char const __kmp_version_omp_api[] =
#if OMP_50_ENABLED KMP_VERSION_PREFIX "API version: 5.0 (201611)";
"5.0 (201611)";
#elif OMP_45_ENABLED
"4.5 (201511)";
#elif OMP_40_ENABLED
"4.0 (201307)";
#else
"3.1 (201107)";
#endif
#ifdef KMP_DEBUG #ifdef KMP_DEBUG
char const __kmp_version_lock[] = char const __kmp_version_lock[] =
KMP_VERSION_PREFIX "lock type: run time selectable"; KMP_VERSION_PREFIX "lock type: run time selectable";
#endif /* KMP_DEBUG */ #endif /* KMP_DEBUG */
#define KMP_MIN(x, y) ((x) < (y) ? (x) : (y)) #define KMP_MIN(x, y) ((x) < (y) ? (x) : (y))
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if KMP_USE_MONITOR #if KMP_USE_MONITOR
kmp_info_t __kmp_monitor; kmp_info_t __kmp_monitor;
#endif #endif
/* Forward declarations */ /* Forward declarations */
void __kmp_cleanup(void); void __kmp_cleanup(void);
static void __kmp_initialize_info(kmp_info_t *, kmp_team_t *, int tid, static void __kmp_initialize_info(kmp_info_t *, kmp_team_t *, int tid,
int gtid); int gtid);
static void __kmp_initialize_team(kmp_team_t *team, int new_nproc, static void __kmp_initialize_team(kmp_team_t *team, int new_nproc,
kmp_internal_control_t *new_icvs, kmp_internal_control_t *new_icvs,
ident_t *loc); ident_t *loc);
#if OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
static void __kmp_partition_places(kmp_team_t *team, static void __kmp_partition_places(kmp_team_t *team,
int update_master_only = 0); int update_master_only = 0);
#endif #endif
static void __kmp_do_serial_initialize(void); static void __kmp_do_serial_initialize(void);
void __kmp_fork_barrier(int gtid, int tid); void __kmp_fork_barrier(int gtid, int tid);
void __kmp_join_barrier(int gtid); void __kmp_join_barrier(int gtid);
void __kmp_setup_icv_copy(kmp_team_t *team, int new_nproc, void __kmp_setup_icv_copy(kmp_team_t *team, int new_nproc,
kmp_internal_control_t *new_icvs, ident_t *loc); kmp_internal_control_t *new_icvs, ident_t *loc);
▲ Show 20 Lines • Show All 438 Lines • ▼ Show 20 Lines __kmp_print_storage_map_gtid(
sizeof(kmp_info_t *) * num_thr, "%s_%d.t_threads", header, team_id); sizeof(kmp_info_t *) * num_thr, "%s_%d.t_threads", header, team_id);
__kmp_print_storage_map_gtid(-1, &team->t.t_disp_buffer[0], __kmp_print_storage_map_gtid(-1, &team->t.t_disp_buffer[0],
&team->t.t_disp_buffer[num_disp_buff], &team->t.t_disp_buffer[num_disp_buff],
sizeof(dispatch_shared_info_t) * num_disp_buff, sizeof(dispatch_shared_info_t) * num_disp_buff,
"%s_%d.t_disp_buffer", header, team_id); "%s_%d.t_disp_buffer", header, team_id);
} }
static void __kmp_init_allocator() { static void __kmp_init_allocator() { __kmp_init_memkind(); }
#if OMP_50_ENABLED static void __kmp_fini_allocator() { __kmp_fini_memkind(); }
__kmp_init_memkind();
#endif
}
static void __kmp_fini_allocator() {
#if OMP_50_ENABLED
__kmp_fini_memkind();
#endif
}
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if KMP_DYNAMIC_LIB #if KMP_DYNAMIC_LIB
#if KMP_OS_WINDOWS #if KMP_OS_WINDOWS
static void __kmp_reset_lock(kmp_bootstrap_lock_t *lck) { static void __kmp_reset_lock(kmp_bootstrap_lock_t *lck) {
// TODO: Change to __kmp_break_bootstrap_lock(). // TODO: Change to __kmp_break_bootstrap_lock().
▲ Show 20 Lines • Show All 168 Lines • ▼ Show 20 Lines
int __kmp_enter_single(int gtid, ident_t *id_ref, int push_ws) { int __kmp_enter_single(int gtid, ident_t *id_ref, int push_ws) {
int status; int status;
kmp_info_t *th; kmp_info_t *th;
kmp_team_t *team; kmp_team_t *team;
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
th = __kmp_threads[gtid]; th = __kmp_threads[gtid];
team = th->th.th_team; team = th->th.th_team;
status = 0; status = 0;
th->th.th_ident = id_ref; th->th.th_ident = id_ref;
if (team->t.t_serialized) { if (team->t.t_serialized) {
status = 1; status = 1;
} else { } else {
kmp_int32 old_this = th->th.th_local.this_construct; kmp_int32 old_this = th->th.th_local.this_construct;
++th->th.th_local.this_construct; ++th->th.th_local.this_construct;
/* try to set team count to thread count--success means thread got the /* try to set team count to thread count--success means thread got the
single block */ single block */
/* TODO: Should this be acquire or release? */ /* TODO: Should this be acquire or release? */
if (team->t.t_construct == old_this) { if (team->t.t_construct == old_this) {
status = __kmp_atomic_compare_store_acq(&team->t.t_construct, old_this, status = __kmp_atomic_compare_store_acq(&team->t.t_construct, old_this,
th->th.th_local.this_construct); th->th.th_local.this_construct);
} }
#if USE_ITT_BUILD #if USE_ITT_BUILD
if (__itt_metadata_add_ptr && __kmp_forkjoin_frames_mode == 3 && if (__itt_metadata_add_ptr && __kmp_forkjoin_frames_mode == 3 &&
KMP_MASTER_GTID(gtid) && KMP_MASTER_GTID(gtid) && th->th.th_teams_microtask == NULL &&
#if OMP_40_ENABLED
th->th.th_teams_microtask == NULL &&
#endif
team->t.t_active_level == team->t.t_active_level ==
1) { // Only report metadata by master of active team at level 1 1) { // Only report metadata by master of active team at level 1
__kmp_itt_metadata_single(id_ref); __kmp_itt_metadata_single(id_ref);
} }
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
} }
if (__kmp_env_consistency_check) { if (__kmp_env_consistency_check) {
Show All 21 Lines
/* determine if we can go parallel or must use a serialized parallel region and /* determine if we can go parallel or must use a serialized parallel region and
* how many threads we can use * how many threads we can use
* set_nproc is the number of threads requested for the team * set_nproc is the number of threads requested for the team
* returns 0 if we should serialize or only use one thread, * returns 0 if we should serialize or only use one thread,
* otherwise the number of threads to use * otherwise the number of threads to use
* The forkjoin lock is held by the caller. */ * The forkjoin lock is held by the caller. */
static int __kmp_reserve_threads(kmp_root_t *root, kmp_team_t *parent_team, static int __kmp_reserve_threads(kmp_root_t *root, kmp_team_t *parent_team,
int master_tid, int set_nthreads int master_tid, int set_nthreads,
#if OMP_40_ENABLED int enter_teams) {
,
int enter_teams
#endif /* OMP_40_ENABLED */
) {
int capacity; int capacity;
int new_nthreads; int new_nthreads;
KMP_DEBUG_ASSERT(__kmp_init_serial); KMP_DEBUG_ASSERT(__kmp_init_serial);
KMP_DEBUG_ASSERT(root && parent_team); KMP_DEBUG_ASSERT(root && parent_team);
kmp_info_t *this_thr = parent_team->t.t_threads[master_tid]; kmp_info_t *this_thr = parent_team->t.t_threads[master_tid];
// If dyn-var is set, dynamically adjust the number of desired threads, // If dyn-var is set, dynamically adjust the number of desired threads,
// according to the method specified by dynamic_mode. // according to the method specified by dynamic_mode.
▲ Show 20 Lines • Show All 236 Lines • ▼ Show 20 Lines for (i = 1; i < team->t.t_nproc; i++) {
KMP_DEBUG_ASSERT(thr->th.th_team == team); KMP_DEBUG_ASSERT(thr->th.th_team == team);
/* align team and thread arrived states */ /* align team and thread arrived states */
KA_TRACE(20, ("__kmp_fork_team_threads: T#%d(%d:%d) init arrived " KA_TRACE(20, ("__kmp_fork_team_threads: T#%d(%d:%d) init arrived "
"T#%d(%d:%d) join =%llu, plain=%llu\n", "T#%d(%d:%d) join =%llu, plain=%llu\n",
__kmp_gtid_from_tid(0, team), team->t.t_id, 0, __kmp_gtid_from_tid(0, team), team->t.t_id, 0,
__kmp_gtid_from_tid(i, team), team->t.t_id, i, __kmp_gtid_from_tid(i, team), team->t.t_id, i,
team->t.t_bar[bs_forkjoin_barrier].b_arrived, team->t.t_bar[bs_forkjoin_barrier].b_arrived,
team->t.t_bar[bs_plain_barrier].b_arrived)); team->t.t_bar[bs_plain_barrier].b_arrived));
#if OMP_40_ENABLED
thr->th.th_teams_microtask = master_th->th.th_teams_microtask; thr->th.th_teams_microtask = master_th->th.th_teams_microtask;
thr->th.th_teams_level = master_th->th.th_teams_level; thr->th.th_teams_level = master_th->th.th_teams_level;
thr->th.th_teams_size = master_th->th.th_teams_size; thr->th.th_teams_size = master_th->th.th_teams_size;
#endif
{ // Initialize threads' barrier data. { // Initialize threads' barrier data.
int b; int b;
kmp_balign_t *balign = team->t.t_threads[i]->th.th_bar; kmp_balign_t *balign = team->t.t_threads[i]->th.th_bar;
for (b = 0; b < bs_last_barrier; ++b) { for (b = 0; b < bs_last_barrier; ++b) {
balign[b].bb.b_arrived = team->t.t_bar[b].b_arrived; balign[b].bb.b_arrived = team->t.t_bar[b].b_arrived;
KMP_DEBUG_ASSERT(balign[b].bb.wait_flag != KMP_BARRIER_PARENT_FLAG); KMP_DEBUG_ASSERT(balign[b].bb.wait_flag != KMP_BARRIER_PARENT_FLAG);
#if USE_DEBUGGER #if USE_DEBUGGER
balign[b].bb.b_worker_arrived = team->t.t_bar[b].b_team_arrived; balign[b].bb.b_worker_arrived = team->t.t_bar[b].b_team_arrived;
#endif #endif
} }
} }
} }
#if OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
__kmp_partition_places(team); __kmp_partition_places(team);
#endif #endif
} }
#if OMP_50_ENABLED
if (__kmp_display_affinity && team->t.t_display_affinity != 1) { if (__kmp_display_affinity && team->t.t_display_affinity != 1) {
for (i = 0; i < team->t.t_nproc; i++) { for (i = 0; i < team->t.t_nproc; i++) {
kmp_info_t *thr = team->t.t_threads[i]; kmp_info_t *thr = team->t.t_threads[i];
if (thr->th.th_prev_num_threads != team->t.t_nproc || if (thr->th.th_prev_num_threads != team->t.t_nproc ||
thr->th.th_prev_level != team->t.t_level) { thr->th.th_prev_level != team->t.t_level) {
team->t.t_display_affinity = 1; team->t.t_display_affinity = 1;
break; break;
} }
} }
} }
#endif
KMP_MB(); KMP_MB();
} }
#if KMP_ARCH_X86 || KMP_ARCH_X86_64 #if KMP_ARCH_X86 || KMP_ARCH_X86_64
// Propagate any changes to the floating point control registers out to the team // Propagate any changes to the floating point control registers out to the team
// We try to avoid unnecessary writes to the relevant cache line in the team // We try to avoid unnecessary writes to the relevant cache line in the team
// structure, so we don't make changes unless they are needed. // structure, so we don't make changes unless they are needed.
▲ Show 20 Lines • Show All 68 Lines • ▼ Show 20 Linesvoid __kmp_serialized_parallel(ident_t *loc, kmp_int32 global_tid) {
/* Skip all this code for autopar serialized loops since it results in /* Skip all this code for autopar serialized loops since it results in
unacceptable overhead */ unacceptable overhead */
if (loc != NULL && (loc->flags & KMP_IDENT_AUTOPAR)) if (loc != NULL && (loc->flags & KMP_IDENT_AUTOPAR))
return; return;
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
this_thr = __kmp_threads[global_tid]; this_thr = __kmp_threads[global_tid];
serial_team = this_thr->th.th_serial_team; serial_team = this_thr->th.th_serial_team;
/* utilize the serialized team held by this thread */ /* utilize the serialized team held by this thread */
KMP_DEBUG_ASSERT(serial_team); KMP_DEBUG_ASSERT(serial_team);
KMP_MB(); KMP_MB();
if (__kmp_tasking_mode != tskm_immediate_exec) { if (__kmp_tasking_mode != tskm_immediate_exec) {
KMP_DEBUG_ASSERT( KMP_DEBUG_ASSERT(
this_thr->th.th_task_team == this_thr->th.th_task_team ==
this_thr->th.th_team->t.t_task_team[this_thr->th.th_task_state]); this_thr->th.th_team->t.t_task_team[this_thr->th.th_task_state]);
KMP_DEBUG_ASSERT(serial_team->t.t_task_team[this_thr->th.th_task_state] == KMP_DEBUG_ASSERT(serial_team->t.t_task_team[this_thr->th.th_task_state] ==
NULL); NULL);
KA_TRACE(20, ("__kmpc_serialized_parallel: T#%d pushing task_team %p / " KA_TRACE(20, ("__kmpc_serialized_parallel: T#%d pushing task_team %p / "
"team %p, new task_team = NULL\n", "team %p, new task_team = NULL\n",
global_tid, this_thr->th.th_task_team, this_thr->th.th_team)); global_tid, this_thr->th.th_task_team, this_thr->th.th_team));
this_thr->th.th_task_team = NULL; this_thr->th.th_task_team = NULL;
} }
#if OMP_40_ENABLED
kmp_proc_bind_t proc_bind = this_thr->th.th_set_proc_bind; kmp_proc_bind_t proc_bind = this_thr->th.th_set_proc_bind;
if (this_thr->th.th_current_task->td_icvs.proc_bind == proc_bind_false) { if (this_thr->th.th_current_task->td_icvs.proc_bind == proc_bind_false) {
proc_bind = proc_bind_false; proc_bind = proc_bind_false;
} else if (proc_bind == proc_bind_default) { } else if (proc_bind == proc_bind_default) {
// No proc_bind clause was specified, so use the current value // No proc_bind clause was specified, so use the current value
// of proc-bind-var for this parallel region. // of proc-bind-var for this parallel region.
proc_bind = this_thr->th.th_current_task->td_icvs.proc_bind; proc_bind = this_thr->th.th_current_task->td_icvs.proc_bind;
} }
// Reset for next parallel region // Reset for next parallel region
this_thr->th.th_set_proc_bind = proc_bind_default; this_thr->th.th_set_proc_bind = proc_bind_default;
#endif /* OMP_40_ENABLED */
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_data_t ompt_parallel_data = ompt_data_none; ompt_data_t ompt_parallel_data = ompt_data_none;
ompt_data_t *implicit_task_data; ompt_data_t *implicit_task_data;
void *codeptr = OMPT_LOAD_RETURN_ADDRESS(global_tid); void *codeptr = OMPT_LOAD_RETURN_ADDRESS(global_tid);
if (ompt_enabled.enabled && if (ompt_enabled.enabled &&
this_thr->th.ompt_thread_info.state != ompt_state_overhead) { this_thr->th.ompt_thread_info.state != ompt_state_overhead) {
Show All 18 Lines if (this_thr->th.th_team != serial_team) {
if (serial_team->t.t_serialized) { if (serial_team->t.t_serialized) {
/* this serial team was already used /* this serial team was already used
TODO increase performance by making this locks more specific */ TODO increase performance by making this locks more specific */
kmp_team_t *new_team; kmp_team_t *new_team;
__kmp_acquire_bootstrap_lock(&__kmp_forkjoin_lock); __kmp_acquire_bootstrap_lock(&__kmp_forkjoin_lock);
new_team = __kmp_allocate_team(this_thr->th.th_root, 1, 1, new_team =
__kmp_allocate_team(this_thr->th.th_root, 1, 1,
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_parallel_data, ompt_parallel_data,
#endif #endif
#if OMP_40_ENABLED proc_bind, &this_thr->th.th_current_task->td_icvs,
proc_bind,
#endif
&this_thr->th.th_current_task->td_icvs,
0 USE_NESTED_HOT_ARG(NULL)); 0 USE_NESTED_HOT_ARG(NULL));
__kmp_release_bootstrap_lock(&__kmp_forkjoin_lock); __kmp_release_bootstrap_lock(&__kmp_forkjoin_lock);
KMP_ASSERT(new_team); KMP_ASSERT(new_team);
/* setup new serialized team and install it */ /* setup new serialized team and install it */
new_team->t.t_threads[0] = this_thr; new_team->t.t_threads[0] = this_thr;
new_team->t.t_parent = this_thr->th.th_team; new_team->t.t_parent = this_thr->th.th_team;
serial_team = new_team; serial_team = new_team;
this_thr->th.th_serial_team = serial_team; this_thr->th.th_serial_team = serial_team;
Show All 40 Lines#endif
// Thread value exists in the nested nthreads array for the next nested // Thread value exists in the nested nthreads array for the next nested
// level // level
if (__kmp_nested_nth.used && (level + 1 < __kmp_nested_nth.used)) { if (__kmp_nested_nth.used && (level + 1 < __kmp_nested_nth.used)) {
this_thr->th.th_current_task->td_icvs.nproc = this_thr->th.th_current_task->td_icvs.nproc =
__kmp_nested_nth.nth[level + 1]; __kmp_nested_nth.nth[level + 1];
} }
#if OMP_40_ENABLED
if (__kmp_nested_proc_bind.used && if (__kmp_nested_proc_bind.used &&
(level + 1 < __kmp_nested_proc_bind.used)) { (level + 1 < __kmp_nested_proc_bind.used)) {
this_thr->th.th_current_task->td_icvs.proc_bind = this_thr->th.th_current_task->td_icvs.proc_bind =
__kmp_nested_proc_bind.bind_types[level + 1]; __kmp_nested_proc_bind.bind_types[level + 1];
} }
#endif /* OMP_40_ENABLED */
#if USE_DEBUGGER #if USE_DEBUGGER
serial_team->t.t_pkfn = (microtask_t)(~0); // For the debugger. serial_team->t.t_pkfn = (microtask_t)(~0); // For the debugger.
#endif #endif
this_thr->th.th_info.ds.ds_tid = 0; this_thr->th.th_info.ds.ds_tid = 0;
/* set thread cache values */ /* set thread cache values */
this_thr->th.th_team_nproc = 1; this_thr->th.th_team_nproc = 1;
this_thr->th.th_team_master = this_thr; this_thr->th.th_team_master = this_thr;
this_thr->th.th_team_serialized = 1; this_thr->th.th_team_serialized = 1;
serial_team->t.t_level = serial_team->t.t_parent->t.t_level + 1; serial_team->t.t_level = serial_team->t.t_parent->t.t_level + 1;
serial_team->t.t_active_level = serial_team->t.t_parent->t.t_active_level; serial_team->t.t_active_level = serial_team->t.t_parent->t.t_active_level;
#if OMP_50_ENABLED
serial_team->t.t_def_allocator = this_thr->th.th_def_allocator; // save serial_team->t.t_def_allocator = this_thr->th.th_def_allocator; // save
#endif
propagateFPControl(serial_team); propagateFPControl(serial_team);
/* check if we need to allocate dispatch buffers stack */ /* check if we need to allocate dispatch buffers stack */
KMP_DEBUG_ASSERT(serial_team->t.t_dispatch); KMP_DEBUG_ASSERT(serial_team->t.t_dispatch);
if (!serial_team->t.t_dispatch->th_disp_buffer) { if (!serial_team->t.t_dispatch->th_disp_buffer) {
serial_team->t.t_dispatch->th_disp_buffer = serial_team->t.t_dispatch->th_disp_buffer =
(dispatch_private_info_t *)__kmp_allocate( (dispatch_private_info_t *)__kmp_allocate(
Show All 33 Lines KMP_DEBUG_ASSERT(serial_team->t.t_dispatch);
sizeof(dispatch_private_info_t)); sizeof(dispatch_private_info_t));
disp_buffer->next = serial_team->t.t_dispatch->th_disp_buffer; disp_buffer->next = serial_team->t.t_dispatch->th_disp_buffer;
serial_team->t.t_dispatch->th_disp_buffer = disp_buffer; serial_team->t.t_dispatch->th_disp_buffer = disp_buffer;
} }
this_thr->th.th_dispatch = serial_team->t.t_dispatch; this_thr->th.th_dispatch = serial_team->t.t_dispatch;
KMP_MB(); KMP_MB();
} }
#if OMP_40_ENABLED
KMP_CHECK_UPDATE(serial_team->t.t_cancel_request, cancel_noreq); KMP_CHECK_UPDATE(serial_team->t.t_cancel_request, cancel_noreq);
#endif
#if OMP_50_ENABLED
// Perform the display affinity functionality for // Perform the display affinity functionality for
// serialized parallel regions // serialized parallel regions
if (__kmp_display_affinity) { if (__kmp_display_affinity) {
if (this_thr->th.th_prev_level != serial_team->t.t_level || if (this_thr->th.th_prev_level != serial_team->t.t_level ||
this_thr->th.th_prev_num_threads != 1) { this_thr->th.th_prev_num_threads != 1) {
// NULL means use the affinity-format-var ICV // NULL means use the affinity-format-var ICV
__kmp_aux_display_affinity(global_tid, NULL); __kmp_aux_display_affinity(global_tid, NULL);
this_thr->th.th_prev_level = serial_team->t.t_level; this_thr->th.th_prev_level = serial_team->t.t_level;
this_thr->th.th_prev_num_threads = 1; this_thr->th.th_prev_num_threads = 1;
} }
} }
#endif
if (__kmp_env_consistency_check) if (__kmp_env_consistency_check)
__kmp_push_parallel(global_tid, NULL); __kmp_push_parallel(global_tid, NULL);
#if OMPT_SUPPORT #if OMPT_SUPPORT
serial_team->t.ompt_team_info.master_return_address = codeptr; serial_team->t.ompt_team_info.master_return_address = codeptr;
if (ompt_enabled.enabled && if (ompt_enabled.enabled &&
this_thr->th.ompt_thread_info.state != ompt_state_overhead) { this_thr->th.ompt_thread_info.state != ompt_state_overhead) {
OMPT_CUR_TASK_INFO(this_thr)->frame.exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0); OMPT_CUR_TASK_INFO(this_thr)->frame.exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0);
▲ Show 20 Lines • Show All 41 Lines • ▼ Show 20 Lines#endif
kmp_team_t *team; kmp_team_t *team;
kmp_team_t *parent_team; kmp_team_t *parent_team;
kmp_info_t *master_th; kmp_info_t *master_th;
kmp_root_t *root; kmp_root_t *root;
int nthreads; int nthreads;
int master_active; int master_active;
int master_set_numthreads; int master_set_numthreads;
int level; int level;
#if OMP_40_ENABLED
int active_level; int active_level;
int teams_level; int teams_level;
#endif
#if KMP_NESTED_HOT_TEAMS #if KMP_NESTED_HOT_TEAMS
kmp_hot_team_ptr_t **p_hot_teams; kmp_hot_team_ptr_t **p_hot_teams;
#endif #endif
{ // KMP_TIME_BLOCK { // KMP_TIME_BLOCK
KMP_TIME_DEVELOPER_PARTITIONED_BLOCK(KMP_fork_call); KMP_TIME_DEVELOPER_PARTITIONED_BLOCK(KMP_fork_call);
KMP_COUNT_VALUE(OMP_PARALLEL_args, argc); KMP_COUNT_VALUE(OMP_PARALLEL_args, argc);
KA_TRACE(20, ("__kmp_fork_call: enter T#%d\n", gtid)); KA_TRACE(20, ("__kmp_fork_call: enter T#%d\n", gtid));
if (__kmp_stkpadding > 0 && __kmp_root[gtid] != NULL) { if (__kmp_stkpadding > 0 && __kmp_root[gtid] != NULL) {
/* Some systems prefer the stack for the root thread(s) to start with */ /* Some systems prefer the stack for the root thread(s) to start with */
/* some gap from the parent stack to prevent false sharing. */ /* some gap from the parent stack to prevent false sharing. */
void *dummy = KMP_ALLOCA(__kmp_stkpadding); void *dummy = KMP_ALLOCA(__kmp_stkpadding);
/* These 2 lines below are so this does not get optimized out */ /* These 2 lines below are so this does not get optimized out */
if (__kmp_stkpadding > KMP_MAX_STKPADDING) if (__kmp_stkpadding > KMP_MAX_STKPADDING)
__kmp_stkpadding += (short)((kmp_int64)dummy); __kmp_stkpadding += (short)((kmp_int64)dummy);
} }
/* initialize if needed */ /* initialize if needed */
KMP_DEBUG_ASSERT( KMP_DEBUG_ASSERT(
__kmp_init_serial); // AC: potentially unsafe, not in sync with shutdown __kmp_init_serial); // AC: potentially unsafe, not in sync with shutdown
if (!TCR_4(__kmp_init_parallel)) if (!TCR_4(__kmp_init_parallel))
__kmp_parallel_initialize(); __kmp_parallel_initialize();
#if OMP_50_ENABLED
__kmp_resume_if_soft_paused(); __kmp_resume_if_soft_paused();
#endif
/* setup current data */ /* setup current data */
master_th = __kmp_threads[gtid]; // AC: potentially unsafe, not in sync with master_th = __kmp_threads[gtid]; // AC: potentially unsafe, not in sync with
// shutdown // shutdown
parent_team = master_th->th.th_team; parent_team = master_th->th.th_team;
master_tid = master_th->th.th_info.ds.ds_tid; master_tid = master_th->th.th_info.ds.ds_tid;
master_this_cons = master_th->th.th_local.this_construct; master_this_cons = master_th->th.th_local.this_construct;
root = master_th->th.th_root; root = master_th->th.th_root;
Show All 13 Lines if (ompt_enabled.enabled) {
return_address = OMPT_LOAD_RETURN_ADDRESS(gtid); return_address = OMPT_LOAD_RETURN_ADDRESS(gtid);
} }
#endif #endif
// Nested level will be an index in the nested nthreads array // Nested level will be an index in the nested nthreads array
level = parent_team->t.t_level; level = parent_team->t.t_level;
// used to launch non-serial teams even if nested is not allowed // used to launch non-serial teams even if nested is not allowed
active_level = parent_team->t.t_active_level; active_level = parent_team->t.t_active_level;
#if OMP_40_ENABLED
// needed to check nesting inside the teams // needed to check nesting inside the teams
teams_level = master_th->th.th_teams_level; teams_level = master_th->th.th_teams_level;
#endif
#if KMP_NESTED_HOT_TEAMS #if KMP_NESTED_HOT_TEAMS
p_hot_teams = &master_th->th.th_hot_teams; p_hot_teams = &master_th->th.th_hot_teams;
if (*p_hot_teams == NULL && __kmp_hot_teams_max_level > 0) { if (*p_hot_teams == NULL && __kmp_hot_teams_max_level > 0) {
*p_hot_teams = (kmp_hot_team_ptr_t *)__kmp_allocate( *p_hot_teams = (kmp_hot_team_ptr_t *)__kmp_allocate(
sizeof(kmp_hot_team_ptr_t) * __kmp_hot_teams_max_level); sizeof(kmp_hot_team_ptr_t) * __kmp_hot_teams_max_level);
(*p_hot_teams)[0].hot_team = root->r.r_hot_team; (*p_hot_teams)[0].hot_team = root->r.r_hot_team;
// it is either actual or not needed (when active_level > 0) // it is either actual or not needed (when active_level > 0)
(*p_hot_teams)[0].hot_team_nth = 1; (*p_hot_teams)[0].hot_team_nth = 1;
Show All 11 Lines if (ompt_enabled.enabled) {
OMPT_INVOKER(call_context), return_address); OMPT_INVOKER(call_context), return_address);
} }
master_th->th.ompt_thread_info.state = ompt_state_overhead; master_th->th.ompt_thread_info.state = ompt_state_overhead;
} }
#endif #endif
master_th->th.th_ident = loc; master_th->th.th_ident = loc;
#if OMP_40_ENABLED
if (master_th->th.th_teams_microtask && ap && if (master_th->th.th_teams_microtask && ap &&
microtask != (microtask_t)__kmp_teams_master && level == teams_level) { microtask != (microtask_t)__kmp_teams_master && level == teams_level) {
// AC: This is start of parallel that is nested inside teams construct. // AC: This is start of parallel that is nested inside teams construct.
// The team is actual (hot), all workers are ready at the fork barrier. // The team is actual (hot), all workers are ready at the fork barrier.
// No lock needed to initialize the team a bit, then free workers. // No lock needed to initialize the team a bit, then free workers.
parent_team->t.t_ident = loc; parent_team->t.t_ident = loc;
__kmp_alloc_argv_entries(argc, parent_team, TRUE); __kmp_alloc_argv_entries(argc, parent_team, TRUE);
parent_team->t.t_argc = argc; parent_team->t.t_argc = argc;
▲ Show 20 Lines • Show All 77 Lines • ▼ Show 20 Lines#endif
return TRUE; return TRUE;
} }
parent_team->t.t_pkfn = microtask; parent_team->t.t_pkfn = microtask;
parent_team->t.t_invoke = invoker; parent_team->t.t_invoke = invoker;
KMP_ATOMIC_INC(&root->r.r_in_parallel); KMP_ATOMIC_INC(&root->r.r_in_parallel);
parent_team->t.t_active_level++; parent_team->t.t_active_level++;
parent_team->t.t_level++; parent_team->t.t_level++;
#if OMP_50_ENABLED
parent_team->t.t_def_allocator = master_th->th.th_def_allocator; // save parent_team->t.t_def_allocator = master_th->th.th_def_allocator; // save
#endif
/* Change number of threads in the team if requested */ /* Change number of threads in the team if requested */
if (master_set_numthreads) { // The parallel has num_threads clause if (master_set_numthreads) { // The parallel has num_threads clause
if (master_set_numthreads < master_th->th.th_teams_size.nth) { if (master_set_numthreads < master_th->th.th_teams_size.nth) {
// AC: only can reduce number of threads dynamically, can't increase // AC: only can reduce number of threads dynamically, can't increase
kmp_info_t **other_threads = parent_team->t.t_threads; kmp_info_t **other_threads = parent_team->t.t_threads;
parent_team->t.t_nproc = master_set_numthreads; parent_team->t.t_nproc = master_set_numthreads;
for (i = 0; i < master_set_numthreads; ++i) { for (i = 0; i < master_set_numthreads; ++i) {
Show All 31 Lines#endif
KA_TRACE(20, ("__kmp_fork_call: T#%d(%d:0) done microtask = %p\n", gtid, KA_TRACE(20, ("__kmp_fork_call: T#%d(%d:0) done microtask = %p\n", gtid,
parent_team->t.t_id, parent_team->t.t_pkfn)); parent_team->t.t_id, parent_team->t.t_pkfn));
KMP_MB(); /* Flush all pending memory write invalidates. */ KMP_MB(); /* Flush all pending memory write invalidates. */
KA_TRACE(20, ("__kmp_fork_call: parallel exit T#%d\n", gtid)); KA_TRACE(20, ("__kmp_fork_call: parallel exit T#%d\n", gtid));
return TRUE; return TRUE;
} // Parallel closely nested in teams construct } // Parallel closely nested in teams construct
#endif /* OMP_40_ENABLED */
#if KMP_DEBUG #if KMP_DEBUG
if (__kmp_tasking_mode != tskm_immediate_exec) { if (__kmp_tasking_mode != tskm_immediate_exec) {
KMP_DEBUG_ASSERT(master_th->th.th_task_team == KMP_DEBUG_ASSERT(master_th->th.th_task_team ==
parent_team->t.t_task_team[master_th->th.th_task_state]); parent_team->t.t_task_team[master_th->th.th_task_state]);
} }
#endif #endif
if (parent_team->t.t_active_level >= if (parent_team->t.t_active_level >=
master_th->th.th_current_task->td_icvs.max_active_levels) { master_th->th.th_current_task->td_icvs.max_active_levels) {
nthreads = 1; nthreads = 1;
} else { } else {
#if OMP_40_ENABLED
int enter_teams = ((ap == NULL && active_level == 0) || int enter_teams = ((ap == NULL && active_level == 0) ||
(ap && teams_level > 0 && teams_level == level)); (ap && teams_level > 0 && teams_level == level));
#endif
nthreads = nthreads =
master_set_numthreads master_set_numthreads
? master_set_numthreads ? master_set_numthreads
: get__nproc_2( : get__nproc_2(
parent_team, parent_team,
master_tid); // TODO: get nproc directly from current task master_tid); // TODO: get nproc directly from current task
// Check if we need to take forkjoin lock? (no need for serialized // Check if we need to take forkjoin lock? (no need for serialized
// parallel out of teams construct). This code moved here from // parallel out of teams construct). This code moved here from
// __kmp_reserve_threads() to speedup nested serialized parallels. // __kmp_reserve_threads() to speedup nested serialized parallels.
if (nthreads > 1) { if (nthreads > 1) {
if ((get__max_active_levels(master_th) == 1 && (root->r.r_in_parallel if ((get__max_active_levels(master_th) == 1 &&
#if OMP_40_ENABLED (root->r.r_in_parallel && !enter_teams)) ||
&& !enter_teams
#endif /* OMP_40_ENABLED */
)) ||
(__kmp_library == library_serial)) { (__kmp_library == library_serial)) {
KC_TRACE(10, ("__kmp_fork_call: T#%d serializing team; requested %d" KC_TRACE(10, ("__kmp_fork_call: T#%d serializing team; requested %d"
" threads\n", " threads\n",
gtid, nthreads)); gtid, nthreads));
nthreads = 1; nthreads = 1;
} }
} }
if (nthreads > 1) { if (nthreads > 1) {
/* determine how many new threads we can use */ /* determine how many new threads we can use */
__kmp_acquire_bootstrap_lock(&__kmp_forkjoin_lock); __kmp_acquire_bootstrap_lock(&__kmp_forkjoin_lock);
nthreads = __kmp_reserve_threads( /* AC: If we execute teams from parallel region (on host), then teams
root, parent_team, master_tid, nthreads should be created but each can only have 1 thread if nesting is
#if OMP_40_ENABLED disabled. If teams called from serial region, then teams and their
/* AC: If we execute teams from parallel region (on host), then threads should be created regardless of the nesting setting. */
teams should be created but each can only have 1 thread if nthreads = __kmp_reserve_threads(root, parent_team, master_tid,
nesting is disabled. If teams called from serial region, then nthreads, enter_teams);
teams and their threads should be created regardless of the
nesting setting. */
,
enter_teams
#endif /* OMP_40_ENABLED */
);
if (nthreads == 1) { if (nthreads == 1) {
// Free lock for single thread execution here; for multi-thread // Free lock for single thread execution here; for multi-thread
// execution it will be freed later after team of threads created // execution it will be freed later after team of threads created
// and initialized // and initialized
__kmp_release_bootstrap_lock(&__kmp_forkjoin_lock); __kmp_release_bootstrap_lock(&__kmp_forkjoin_lock);
} }
} }
} }
Show All 16 Lines#endif /* KMP_OS_LINUX && ( KMP_ARCH_X86 || KMP_ARCH_X86_64 || KMP_ARCH_ARM || \
KA_TRACE(20, KA_TRACE(20,
("__kmp_fork_call: T#%d serializing parallel region\n", gtid)); ("__kmp_fork_call: T#%d serializing parallel region\n", gtid));
__kmpc_serialized_parallel(loc, gtid); __kmpc_serialized_parallel(loc, gtid);
if (call_context == fork_context_intel) { if (call_context == fork_context_intel) {
/* TODO this sucks, use the compiler itself to pass args! :) */ /* TODO this sucks, use the compiler itself to pass args! :) */
master_th->th.th_serial_team->t.t_ident = loc; master_th->th.th_serial_team->t.t_ident = loc;
#if OMP_40_ENABLED
if (!ap) { if (!ap) {
// revert change made in __kmpc_serialized_parallel() // revert change made in __kmpc_serialized_parallel()
master_th->th.th_serial_team->t.t_level--; master_th->th.th_serial_team->t.t_level--;
// Get args from parent team for teams construct // Get args from parent team for teams construct
#if OMPT_SUPPORT #if OMPT_SUPPORT
void *dummy; void *dummy;
void **exit_runtime_p; void **exit_runtime_p;
▲ Show 20 Lines • Show All 78 Lines • ▼ Show 20 Lines#endif
argv[i] = parent_team->t.t_argv[i]; argv[i] = parent_team->t.t_argv[i];
} }
// AC: revert change made in __kmpc_serialized_parallel() // AC: revert change made in __kmpc_serialized_parallel()
// because initial code in teams should have level=0 // because initial code in teams should have level=0
team->t.t_level--; team->t.t_level--;
// AC: call special invoker for outer "parallel" of teams construct // AC: call special invoker for outer "parallel" of teams construct
invoker(gtid); invoker(gtid);
} else { } else {
#endif /* OMP_40_ENABLED */
argv = args; argv = args;
for (i = argc - 1; i >= 0; --i) for (i = argc - 1; i >= 0; --i)
// TODO: revert workaround for Intel(R) 64 tracker #96 // TODO: revert workaround for Intel(R) 64 tracker #96
#if (KMP_ARCH_X86_64 || KMP_ARCH_ARM || KMP_ARCH_AARCH64) && KMP_OS_LINUX #if (KMP_ARCH_X86_64 || KMP_ARCH_ARM || KMP_ARCH_AARCH64) && KMP_OS_LINUX
*argv++ = va_arg(*ap, void *); *argv++ = va_arg(*ap, void *);
#else #else
*argv++ = va_arg(ap, void *); *argv++ = va_arg(ap, void *);
#endif #endif
KMP_MB(); KMP_MB();
#if OMPT_SUPPORT #if OMPT_SUPPORT
void *dummy; void *dummy;
void **exit_runtime_p; void **exit_runtime_p;
ompt_task_info_t *task_info; ompt_task_info_t *task_info;
▲ Show 20 Lines • Show All 49 Lines • ▼ Show 20 Lines#if OMPT_SUPPORT
if (ompt_enabled.ompt_callback_parallel_end) { if (ompt_enabled.ompt_callback_parallel_end) {
ompt_callbacks.ompt_callback(ompt_callback_parallel_end)( ompt_callbacks.ompt_callback(ompt_callback_parallel_end)(
&ompt_parallel_data, parent_task_data, &ompt_parallel_data, parent_task_data,
OMPT_INVOKER(call_context), return_address); OMPT_INVOKER(call_context), return_address);
} }
master_th->th.ompt_thread_info.state = ompt_state_overhead; master_th->th.ompt_thread_info.state = ompt_state_overhead;
} }
#endif #endif
#if OMP_40_ENABLED
} }
#endif /* OMP_40_ENABLED */
} else if (call_context == fork_context_gnu) { } else if (call_context == fork_context_gnu) {
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_lw_taskteam_t lwt; ompt_lw_taskteam_t lwt;
__ompt_lw_taskteam_init(&lwt, master_th, gtid, &ompt_parallel_data, __ompt_lw_taskteam_init(&lwt, master_th, gtid, &ompt_parallel_data,
return_address); return_address);
lwt.ompt_task_info.frame.exit_frame = ompt_data_none; lwt.ompt_task_info.frame.exit_frame = ompt_data_none;
__ompt_lw_taskteam_link(&lwt, master_th, 1); __ompt_lw_taskteam_link(&lwt, master_th, 1);
Show All 20 Lines KF_TRACE(10, ("__kmp_fork_call: parent_team_aclevel=%d, master_th=%p, "
parent_team->t.t_active_level, master_th, parent_team->t.t_active_level, master_th,
master_th->th.th_current_task, master_th->th.th_current_task,
master_th->th.th_current_task->td_icvs.max_active_levels)); master_th->th.th_current_task->td_icvs.max_active_levels));
// TODO: GEH - cannot do this assertion because root thread not set up as // TODO: GEH - cannot do this assertion because root thread not set up as
// executing // executing
// KMP_ASSERT( master_th->th.th_current_task->td_flags.executing == 1 ); // KMP_ASSERT( master_th->th.th_current_task->td_flags.executing == 1 );
master_th->th.th_current_task->td_flags.executing = 0; master_th->th.th_current_task->td_flags.executing = 0;
#if OMP_40_ENABLED if (!master_th->th.th_teams_microtask || level > teams_level) {
if (!master_th->th.th_teams_microtask || level > teams_level)
#endif /* OMP_40_ENABLED */
{
/* Increment our nested depth level */ /* Increment our nested depth level */
KMP_ATOMIC_INC(&root->r.r_in_parallel); KMP_ATOMIC_INC(&root->r.r_in_parallel);
} }
// See if we need to make a copy of the ICVs. // See if we need to make a copy of the ICVs.
int nthreads_icv = master_th->th.th_current_task->td_icvs.nproc; int nthreads_icv = master_th->th.th_current_task->td_icvs.nproc;
if ((level + 1 < __kmp_nested_nth.used) && if ((level + 1 < __kmp_nested_nth.used) &&
(__kmp_nested_nth.nth[level + 1] != nthreads_icv)) { (__kmp_nested_nth.nth[level + 1] != nthreads_icv)) {
nthreads_icv = __kmp_nested_nth.nth[level + 1]; nthreads_icv = __kmp_nested_nth.nth[level + 1];
} else { } else {
nthreads_icv = 0; // don't update nthreads_icv = 0; // don't update
} }
#if OMP_40_ENABLED
// Figure out the proc_bind_policy for the new team. // Figure out the proc_bind_policy for the new team.
kmp_proc_bind_t proc_bind = master_th->th.th_set_proc_bind; kmp_proc_bind_t proc_bind = master_th->th.th_set_proc_bind;
kmp_proc_bind_t proc_bind_icv = kmp_proc_bind_t proc_bind_icv =
proc_bind_default; // proc_bind_default means don't update proc_bind_default; // proc_bind_default means don't update
if (master_th->th.th_current_task->td_icvs.proc_bind == proc_bind_false) { if (master_th->th.th_current_task->td_icvs.proc_bind == proc_bind_false) {
proc_bind = proc_bind_false; proc_bind = proc_bind_false;
} else { } else {
if (proc_bind == proc_bind_default) { if (proc_bind == proc_bind_default) {
Show All 9 Lines if (master_th->th.th_current_task->td_icvs.proc_bind == proc_bind_false) {
(__kmp_nested_proc_bind.bind_types[level + 1] != (__kmp_nested_proc_bind.bind_types[level + 1] !=
master_th->th.th_current_task->td_icvs.proc_bind)) { master_th->th.th_current_task->td_icvs.proc_bind)) {
proc_bind_icv = __kmp_nested_proc_bind.bind_types[level + 1]; proc_bind_icv = __kmp_nested_proc_bind.bind_types[level + 1];
} }
} }
// Reset for next parallel region // Reset for next parallel region
master_th->th.th_set_proc_bind = proc_bind_default; master_th->th.th_set_proc_bind = proc_bind_default;
#endif /* OMP_40_ENABLED */
if ((nthreads_icv > 0) if ((nthreads_icv > 0) || (proc_bind_icv != proc_bind_default)) {
#if OMP_40_ENABLED
|| (proc_bind_icv != proc_bind_default)
#endif /* OMP_40_ENABLED */
) {
kmp_internal_control_t new_icvs; kmp_internal_control_t new_icvs;
copy_icvs(&new_icvs, &master_th->th.th_current_task->td_icvs); copy_icvs(&new_icvs, &master_th->th.th_current_task->td_icvs);
new_icvs.next = NULL; new_icvs.next = NULL;
if (nthreads_icv > 0) { if (nthreads_icv > 0) {
new_icvs.nproc = nthreads_icv; new_icvs.nproc = nthreads_icv;
} }
#if OMP_40_ENABLED
if (proc_bind_icv != proc_bind_default) { if (proc_bind_icv != proc_bind_default) {
new_icvs.proc_bind = proc_bind_icv; new_icvs.proc_bind = proc_bind_icv;
} }
#endif /* OMP_40_ENABLED */
/* allocate a new parallel team */ /* allocate a new parallel team */
KF_TRACE(10, ("__kmp_fork_call: before __kmp_allocate_team\n")); KF_TRACE(10, ("__kmp_fork_call: before __kmp_allocate_team\n"));
team = __kmp_allocate_team(root, nthreads, nthreads, team = __kmp_allocate_team(root, nthreads, nthreads,
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_parallel_data, ompt_parallel_data,
#endif #endif
#if OMP_40_ENABLED proc_bind, &new_icvs,
proc_bind, argc USE_NESTED_HOT_ARG(master_th));
#endif
&new_icvs, argc USE_NESTED_HOT_ARG(master_th));
} else { } else {
/* allocate a new parallel team */ /* allocate a new parallel team */
KF_TRACE(10, ("__kmp_fork_call: before __kmp_allocate_team\n")); KF_TRACE(10, ("__kmp_fork_call: before __kmp_allocate_team\n"));
team = __kmp_allocate_team(root, nthreads, nthreads, team = __kmp_allocate_team(root, nthreads, nthreads,
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_parallel_data, ompt_parallel_data,
#endif #endif
#if OMP_40_ENABLED
proc_bind, proc_bind,
#endif
&master_th->th.th_current_task->td_icvs, &master_th->th.th_current_task->td_icvs,
argc USE_NESTED_HOT_ARG(master_th)); argc USE_NESTED_HOT_ARG(master_th));
} }
KF_TRACE( KF_TRACE(
10, ("__kmp_fork_call: after __kmp_allocate_team - team = %p\n", team)); 10, ("__kmp_fork_call: after __kmp_allocate_team - team = %p\n", team));
/* setup the new team */ /* setup the new team */
KMP_CHECK_UPDATE(team->t.t_master_tid, master_tid); KMP_CHECK_UPDATE(team->t.t_master_tid, master_tid);
KMP_CHECK_UPDATE(team->t.t_master_this_cons, master_this_cons); KMP_CHECK_UPDATE(team->t.t_master_this_cons, master_this_cons);
KMP_CHECK_UPDATE(team->t.t_ident, loc); KMP_CHECK_UPDATE(team->t.t_ident, loc);
KMP_CHECK_UPDATE(team->t.t_parent, parent_team); KMP_CHECK_UPDATE(team->t.t_parent, parent_team);
KMP_CHECK_UPDATE_SYNC(team->t.t_pkfn, microtask); KMP_CHECK_UPDATE_SYNC(team->t.t_pkfn, microtask);
#if OMPT_SUPPORT #if OMPT_SUPPORT
KMP_CHECK_UPDATE_SYNC(team->t.ompt_team_info.master_return_address, KMP_CHECK_UPDATE_SYNC(team->t.ompt_team_info.master_return_address,
return_address); return_address);
#endif #endif
KMP_CHECK_UPDATE(team->t.t_invoke, invoker); // TODO move to root, maybe KMP_CHECK_UPDATE(team->t.t_invoke, invoker); // TODO move to root, maybe
// TODO: parent_team->t.t_level == INT_MAX ??? // TODO: parent_team->t.t_level == INT_MAX ???
#if OMP_40_ENABLED
if (!master_th->th.th_teams_microtask || level > teams_level) { if (!master_th->th.th_teams_microtask || level > teams_level) {
#endif /* OMP_40_ENABLED */
int new_level = parent_team->t.t_level + 1; int new_level = parent_team->t.t_level + 1;
KMP_CHECK_UPDATE(team->t.t_level, new_level); KMP_CHECK_UPDATE(team->t.t_level, new_level);
new_level = parent_team->t.t_active_level + 1; new_level = parent_team->t.t_active_level + 1;
KMP_CHECK_UPDATE(team->t.t_active_level, new_level); KMP_CHECK_UPDATE(team->t.t_active_level, new_level);
#if OMP_40_ENABLED
} else { } else {
// AC: Do not increase parallel level at start of the teams construct // AC: Do not increase parallel level at start of the teams construct
int new_level = parent_team->t.t_level; int new_level = parent_team->t.t_level;
KMP_CHECK_UPDATE(team->t.t_level, new_level); KMP_CHECK_UPDATE(team->t.t_level, new_level);
new_level = parent_team->t.t_active_level; new_level = parent_team->t.t_active_level;
KMP_CHECK_UPDATE(team->t.t_active_level, new_level); KMP_CHECK_UPDATE(team->t.t_active_level, new_level);
} }
#endif /* OMP_40_ENABLED */
kmp_r_sched_t new_sched = get__sched_2(parent_team, master_tid); kmp_r_sched_t new_sched = get__sched_2(parent_team, master_tid);
// set master's schedule as new run-time schedule // set master's schedule as new run-time schedule
KMP_CHECK_UPDATE(team->t.t_sched.sched, new_sched.sched); KMP_CHECK_UPDATE(team->t.t_sched.sched, new_sched.sched);
#if OMP_40_ENABLED
KMP_CHECK_UPDATE(team->t.t_cancel_request, cancel_noreq); KMP_CHECK_UPDATE(team->t.t_cancel_request, cancel_noreq);
#endif
#if OMP_50_ENABLED
KMP_CHECK_UPDATE(team->t.t_def_allocator, master_th->th.th_def_allocator); KMP_CHECK_UPDATE(team->t.t_def_allocator, master_th->th.th_def_allocator);
#endif
// Update the floating point rounding in the team if required. // Update the floating point rounding in the team if required.
propagateFPControl(team); propagateFPControl(team);
if (__kmp_tasking_mode != tskm_immediate_exec) { if (__kmp_tasking_mode != tskm_immediate_exec) {
// Set master's task team to team's task team. Unless this is hot team, it // Set master's task team to team's task team. Unless this is hot team, it
// should be NULL. // should be NULL.
KMP_DEBUG_ASSERT(master_th->th.th_task_team == KMP_DEBUG_ASSERT(master_th->th.th_task_team ==
▲ Show 20 Lines • Show All 59 Lines • ▼ Show 20 Lines#endif
KMP_DEBUG_ASSERT(team != root->r.r_hot_team || KMP_DEBUG_ASSERT(team != root->r.r_hot_team ||
(team->t.t_master_tid == 0 && (team->t.t_master_tid == 0 &&
(team->t.t_parent == root->r.r_root_team || (team->t.t_parent == root->r.r_root_team ||
team->t.t_parent->t.t_serialized))); team->t.t_parent->t.t_serialized)));
KMP_MB(); KMP_MB();
/* now, setup the arguments */ /* now, setup the arguments */
argv = (void **)team->t.t_argv; argv = (void **)team->t.t_argv;
#if OMP_40_ENABLED
if (ap) { if (ap) {
#endif /* OMP_40_ENABLED */
for (i = argc - 1; i >= 0; --i) { for (i = argc - 1; i >= 0; --i) {
// TODO: revert workaround for Intel(R) 64 tracker #96 // TODO: revert workaround for Intel(R) 64 tracker #96
#if (KMP_ARCH_X86_64 || KMP_ARCH_ARM || KMP_ARCH_AARCH64) && KMP_OS_LINUX #if (KMP_ARCH_X86_64 || KMP_ARCH_ARM || KMP_ARCH_AARCH64) && KMP_OS_LINUX
void *new_argv = va_arg(*ap, void *); void *new_argv = va_arg(*ap, void *);
#else #else
void *new_argv = va_arg(ap, void *); void *new_argv = va_arg(ap, void *);
#endif #endif
KMP_CHECK_UPDATE(*argv, new_argv); KMP_CHECK_UPDATE(*argv, new_argv);
argv++; argv++;
} }
#if OMP_40_ENABLED
} else { } else {
for (i = 0; i < argc; ++i) { for (i = 0; i < argc; ++i) {
// Get args from parent team for teams construct // Get args from parent team for teams construct
KMP_CHECK_UPDATE(argv[i], team->t.t_parent->t.t_argv[i]); KMP_CHECK_UPDATE(argv[i], team->t.t_parent->t.t_argv[i]);
} }
} }
#endif /* OMP_40_ENABLED */
/* now actually fork the threads */ /* now actually fork the threads */
KMP_CHECK_UPDATE(team->t.t_master_active, master_active); KMP_CHECK_UPDATE(team->t.t_master_active, master_active);
if (!root->r.r_active) // Only do assignment if it prevents cache ping-pong if (!root->r.r_active) // Only do assignment if it prevents cache ping-pong
root->r.r_active = TRUE; root->r.r_active = TRUE;
__kmp_fork_team_threads(root, team, master_th, gtid); __kmp_fork_team_threads(root, team, master_th, gtid);
__kmp_setup_icv_copy(team, nthreads, __kmp_setup_icv_copy(team, nthreads,
&master_th->th.th_current_task->td_icvs, loc); &master_th->th.th_current_task->td_icvs, loc);
#if OMPT_SUPPORT #if OMPT_SUPPORT
master_th->th.ompt_thread_info.state = ompt_state_work_parallel; master_th->th.ompt_thread_info.state = ompt_state_work_parallel;
#endif #endif
__kmp_release_bootstrap_lock(&__kmp_forkjoin_lock); __kmp_release_bootstrap_lock(&__kmp_forkjoin_lock);
#if USE_ITT_BUILD #if USE_ITT_BUILD
if (team->t.t_active_level == 1 // only report frames at level 1 if (team->t.t_active_level == 1 // only report frames at level 1
#if OMP_40_ENABLED && !master_th->th.th_teams_microtask) { // not in teams construct
&& !master_th->th.th_teams_microtask // not in teams construct
#endif /* OMP_40_ENABLED */
) {
#if USE_ITT_NOTIFY #if USE_ITT_NOTIFY
if ((__itt_frame_submit_v3_ptr || KMP_ITT_DEBUG) && if ((__itt_frame_submit_v3_ptr || KMP_ITT_DEBUG) &&
(__kmp_forkjoin_frames_mode == 3 || (__kmp_forkjoin_frames_mode == 3 ||
__kmp_forkjoin_frames_mode == 1)) { __kmp_forkjoin_frames_mode == 1)) {
kmp_uint64 tmp_time = 0; kmp_uint64 tmp_time = 0;
if (__itt_get_timestamp_ptr) if (__itt_get_timestamp_ptr)
tmp_time = __itt_get_timestamp(); tmp_time = __itt_get_timestamp();
// Internal fork - report frame begin // Internal fork - report frame begin
Show All 21 Lines
#if USE_ITT_BUILD #if USE_ITT_BUILD
if (__itt_stack_caller_create_ptr) { if (__itt_stack_caller_create_ptr) {
team->t.t_stack_id = team->t.t_stack_id =
__kmp_itt_stack_caller_create(); // create new stack stitching id __kmp_itt_stack_caller_create(); // create new stack stitching id
// before entering fork barrier // before entering fork barrier
} }
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
#if OMP_40_ENABLED
// AC: skip __kmp_internal_fork at teams construct, let only master // AC: skip __kmp_internal_fork at teams construct, let only master
// threads execute // threads execute
if (ap) if (ap) {
#endif /* OMP_40_ENABLED */
{
__kmp_internal_fork(loc, gtid, team); __kmp_internal_fork(loc, gtid, team);
KF_TRACE(10, ("__kmp_internal_fork : after : root=%p, team=%p, " KF_TRACE(10, ("__kmp_internal_fork : after : root=%p, team=%p, "
"master_th=%p, gtid=%d\n", "master_th=%p, gtid=%d\n",
root, team, master_th, gtid)); root, team, master_th, gtid));
} }
if (call_context == fork_context_gnu) { if (call_context == fork_context_gnu) {
KA_TRACE(20, ("__kmp_fork_call: parallel exit T#%d\n", gtid)); KA_TRACE(20, ("__kmp_fork_call: parallel exit T#%d\n", gtid));
return TRUE; return TRUE;
} }
/* Invoke microtask for MASTER thread */ /* Invoke microtask for MASTER thread */
KA_TRACE(20, ("__kmp_fork_call: T#%d(%d:0) invoke microtask = %p\n", gtid, KA_TRACE(20, ("__kmp_fork_call: T#%d(%d:0) invoke microtask = %p\n", gtid,
team->t.t_id, team->t.t_pkfn)); team->t.t_id, team->t.t_pkfn));
} // END of timer KMP_fork_call block } // END of timer KMP_fork_call block
#if KMP_STATS_ENABLED && OMP_40_ENABLED #if KMP_STATS_ENABLED
// If beginning a teams construct, then change thread state // If beginning a teams construct, then change thread state
stats_state_e previous_state = KMP_GET_THREAD_STATE(); stats_state_e previous_state = KMP_GET_THREAD_STATE();
if (!ap) { if (!ap) {
KMP_SET_THREAD_STATE(stats_state_e::TEAMS_REGION); KMP_SET_THREAD_STATE(stats_state_e::TEAMS_REGION);
} }
#endif #endif
if (!team->t.t_invoke(gtid)) { if (!team->t.t_invoke(gtid)) {
KMP_ASSERT2(0, "cannot invoke microtask for MASTER thread"); KMP_ASSERT2(0, "cannot invoke microtask for MASTER thread");
} }
#if KMP_STATS_ENABLED && OMP_40_ENABLED #if KMP_STATS_ENABLED
// If was beginning of a teams construct, then reset thread state // If was beginning of a teams construct, then reset thread state
if (!ap) { if (!ap) {
KMP_SET_THREAD_STATE(previous_state); KMP_SET_THREAD_STATE(previous_state);
} }
#endif #endif
KA_TRACE(20, ("__kmp_fork_call: T#%d(%d:0) done microtask = %p\n", gtid, KA_TRACE(20, ("__kmp_fork_call: T#%d(%d:0) done microtask = %p\n", gtid,
team->t.t_id, team->t.t_pkfn)); team->t.t_id, team->t.t_pkfn));
Show All 34 Lines
} }
#endif #endif
void __kmp_join_call(ident_t *loc, int gtid void __kmp_join_call(ident_t *loc, int gtid
#if OMPT_SUPPORT #if OMPT_SUPPORT
, ,
enum fork_context_e fork_context enum fork_context_e fork_context
#endif #endif
#if OMP_40_ENABLED
, ,
int exit_teams int exit_teams) {
#endif /* OMP_40_ENABLED */
) {
KMP_TIME_DEVELOPER_PARTITIONED_BLOCK(KMP_join_call); KMP_TIME_DEVELOPER_PARTITIONED_BLOCK(KMP_join_call);
kmp_team_t *team; kmp_team_t *team;
kmp_team_t *parent_team; kmp_team_t *parent_team;
kmp_info_t *master_th; kmp_info_t *master_th;
kmp_root_t *root; kmp_root_t *root;
int master_active; int master_active;
KA_TRACE(20, ("__kmp_join_call: enter T#%d\n", gtid)); KA_TRACE(20, ("__kmp_join_call: enter T#%d\n", gtid));
Show All 20 Lines KA_TRACE(20, ("__kmp_join_call: T#%d, old team = %p old task_team = %p, "
team->t.t_task_team[master_th->th.th_task_state], team->t.t_task_team[master_th->th.th_task_state],
master_th->th.th_task_team)); master_th->th.th_task_team));
KMP_DEBUG_ASSERT(master_th->th.th_task_team == KMP_DEBUG_ASSERT(master_th->th.th_task_team ==
team->t.t_task_team[master_th->th.th_task_state]); team->t.t_task_team[master_th->th.th_task_state]);
} }
#endif #endif
if (team->t.t_serialized) { if (team->t.t_serialized) {
#if OMP_40_ENABLED
if (master_th->th.th_teams_microtask) { if (master_th->th.th_teams_microtask) {
// We are in teams construct // We are in teams construct
int level = team->t.t_level; int level = team->t.t_level;
int tlevel = master_th->th.th_teams_level; int tlevel = master_th->th.th_teams_level;
if (level == tlevel) { if (level == tlevel) {
// AC: we haven't incremented it earlier at start of teams construct, // AC: we haven't incremented it earlier at start of teams construct,
// so do it here - at the end of teams construct // so do it here - at the end of teams construct
team->t.t_level++; team->t.t_level++;
} else if (level == tlevel + 1) { } else if (level == tlevel + 1) {
// AC: we are exiting parallel inside teams, need to increment // AC: we are exiting parallel inside teams, need to increment
// serialization in order to restore it in the next call to // serialization in order to restore it in the next call to
// __kmpc_end_serialized_parallel // __kmpc_end_serialized_parallel
team->t.t_serialized++; team->t.t_serialized++;
} }
} }
#endif /* OMP_40_ENABLED */
__kmpc_end_serialized_parallel(loc, gtid); __kmpc_end_serialized_parallel(loc, gtid);
#if OMPT_SUPPORT #if OMPT_SUPPORT
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
__kmp_join_restore_state(master_th, parent_team); __kmp_join_restore_state(master_th, parent_team);
} }
#endif #endif
return; return;
} }
master_active = team->t.t_master_active; master_active = team->t.t_master_active;
#if OMP_40_ENABLED if (!exit_teams) {
if (!exit_teams)
#endif /* OMP_40_ENABLED */
{
// AC: No barrier for internal teams at exit from teams construct. // AC: No barrier for internal teams at exit from teams construct.
// But there is barrier for external team (league). // But there is barrier for external team (league).
__kmp_internal_join(loc, gtid, team); __kmp_internal_join(loc, gtid, team);
} } else {
#if OMP_40_ENABLED
else {
master_th->th.th_task_state = master_th->th.th_task_state =
0; // AC: no tasking in teams (out of any parallel) 0; // AC: no tasking in teams (out of any parallel)
} }
#endif /* OMP_40_ENABLED */
KMP_MB(); KMP_MB();
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_data_t *parallel_data = &(team->t.ompt_team_info.parallel_data); ompt_data_t *parallel_data = &(team->t.ompt_team_info.parallel_data);
void *codeptr = team->t.ompt_team_info.master_return_address; void *codeptr = team->t.ompt_team_info.master_return_address;
#endif #endif
#if USE_ITT_BUILD #if USE_ITT_BUILD
if (__itt_stack_caller_create_ptr) { if (__itt_stack_caller_create_ptr) {
__kmp_itt_stack_caller_destroy( __kmp_itt_stack_caller_destroy(
(__itt_caller)team->t (__itt_caller)team->t
.t_stack_id); // destroy the stack stitching id after join barrier .t_stack_id); // destroy the stack stitching id after join barrier
} }
// Mark end of "parallel" region for Intel(R) VTune(TM) analyzer. // Mark end of "parallel" region for Intel(R) VTune(TM) analyzer.
if (team->t.t_active_level == 1 if (team->t.t_active_level == 1 &&
#if OMP_40_ENABLED !master_th->th.th_teams_microtask) { /* not in teams construct */
&& !master_th->th.th_teams_microtask /* not in teams construct */
#endif /* OMP_40_ENABLED */
) {
master_th->th.th_ident = loc; master_th->th.th_ident = loc;
// only one notification scheme (either "submit" or "forking/joined", not // only one notification scheme (either "submit" or "forking/joined", not
// both) // both)
if ((__itt_frame_submit_v3_ptr || KMP_ITT_DEBUG) && if ((__itt_frame_submit_v3_ptr || KMP_ITT_DEBUG) &&
__kmp_forkjoin_frames_mode == 3) __kmp_forkjoin_frames_mode == 3)
__kmp_itt_frame_submit(gtid, team->t.t_region_time, __kmp_itt_frame_submit(gtid, team->t.t_region_time,
master_th->th.th_frame_time, 0, loc, master_th->th.th_frame_time, 0, loc,
master_th->th.th_team_nproc, 1); master_th->th.th_team_nproc, 1);
else if ((__itt_frame_end_v3_ptr || KMP_ITT_DEBUG) && else if ((__itt_frame_end_v3_ptr || KMP_ITT_DEBUG) &&
!__kmp_forkjoin_frames_mode && __kmp_forkjoin_frames) !__kmp_forkjoin_frames_mode && __kmp_forkjoin_frames)
__kmp_itt_region_joined(gtid); __kmp_itt_region_joined(gtid);
} // active_level == 1 } // active_level == 1
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
#if OMP_40_ENABLED
if (master_th->th.th_teams_microtask && !exit_teams && if (master_th->th.th_teams_microtask && !exit_teams &&
team->t.t_pkfn != (microtask_t)__kmp_teams_master && team->t.t_pkfn != (microtask_t)__kmp_teams_master &&
team->t.t_level == master_th->th.th_teams_level + 1) { team->t.t_level == master_th->th.th_teams_level + 1) {
// AC: We need to leave the team structure intact at the end of parallel // AC: We need to leave the team structure intact at the end of parallel
// inside the teams construct, so that at the next parallel same (hot) team // inside the teams construct, so that at the next parallel same (hot) team
// works, only adjust nesting levels // works, only adjust nesting levels
/* Decrement our nested depth level */ /* Decrement our nested depth level */
Show All 36 Lines#if OMPT_SUPPORT
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
__kmp_join_ompt(gtid, master_th, parent_team, parallel_data, fork_context, __kmp_join_ompt(gtid, master_th, parent_team, parallel_data, fork_context,
codeptr); codeptr);
} }
#endif #endif
return; return;
} }
#endif /* OMP_40_ENABLED */
/* do cleanup and restore the parent team */ /* do cleanup and restore the parent team */
master_th->th.th_info.ds.ds_tid = team->t.t_master_tid; master_th->th.th_info.ds.ds_tid = team->t.t_master_tid;
master_th->th.th_local.this_construct = team->t.t_master_this_cons; master_th->th.th_local.this_construct = team->t.t_master_this_cons;
master_th->th.th_dispatch = &parent_team->t.t_dispatch[team->t.t_master_tid]; master_th->th.th_dispatch = &parent_team->t.t_dispatch[team->t.t_master_tid];
/* jc: The following lock has instructions with REL and ACQ semantics, /* jc: The following lock has instructions with REL and ACQ semantics,
separating the parallel user code called in this parallel region separating the parallel user code called in this parallel region
from the serial user code called after this function returns. */ from the serial user code called after this function returns. */
__kmp_acquire_bootstrap_lock(&__kmp_forkjoin_lock); __kmp_acquire_bootstrap_lock(&__kmp_forkjoin_lock);
#if OMP_40_ENABLED
if (!master_th->th.th_teams_microtask || if (!master_th->th.th_teams_microtask ||
team->t.t_level > master_th->th.th_teams_level) team->t.t_level > master_th->th.th_teams_level) {
#endif /* OMP_40_ENABLED */
{
/* Decrement our nested depth level */ /* Decrement our nested depth level */
KMP_ATOMIC_DEC(&root->r.r_in_parallel); KMP_ATOMIC_DEC(&root->r.r_in_parallel);
} }
KMP_DEBUG_ASSERT(root->r.r_in_parallel >= 0); KMP_DEBUG_ASSERT(root->r.r_in_parallel >= 0);
#if OMPT_SUPPORT #if OMPT_SUPPORT
if (ompt_enabled.enabled) { if (ompt_enabled.enabled) {
ompt_task_info_t *task_info = __ompt_get_task_info_object(0); ompt_task_info_t *task_info = __ompt_get_task_info_object(0);
if (ompt_enabled.ompt_callback_implicit_task) { if (ompt_enabled.ompt_callback_implicit_task) {
int ompt_team_size = team->t.t_nproc; int ompt_team_size = team->t.t_nproc;
ompt_callbacks.ompt_callback(ompt_callback_implicit_task)( ompt_callbacks.ompt_callback(ompt_callback_implicit_task)(
ompt_scope_end, NULL, &(task_info->task_data), ompt_team_size, ompt_scope_end, NULL, &(task_info->task_data), ompt_team_size,
OMPT_CUR_TASK_INFO(master_th)->thread_num, ompt_task_implicit); // TODO: Can this be ompt_task_initial? OMPT_CUR_TASK_INFO(master_th)->thread_num, ompt_task_implicit); // TODO: Can this be ompt_task_initial?
} }
task_info->frame.exit_frame = ompt_data_none; task_info->frame.exit_frame = ompt_data_none;
task_info->task_data = ompt_data_none; task_info->task_data = ompt_data_none;
} }
#endif #endif
KF_TRACE(10, ("__kmp_join_call1: T#%d, this_thread=%p team=%p\n", 0, KF_TRACE(10, ("__kmp_join_call1: T#%d, this_thread=%p team=%p\n", 0,
master_th, team)); master_th, team));
__kmp_pop_current_task_from_thread(master_th); __kmp_pop_current_task_from_thread(master_th);
#if OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
// Restore master thread's partition. // Restore master thread's partition.
master_th->th.th_first_place = team->t.t_first_place; master_th->th.th_first_place = team->t.t_first_place;
master_th->th.th_last_place = team->t.t_last_place; master_th->th.th_last_place = team->t.t_last_place;
#endif /* OMP_40_ENABLED */ #endif // KMP_AFFINITY_SUPPORTED
#if OMP_50_ENABLED
master_th->th.th_def_allocator = team->t.t_def_allocator; master_th->th.th_def_allocator = team->t.t_def_allocator;
#endif
updateHWFPControl(team); updateHWFPControl(team);
if (root->r.r_active != master_active) if (root->r.r_active != master_active)
root->r.r_active = master_active; root->r.r_active = master_active;
__kmp_free_team(root, team USE_NESTED_HOT_ARG( __kmp_free_team(root, team USE_NESTED_HOT_ARG(
master_th)); // this will free worker threads master_th)); // this will free worker threads
▲ Show 20 Lines • Show All 343 Lines • ▼ Show 20 Linesint __kmp_get_ancestor_thread_num(int gtid, int level) {
if (level < 0) if (level < 0)
return -1; return -1;
thr = __kmp_threads[gtid]; thr = __kmp_threads[gtid];
team = thr->th.th_team; team = thr->th.th_team;
ii = team->t.t_level; ii = team->t.t_level;
if (level > ii) if (level > ii)
return -1; return -1;
#if OMP_40_ENABLED
if (thr->th.th_teams_microtask) { if (thr->th.th_teams_microtask) {
// AC: we are in teams region where multiple nested teams have same level // AC: we are in teams region where multiple nested teams have same level
int tlevel = thr->th.th_teams_level; // the level of the teams construct int tlevel = thr->th.th_teams_level; // the level of the teams construct
if (level <= if (level <=
tlevel) { // otherwise usual algorithm works (will not touch the teams) tlevel) { // otherwise usual algorithm works (will not touch the teams)
KMP_DEBUG_ASSERT(ii >= tlevel); KMP_DEBUG_ASSERT(ii >= tlevel);
// AC: As we need to pass by the teams league, we need to artificially // AC: As we need to pass by the teams league, we need to artificially
// increase ii // increase ii
if (ii == tlevel) { if (ii == tlevel) {
ii += 2; // three teams have same level ii += 2; // three teams have same level
} else { } else {
ii++; // two teams have same level ii++; // two teams have same level
} }
} }
} }
#endif
if (ii == level) if (ii == level)
return __kmp_tid_from_gtid(gtid); return __kmp_tid_from_gtid(gtid);
dd = team->t.t_serialized; dd = team->t.t_serialized;
level++; level++;
while (ii > level) { while (ii > level) {
for (dd = team->t.t_serialized; (dd > 0) && (ii > level); dd--, ii--) { for (dd = team->t.t_serialized; (dd > 0) && (ii > level); dd--, ii--) {
Show All 27 Linesint __kmp_get_team_size(int gtid, int level) {
if (level < 0) if (level < 0)
return -1; return -1;
thr = __kmp_threads[gtid]; thr = __kmp_threads[gtid];
team = thr->th.th_team; team = thr->th.th_team;
ii = team->t.t_level; ii = team->t.t_level;
if (level > ii) if (level > ii)
return -1; return -1;
#if OMP_40_ENABLED
if (thr->th.th_teams_microtask) { if (thr->th.th_teams_microtask) {
// AC: we are in teams region where multiple nested teams have same level // AC: we are in teams region where multiple nested teams have same level
int tlevel = thr->th.th_teams_level; // the level of the teams construct int tlevel = thr->th.th_teams_level; // the level of the teams construct
if (level <= if (level <=
tlevel) { // otherwise usual algorithm works (will not touch the teams) tlevel) { // otherwise usual algorithm works (will not touch the teams)
KMP_DEBUG_ASSERT(ii >= tlevel); KMP_DEBUG_ASSERT(ii >= tlevel);
// AC: As we need to pass by the teams league, we need to artificially // AC: As we need to pass by the teams league, we need to artificially
// increase ii // increase ii
if (ii == tlevel) { if (ii == tlevel) {
ii += 2; // three teams have same level ii += 2; // three teams have same level
} else { } else {
ii++; // two teams have same level ii++; // two teams have same level
} }
} }
} }
#endif
while (ii > level) { while (ii > level) {
for (dd = team->t.t_serialized; (dd > 0) && (ii > level); dd--, ii--) { for (dd = team->t.t_serialized; (dd > 0) && (ii > level); dd--, ii--) {
} }
if (team->t.t_serialized && (!dd)) { if (team->t.t_serialized && (!dd)) {
team = team->t.t_parent; team = team->t.t_parent;
continue; continue;
} }
Show All 13 Lineskmp_r_sched_t __kmp_get_schedule_global() {
kmp_r_sched_t r_sched; kmp_r_sched_t r_sched;
// create schedule from 4 globals: __kmp_sched, __kmp_chunk, __kmp_static, // create schedule from 4 globals: __kmp_sched, __kmp_chunk, __kmp_static,
// __kmp_guided. __kmp_sched should keep original value, so that user can set // __kmp_guided. __kmp_sched should keep original value, so that user can set
// KMP_SCHEDULE multiple times, and thus have different run-time schedules in // KMP_SCHEDULE multiple times, and thus have different run-time schedules in
// different roots (even in OMP 2.5) // different roots (even in OMP 2.5)
enum sched_type s = SCHEDULE_WITHOUT_MODIFIERS(__kmp_sched); enum sched_type s = SCHEDULE_WITHOUT_MODIFIERS(__kmp_sched);
#if OMP_45_ENABLED
enum sched_type sched_modifiers = SCHEDULE_GET_MODIFIERS(__kmp_sched); enum sched_type sched_modifiers = SCHEDULE_GET_MODIFIERS(__kmp_sched);
#endif
if (s == kmp_sch_static) { if (s == kmp_sch_static) {
// replace STATIC with more detailed schedule (balanced or greedy) // replace STATIC with more detailed schedule (balanced or greedy)
r_sched.r_sched_type = __kmp_static; r_sched.r_sched_type = __kmp_static;
} else if (s == kmp_sch_guided_chunked) { } else if (s == kmp_sch_guided_chunked) {
// replace GUIDED with more detailed schedule (iterative or analytical) // replace GUIDED with more detailed schedule (iterative or analytical)
r_sched.r_sched_type = __kmp_guided; r_sched.r_sched_type = __kmp_guided;
} else { // (STATIC_CHUNKED), or (DYNAMIC_CHUNKED), or other } else { // (STATIC_CHUNKED), or (DYNAMIC_CHUNKED), or other
r_sched.r_sched_type = __kmp_sched; r_sched.r_sched_type = __kmp_sched;
} }
#if OMP_45_ENABLED
SCHEDULE_SET_MODIFIERS(r_sched.r_sched_type, sched_modifiers); SCHEDULE_SET_MODIFIERS(r_sched.r_sched_type, sched_modifiers);
#endif
if (__kmp_chunk < KMP_DEFAULT_CHUNK) { if (__kmp_chunk < KMP_DEFAULT_CHUNK) {
// __kmp_chunk may be wrong here (if it was not ever set) // __kmp_chunk may be wrong here (if it was not ever set)
r_sched.chunk = KMP_DEFAULT_CHUNK; r_sched.chunk = KMP_DEFAULT_CHUNK;
} else { } else {
r_sched.chunk = __kmp_chunk; r_sched.chunk = __kmp_chunk;
} }
▲ Show 20 Lines • Show All 59 Lines • ▼ Show 20 Lines team->t.t_dispatch =
(kmp_disp_t *)__kmp_allocate(sizeof(kmp_disp_t) * max_nth); (kmp_disp_t *)__kmp_allocate(sizeof(kmp_disp_t) * max_nth);
team->t.t_implicit_task_taskdata = team->t.t_implicit_task_taskdata =
(kmp_taskdata_t *)__kmp_allocate(sizeof(kmp_taskdata_t) * max_nth); (kmp_taskdata_t *)__kmp_allocate(sizeof(kmp_taskdata_t) * max_nth);
team->t.t_max_nproc = max_nth; team->t.t_max_nproc = max_nth;
/* setup dispatch buffers */ /* setup dispatch buffers */
for (i = 0; i < num_disp_buff; ++i) { for (i = 0; i < num_disp_buff; ++i) {
team->t.t_disp_buffer[i].buffer_index = i; team->t.t_disp_buffer[i].buffer_index = i;
#if OMP_45_ENABLED
team->t.t_disp_buffer[i].doacross_buf_idx = i; team->t.t_disp_buffer[i].doacross_buf_idx = i;
#endif
} }
} }
static void __kmp_free_team_arrays(kmp_team_t *team) { static void __kmp_free_team_arrays(kmp_team_t *team) {
/* Note: this does not free the threads in t_threads (__kmp_free_threads) */ /* Note: this does not free the threads in t_threads (__kmp_free_threads) */
int i; int i;
for (i = 0; i < team->t.t_max_nproc; ++i) { for (i = 0; i < team->t.t_max_nproc; ++i) {
if (team->t.t_dispatch[i].th_disp_buffer != NULL) { if (team->t.t_dispatch[i].th_disp_buffer != NULL) {
Show All 28 Linesstatic void __kmp_reallocate_team_arrays(kmp_team_t *team, int max_nth) {
__kmp_free(oldThreads); __kmp_free(oldThreads);
} }
static kmp_internal_control_t __kmp_get_global_icvs(void) { static kmp_internal_control_t __kmp_get_global_icvs(void) {
kmp_r_sched_t r_sched = kmp_r_sched_t r_sched =
__kmp_get_schedule_global(); // get current state of scheduling globals __kmp_get_schedule_global(); // get current state of scheduling globals
#if OMP_40_ENABLED
KMP_DEBUG_ASSERT(__kmp_nested_proc_bind.used > 0); KMP_DEBUG_ASSERT(__kmp_nested_proc_bind.used > 0);
#endif /* OMP_40_ENABLED */
kmp_internal_control_t g_icvs = { kmp_internal_control_t g_icvs = {
0, // int serial_nesting_level; //corresponds to value of th_team_serialized 0, // int serial_nesting_level; //corresponds to value of th_team_serialized
(kmp_int8)__kmp_global.g.g_dynamic, // internal control for dynamic (kmp_int8)__kmp_global.g.g_dynamic, // internal control for dynamic
// adjustment of threads (per thread) // adjustment of threads (per thread)
(kmp_int8)__kmp_env_blocktime, // int bt_set; //internal control for (kmp_int8)__kmp_env_blocktime, // int bt_set; //internal control for
// whether blocktime is explicitly set // whether blocktime is explicitly set
__kmp_dflt_blocktime, // int blocktime; //internal control for blocktime __kmp_dflt_blocktime, // int blocktime; //internal control for blocktime
#if KMP_USE_MONITOR #if KMP_USE_MONITOR
__kmp_bt_intervals, // int bt_intervals; //internal control for blocktime __kmp_bt_intervals, // int bt_intervals; //internal control for blocktime
// intervals // intervals
#endif #endif
__kmp_dflt_team_nth, // int nproc; //internal control for # of threads for __kmp_dflt_team_nth, // int nproc; //internal control for # of threads for
// next parallel region (per thread) // next parallel region (per thread)
// (use a max ub on value if __kmp_parallel_initialize not called yet) // (use a max ub on value if __kmp_parallel_initialize not called yet)
__kmp_cg_max_nth, // int thread_limit; __kmp_cg_max_nth, // int thread_limit;
__kmp_dflt_max_active_levels, // int max_active_levels; //internal control __kmp_dflt_max_active_levels, // int max_active_levels; //internal control
// for max_active_levels // for max_active_levels
r_sched, // kmp_r_sched_t sched; //internal control for runtime schedule r_sched, // kmp_r_sched_t sched; //internal control for runtime schedule
// {sched,chunk} pair // {sched,chunk} pair
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0], __kmp_nested_proc_bind.bind_types[0],
__kmp_default_device, __kmp_default_device,
#endif /* OMP_40_ENABLED */
NULL // struct kmp_internal_control *next; NULL // struct kmp_internal_control *next;
}; };
return g_icvs; return g_icvs;
} }
static kmp_internal_control_t __kmp_get_x_global_icvs(const kmp_team_t *team) { static kmp_internal_control_t __kmp_get_x_global_icvs(const kmp_team_t *team) {
Show All 30 Linesstatic void __kmp_initialize_root(kmp_root_t *root) {
root_team = root_team =
__kmp_allocate_team(root, __kmp_allocate_team(root,
1, // new_nproc 1, // new_nproc
1, // max_nproc 1, // max_nproc
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_data_none, // root parallel id ompt_data_none, // root parallel id
#endif #endif
#if OMP_40_ENABLED __kmp_nested_proc_bind.bind_types[0], &r_icvs,
__kmp_nested_proc_bind.bind_types[0],
#endif
&r_icvs,
0 // argc 0 // argc
USE_NESTED_HOT_ARG(NULL) // master thread is unknown USE_NESTED_HOT_ARG(NULL) // master thread is unknown
); );
#if USE_DEBUGGER #if USE_DEBUGGER
// Non-NULL value should be assigned to make the debugger display the root // Non-NULL value should be assigned to make the debugger display the root
// team. // team.
TCW_SYNC_PTR(root_team->t.t_pkfn, (microtask_t)(~0)); TCW_SYNC_PTR(root_team->t.t_pkfn, (microtask_t)(~0));
#endif #endif
Show All 20 Lines#endif
hot_team = hot_team =
__kmp_allocate_team(root, __kmp_allocate_team(root,
1, // new_nproc 1, // new_nproc
__kmp_dflt_team_nth_ub * 2, // max_nproc __kmp_dflt_team_nth_ub * 2, // max_nproc
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_data_none, // root parallel id ompt_data_none, // root parallel id
#endif #endif
#if OMP_40_ENABLED __kmp_nested_proc_bind.bind_types[0], &r_icvs,
__kmp_nested_proc_bind.bind_types[0],
#endif
&r_icvs,
0 // argc 0 // argc
USE_NESTED_HOT_ARG(NULL) // master thread is unknown USE_NESTED_HOT_ARG(NULL) // master thread is unknown
); );
KF_TRACE(10, ("__kmp_initialize_root: after hot_team = %p\n", hot_team)); KF_TRACE(10, ("__kmp_initialize_root: after hot_team = %p\n", hot_team));
root->r.r_hot_team = hot_team; root->r.r_hot_team = hot_team;
root_team->t.t_control_stack_top = NULL; root_team->t.t_control_stack_top = NULL;
▲ Show 20 Lines • Show All 124 Lines • ▼ Show 20 Lines for (gtid = 0; gtid < __kmp_threads_capacity; ++gtid) {
__kmp_print_structure_team(" Our Team: ", thread->th.th_team); __kmp_print_structure_team(" Our Team: ", thread->th.th_team);
__kmp_print_structure_team(" Serial Team: ", __kmp_print_structure_team(" Serial Team: ",
thread->th.th_serial_team); thread->th.th_serial_team);
__kmp_printf(" Threads: %2d\n", thread->th.th_team_nproc); __kmp_printf(" Threads: %2d\n", thread->th.th_team_nproc);
__kmp_print_structure_thread(" Master: ", __kmp_print_structure_thread(" Master: ",
thread->th.th_team_master); thread->th.th_team_master);
__kmp_printf(" Serialized?: %2d\n", thread->th.th_team_serialized); __kmp_printf(" Serialized?: %2d\n", thread->th.th_team_serialized);
__kmp_printf(" Set NProc: %2d\n", thread->th.th_set_nproc); __kmp_printf(" Set NProc: %2d\n", thread->th.th_set_nproc);
#if OMP_40_ENABLED
__kmp_printf(" Set Proc Bind: %2d\n", thread->th.th_set_proc_bind); __kmp_printf(" Set Proc Bind: %2d\n", thread->th.th_set_proc_bind);
#endif
__kmp_print_structure_thread(" Next in pool: ", __kmp_print_structure_thread(" Next in pool: ",
thread->th.th_next_pool); thread->th.th_next_pool);
__kmp_printf("\n"); __kmp_printf("\n");
__kmp_print_structure_team_accum(list, thread->th.th_team); __kmp_print_structure_team_accum(list, thread->th.th_team);
__kmp_print_structure_team_accum(list, thread->th.th_serial_team); __kmp_print_structure_team_accum(list, thread->th.th_serial_team);
} }
} }
} else { } else {
▲ Show 20 Lines • Show All 349 Lines • ▼ Show 20 Lines
#endif #endif
__kmp_init_random(root_thread); // Initialize random number generator __kmp_init_random(root_thread); // Initialize random number generator
} }
/* setup the serial team held in reserve by the root thread */ /* setup the serial team held in reserve by the root thread */
if (!root_thread->th.th_serial_team) { if (!root_thread->th.th_serial_team) {
kmp_internal_control_t r_icvs = __kmp_get_global_icvs(); kmp_internal_control_t r_icvs = __kmp_get_global_icvs();
KF_TRACE(10, ("__kmp_register_root: before serial_team\n")); KF_TRACE(10, ("__kmp_register_root: before serial_team\n"));
root_thread->th.th_serial_team = root_thread->th.th_serial_team = __kmp_allocate_team(
__kmp_allocate_team(root, 1, 1, root, 1, 1,
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_data_none, // root parallel id ompt_data_none, // root parallel id
#endif #endif
#if OMP_40_ENABLED proc_bind_default, &r_icvs, 0 USE_NESTED_HOT_ARG(NULL));
proc_bind_default,
#endif
&r_icvs, 0 USE_NESTED_HOT_ARG(NULL));
} }
KMP_ASSERT(root_thread->th.th_serial_team); KMP_ASSERT(root_thread->th.th_serial_team);
KF_TRACE(10, ("__kmp_register_root: after serial_team = %p\n", KF_TRACE(10, ("__kmp_register_root: after serial_team = %p\n",
root_thread->th.th_serial_team)); root_thread->th.th_serial_team));
/* drop root_thread into place */ /* drop root_thread into place */
TCW_SYNC_PTR(__kmp_threads[gtid], root_thread); TCW_SYNC_PTR(__kmp_threads[gtid], root_thread);
Show All 34 Lines#if USE_DEBUGGER
root_thread->th.th_bar[b].bb.b_worker_arrived = 0; root_thread->th.th_bar[b].bb.b_worker_arrived = 0;
#endif #endif
} }
} }
KMP_DEBUG_ASSERT(root->r.r_hot_team->t.t_bar[bs_forkjoin_barrier].b_arrived == KMP_DEBUG_ASSERT(root->r.r_hot_team->t.t_bar[bs_forkjoin_barrier].b_arrived ==
KMP_INIT_BARRIER_STATE); KMP_INIT_BARRIER_STATE);
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
#if OMP_40_ENABLED
root_thread->th.th_current_place = KMP_PLACE_UNDEFINED; root_thread->th.th_current_place = KMP_PLACE_UNDEFINED;
root_thread->th.th_new_place = KMP_PLACE_UNDEFINED; root_thread->th.th_new_place = KMP_PLACE_UNDEFINED;
root_thread->th.th_first_place = KMP_PLACE_UNDEFINED; root_thread->th.th_first_place = KMP_PLACE_UNDEFINED;
root_thread->th.th_last_place = KMP_PLACE_UNDEFINED; root_thread->th.th_last_place = KMP_PLACE_UNDEFINED;
#endif
if (TCR_4(__kmp_init_middle)) { if (TCR_4(__kmp_init_middle)) {
__kmp_affinity_set_init_mask(gtid, TRUE); __kmp_affinity_set_init_mask(gtid, TRUE);
} }
#endif /* KMP_AFFINITY_SUPPORTED */ #endif /* KMP_AFFINITY_SUPPORTED */
#if OMP_50_ENABLED
root_thread->th.th_def_allocator = __kmp_def_allocator; root_thread->th.th_def_allocator = __kmp_def_allocator;
root_thread->th.th_prev_level = 0; root_thread->th.th_prev_level = 0;
root_thread->th.th_prev_num_threads = 1; root_thread->th.th_prev_num_threads = 1;
#endif
kmp_cg_root_t *tmp = (kmp_cg_root_t *)__kmp_allocate(sizeof(kmp_cg_root_t)); kmp_cg_root_t *tmp = (kmp_cg_root_t *)__kmp_allocate(sizeof(kmp_cg_root_t));
tmp->cg_root = root_thread; tmp->cg_root = root_thread;
tmp->cg_thread_limit = __kmp_cg_max_nth; tmp->cg_thread_limit = __kmp_cg_max_nth;
tmp->cg_nthreads = 1; tmp->cg_nthreads = 1;
KA_TRACE(100, ("__kmp_register_root: Thread %p created node %p with" KA_TRACE(100, ("__kmp_register_root: Thread %p created node %p with"
" cg_nthreads init to 1\n", " cg_nthreads init to 1\n",
root_thread, tmp)); root_thread, tmp));
▲ Show 20 Lines • Show All 164 Lines • ▼ Show 20 Linesvoid __kmp_unregister_root_current_thread(int gtid) {
KMP_DEBUG_ASSERT(__kmp_threads && __kmp_threads[gtid]); KMP_DEBUG_ASSERT(__kmp_threads && __kmp_threads[gtid]);
KMP_ASSERT(KMP_UBER_GTID(gtid)); KMP_ASSERT(KMP_UBER_GTID(gtid));
KMP_ASSERT(root == __kmp_threads[gtid]->th.th_root); KMP_ASSERT(root == __kmp_threads[gtid]->th.th_root);
KMP_ASSERT(root->r.r_active == FALSE); KMP_ASSERT(root->r.r_active == FALSE);
KMP_MB(); KMP_MB();
#if OMP_45_ENABLED
kmp_info_t *thread = __kmp_threads[gtid]; kmp_info_t *thread = __kmp_threads[gtid];
kmp_team_t *team = thread->th.th_team; kmp_team_t *team = thread->th.th_team;
kmp_task_team_t *task_team = thread->th.th_task_team; kmp_task_team_t *task_team = thread->th.th_task_team;
// we need to wait for the proxy tasks before finishing the thread // we need to wait for the proxy tasks before finishing the thread
if (task_team != NULL && task_team->tt.tt_found_proxy_tasks) { if (task_team != NULL && task_team->tt.tt_found_proxy_tasks) {
#if OMPT_SUPPORT #if OMPT_SUPPORT
// the runtime is shutting down so we won't report any events // the runtime is shutting down so we won't report any events
thread->th.ompt_thread_info.state = ompt_state_undefined; thread->th.ompt_thread_info.state = ompt_state_undefined;
#endif #endif
__kmp_task_team_wait(thread, team USE_ITT_BUILD_ARG(NULL)); __kmp_task_team_wait(thread, team USE_ITT_BUILD_ARG(NULL));
} }
#endif
__kmp_reset_root(gtid, root); __kmp_reset_root(gtid, root);
/* free up this thread slot */ /* free up this thread slot */
__kmp_gtid_set_specific(KMP_GTID_DNE); __kmp_gtid_set_specific(KMP_GTID_DNE);
#ifdef KMP_TDATA_GTID #ifdef KMP_TDATA_GTID
__kmp_gtid = KMP_GTID_DNE; __kmp_gtid = KMP_GTID_DNE;
#endif #endif
▲ Show 20 Lines • Show All 67 Lines • ▼ Show 20 Linesstatic void __kmp_initialize_info(kmp_info_t *this_thr, kmp_team_t *team,
this_thr->th.th_info.ds.ds_tid = tid; this_thr->th.th_info.ds.ds_tid = tid;
this_thr->th.th_set_nproc = 0; this_thr->th.th_set_nproc = 0;
if (__kmp_tasking_mode != tskm_immediate_exec) if (__kmp_tasking_mode != tskm_immediate_exec)
// When tasking is possible, threads are not safe to reap until they are // When tasking is possible, threads are not safe to reap until they are
// done tasking; this will be set when tasking code is exited in wait // done tasking; this will be set when tasking code is exited in wait
this_thr->th.th_reap_state = KMP_NOT_SAFE_TO_REAP; this_thr->th.th_reap_state = KMP_NOT_SAFE_TO_REAP;
else // no tasking --> always safe to reap else // no tasking --> always safe to reap
this_thr->th.th_reap_state = KMP_SAFE_TO_REAP; this_thr->th.th_reap_state = KMP_SAFE_TO_REAP;
#if OMP_40_ENABLED
this_thr->th.th_set_proc_bind = proc_bind_default; this_thr->th.th_set_proc_bind = proc_bind_default;
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
this_thr->th.th_new_place = this_thr->th.th_current_place; this_thr->th.th_new_place = this_thr->th.th_current_place;
#endif #endif
#endif
this_thr->th.th_root = master->th.th_root; this_thr->th.th_root = master->th.th_root;
/* setup the thread's cache of the team structure */ /* setup the thread's cache of the team structure */
this_thr->th.th_team_nproc = team->t.t_nproc; this_thr->th.th_team_nproc = team->t.t_nproc;
this_thr->th.th_team_master = master; this_thr->th.th_team_master = master;
this_thr->th.th_team_serialized = team->t.t_serialized; this_thr->th.th_team_serialized = team->t.t_serialized;
TCW_PTR(this_thr->th.th_sleep_loc, NULL); TCW_PTR(this_thr->th.th_sleep_loc, NULL);
▲ Show 20 Lines • Show All 62 Lines • ▼ Show 20 Lines size_t disp_size =
(team->t.t_max_nproc == 1 ? 1 : __kmp_dispatch_num_buffers); (team->t.t_max_nproc == 1 ? 1 : __kmp_dispatch_num_buffers);
KD_TRACE(10, ("__kmp_initialize_info: T#%d max_nproc: %d\n", gtid, KD_TRACE(10, ("__kmp_initialize_info: T#%d max_nproc: %d\n", gtid,
team->t.t_max_nproc)); team->t.t_max_nproc));
KMP_ASSERT(dispatch); KMP_ASSERT(dispatch);
KMP_DEBUG_ASSERT(team->t.t_dispatch); KMP_DEBUG_ASSERT(team->t.t_dispatch);
KMP_DEBUG_ASSERT(dispatch == &team->t.t_dispatch[tid]); KMP_DEBUG_ASSERT(dispatch == &team->t.t_dispatch[tid]);
dispatch->th_disp_index = 0; dispatch->th_disp_index = 0;
#if OMP_45_ENABLED
dispatch->th_doacross_buf_idx = 0; dispatch->th_doacross_buf_idx = 0;
#endif
if (!dispatch->th_disp_buffer) { if (!dispatch->th_disp_buffer) {
dispatch->th_disp_buffer = dispatch->th_disp_buffer =
(dispatch_private_info_t *)__kmp_allocate(disp_size); (dispatch_private_info_t *)__kmp_allocate(disp_size);
if (__kmp_storage_map) { if (__kmp_storage_map) {
__kmp_print_storage_map_gtid( __kmp_print_storage_map_gtid(
gtid, &dispatch->th_disp_buffer[0], gtid, &dispatch->th_disp_buffer[0],
&dispatch->th_disp_buffer[team->t.t_max_nproc == 1 &dispatch->th_disp_buffer[team->t.t_max_nproc == 1
▲ Show 20 Lines • Show All 162 Lines • ▼ Show 20 Lines#endif
{ {
kmp_internal_control_t r_icvs = __kmp_get_x_global_icvs(team); kmp_internal_control_t r_icvs = __kmp_get_x_global_icvs(team);
KF_TRACE(10, ("__kmp_allocate_thread: before th_serial/serial_team\n")); KF_TRACE(10, ("__kmp_allocate_thread: before th_serial/serial_team\n"));
new_thr->th.th_serial_team = serial_team = new_thr->th.th_serial_team = serial_team =
(kmp_team_t *)__kmp_allocate_team(root, 1, 1, (kmp_team_t *)__kmp_allocate_team(root, 1, 1,
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_data_none, // root parallel id ompt_data_none, // root parallel id
#endif #endif
#if OMP_40_ENABLED proc_bind_default, &r_icvs,
proc_bind_default, 0 USE_NESTED_HOT_ARG(NULL));
#endif
&r_icvs, 0 USE_NESTED_HOT_ARG(NULL));
} }
KMP_ASSERT(serial_team); KMP_ASSERT(serial_team);
serial_team->t.t_serialized = 0; // AC: the team created in reserve, not for serial_team->t.t_serialized = 0; // AC: the team created in reserve, not for
// execution (it is unused for now). // execution (it is unused for now).
serial_team->t.t_threads[0] = new_thr; serial_team->t.t_threads[0] = new_thr;
KF_TRACE(10, KF_TRACE(10,
("__kmp_allocate_thread: after th_serial/serial_team : new_thr=%p\n", ("__kmp_allocate_thread: after th_serial/serial_team : new_thr=%p\n",
new_thr)); new_thr));
Show All 27 Lines#endif
} }
new_thr->th.th_spin_here = FALSE; new_thr->th.th_spin_here = FALSE;
new_thr->th.th_next_waiting = 0; new_thr->th.th_next_waiting = 0;
#if KMP_OS_UNIX #if KMP_OS_UNIX
new_thr->th.th_blocking = false; new_thr->th.th_blocking = false;
#endif #endif
#if OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
new_thr->th.th_current_place = KMP_PLACE_UNDEFINED; new_thr->th.th_current_place = KMP_PLACE_UNDEFINED;
new_thr->th.th_new_place = KMP_PLACE_UNDEFINED; new_thr->th.th_new_place = KMP_PLACE_UNDEFINED;
new_thr->th.th_first_place = KMP_PLACE_UNDEFINED; new_thr->th.th_first_place = KMP_PLACE_UNDEFINED;
new_thr->th.th_last_place = KMP_PLACE_UNDEFINED; new_thr->th.th_last_place = KMP_PLACE_UNDEFINED;
#endif #endif
#if OMP_50_ENABLED
new_thr->th.th_def_allocator = __kmp_def_allocator; new_thr->th.th_def_allocator = __kmp_def_allocator;
new_thr->th.th_prev_level = 0; new_thr->th.th_prev_level = 0;
new_thr->th.th_prev_num_threads = 1; new_thr->th.th_prev_num_threads = 1;
#endif
TCW_4(new_thr->th.th_in_pool, FALSE); TCW_4(new_thr->th.th_in_pool, FALSE);
new_thr->th.th_active_in_pool = FALSE; new_thr->th.th_active_in_pool = FALSE;
TCW_4(new_thr->th.th_active, TRUE); TCW_4(new_thr->th.th_active, TRUE);
/* adjust the global counters */ /* adjust the global counters */
__kmp_all_nth++; __kmp_all_nth++;
__kmp_nth++; __kmp_nth++;
▲ Show 20 Lines • Show All 128 Lines • ▼ Show 20 Lines if (old_mask != NULL) {
__kmp_msg_null); __kmp_msg_null);
} }
} }
__kmp_set_system_affinity(__kmp_affin_fullMask, TRUE); __kmp_set_system_affinity(__kmp_affin_fullMask, TRUE);
} }
} }
#endif #endif
#if OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
// __kmp_partition_places() is the heart of the OpenMP 4.0 affinity mechanism. // __kmp_partition_places() is the heart of the OpenMP 4.0 affinity mechanism.
// It calculats the worker + master thread's partition based upon the parent // It calculats the worker + master thread's partition based upon the parent
// thread's partition, and binds each worker to a thread in their partition. // thread's partition, and binds each worker to a thread in their partition.
// The master thread's partition should already include its current binding. // The master thread's partition should already include its current binding.
static void __kmp_partition_places(kmp_team_t *team, int update_master_only) { static void __kmp_partition_places(kmp_team_t *team, int update_master_only) {
// Copy the master thread's place partion to the team struct // Copy the master thread's place partion to the team struct
kmp_info_t *master_th = team->t.t_threads[0]; kmp_info_t *master_th = team->t.t_threads[0];
Show All 22 Lines case proc_bind_master: {
int f; int f;
int n_th = team->t.t_nproc; int n_th = team->t.t_nproc;
for (f = 1; f < n_th; f++) { for (f = 1; f < n_th; f++) {
kmp_info_t *th = team->t.t_threads[f]; kmp_info_t *th = team->t.t_threads[f];
KMP_DEBUG_ASSERT(th != NULL); KMP_DEBUG_ASSERT(th != NULL);
th->th.th_first_place = first_place; th->th.th_first_place = first_place;
th->th.th_last_place = last_place; th->th.th_last_place = last_place;
th->th.th_new_place = masters_place; th->th.th_new_place = masters_place;
#if OMP_50_ENABLED
if (__kmp_display_affinity && masters_place != th->th.th_current_place && if (__kmp_display_affinity && masters_place != th->th.th_current_place &&
team->t.t_display_affinity != 1) { team->t.t_display_affinity != 1) {
team->t.t_display_affinity = 1; team->t.t_display_affinity = 1;
} }
#endif
KA_TRACE(100, ("__kmp_partition_places: master: T#%d(%d:%d) place %d " KA_TRACE(100, ("__kmp_partition_places: master: T#%d(%d:%d) place %d "
"partition = [%d,%d]\n", "partition = [%d,%d]\n",
__kmp_gtid_from_thread(team->t.t_threads[f]), team->t.t_id, __kmp_gtid_from_thread(team->t.t_threads[f]), team->t.t_id,
f, masters_place, first_place, last_place)); f, masters_place, first_place, last_place));
} }
} break; } break;
Show All 17 Lines if (n_th <= n_places) {
} else if (place == (int)(__kmp_affinity_num_masks - 1)) { } else if (place == (int)(__kmp_affinity_num_masks - 1)) {
place = 0; place = 0;
} else { } else {
place++; place++;
} }
th->th.th_first_place = first_place; th->th.th_first_place = first_place;
th->th.th_last_place = last_place; th->th.th_last_place = last_place;
th->th.th_new_place = place; th->th.th_new_place = place;
#if OMP_50_ENABLED
if (__kmp_display_affinity && place != th->th.th_current_place && if (__kmp_display_affinity && place != th->th.th_current_place &&
team->t.t_display_affinity != 1) { team->t.t_display_affinity != 1) {
team->t.t_display_affinity = 1; team->t.t_display_affinity = 1;
} }
#endif
KA_TRACE(100, ("__kmp_partition_places: close: T#%d(%d:%d) place %d " KA_TRACE(100, ("__kmp_partition_places: close: T#%d(%d:%d) place %d "
"partition = [%d,%d]\n", "partition = [%d,%d]\n",
__kmp_gtid_from_thread(team->t.t_threads[f]), __kmp_gtid_from_thread(team->t.t_threads[f]),
team->t.t_id, f, place, first_place, last_place)); team->t.t_id, f, place, first_place, last_place));
} }
} else { } else {
int S, rem, gap, s_count; int S, rem, gap, s_count;
S = n_th / n_places; S = n_th / n_places;
s_count = 0; s_count = 0;
rem = n_th - (S * n_places); rem = n_th - (S * n_places);
gap = rem > 0 ? n_places / rem : n_places; gap = rem > 0 ? n_places / rem : n_places;
int place = masters_place; int place = masters_place;
int gap_ct = gap; int gap_ct = gap;
for (f = 0; f < n_th; f++) { for (f = 0; f < n_th; f++) {
kmp_info_t *th = team->t.t_threads[f]; kmp_info_t *th = team->t.t_threads[f];
KMP_DEBUG_ASSERT(th != NULL); KMP_DEBUG_ASSERT(th != NULL);
th->th.th_first_place = first_place; th->th.th_first_place = first_place;
th->th.th_last_place = last_place; th->th.th_last_place = last_place;
th->th.th_new_place = place; th->th.th_new_place = place;
#if OMP_50_ENABLED
if (__kmp_display_affinity && place != th->th.th_current_place && if (__kmp_display_affinity && place != th->th.th_current_place &&
team->t.t_display_affinity != 1) { team->t.t_display_affinity != 1) {
team->t.t_display_affinity = 1; team->t.t_display_affinity = 1;
} }
#endif
s_count++; s_count++;
if ((s_count == S) && rem && (gap_ct == gap)) { if ((s_count == S) && rem && (gap_ct == gap)) {
// do nothing, add an extra thread to place on next iteration // do nothing, add an extra thread to place on next iteration
} else if ((s_count == S + 1) && rem && (gap_ct == gap)) { } else if ((s_count == S + 1) && rem && (gap_ct == gap)) {
// we added an extra thread to this place; move to next place // we added an extra thread to this place; move to next place
if (place == last_place) { if (place == last_place) {
place = first_place; place = first_place;
▲ Show 20 Lines • Show All 52 Lines • ▼ Show 20 Lines if (n_th <= n_places) {
if (update_master_only == 1) if (update_master_only == 1)
thidx = 1; thidx = 1;
for (f = 0; f < thidx; f++) { for (f = 0; f < thidx; f++) {
kmp_info_t *th = team->t.t_threads[f]; kmp_info_t *th = team->t.t_threads[f];
KMP_DEBUG_ASSERT(th != NULL); KMP_DEBUG_ASSERT(th != NULL);
th->th.th_first_place = place; th->th.th_first_place = place;
th->th.th_new_place = place; th->th.th_new_place = place;
#if OMP_50_ENABLED
if (__kmp_display_affinity && place != th->th.th_current_place && if (__kmp_display_affinity && place != th->th.th_current_place &&
team->t.t_display_affinity != 1) { team->t.t_display_affinity != 1) {
team->t.t_display_affinity = 1; team->t.t_display_affinity = 1;
} }
#endif
s_count = 1; s_count = 1;
while (s_count < S) { while (s_count < S) {
if (place == last_place) { if (place == last_place) {
place = first_place; place = first_place;
} else if (place == (int)(__kmp_affinity_num_masks - 1)) { } else if (place == (int)(__kmp_affinity_num_masks - 1)) {
place = 0; place = 0;
} else { } else {
place++; place++;
▲ Show 20 Lines • Show All 75 Lines • ▼ Show 20 Lines if (n_th <= n_places) {
KMP_DEBUG_ASSERT(0 <= last); KMP_DEBUG_ASSERT(0 <= last);
KMP_DEBUG_ASSERT(n_places > last); KMP_DEBUG_ASSERT(n_places > last);
KMP_DEBUG_ASSERT(last_place >= first_place); KMP_DEBUG_ASSERT(last_place >= first_place);
th = team->t.t_threads[f]; th = team->t.t_threads[f];
KMP_DEBUG_ASSERT(th); KMP_DEBUG_ASSERT(th);
th->th.th_first_place = first; th->th.th_first_place = first;
th->th.th_new_place = place; th->th.th_new_place = place;
th->th.th_last_place = last; th->th.th_last_place = last;
#if OMP_50_ENABLED
if (__kmp_display_affinity && place != th->th.th_current_place && if (__kmp_display_affinity && place != th->th.th_current_place &&
team->t.t_display_affinity != 1) { team->t.t_display_affinity != 1) {
team->t.t_display_affinity = 1; team->t.t_display_affinity = 1;
} }
#endif
KA_TRACE(100, KA_TRACE(100,
("__kmp_partition_places: spread: T#%d(%d:%d) place %d " ("__kmp_partition_places: spread: T#%d(%d:%d) place %d "
"partition = [%d,%d], spacing = %.4f\n", "partition = [%d,%d], spacing = %.4f\n",
__kmp_gtid_from_thread(team->t.t_threads[f]), __kmp_gtid_from_thread(team->t.t_threads[f]),
team->t.t_id, f, th->th.th_new_place, team->t.t_id, f, th->th.th_new_place,
th->th.th_first_place, th->th.th_last_place, spacing)); th->th.th_first_place, th->th.th_last_place, spacing));
} }
} }
Show All 12 Lines if (n_th <= n_places) {
thidx = 1; thidx = 1;
for (f = 0; f < thidx; f++) { for (f = 0; f < thidx; f++) {
kmp_info_t *th = team->t.t_threads[f]; kmp_info_t *th = team->t.t_threads[f];
KMP_DEBUG_ASSERT(th != NULL); KMP_DEBUG_ASSERT(th != NULL);
th->th.th_first_place = place; th->th.th_first_place = place;
th->th.th_last_place = place; th->th.th_last_place = place;
th->th.th_new_place = place; th->th.th_new_place = place;
#if OMP_50_ENABLED
if (__kmp_display_affinity && place != th->th.th_current_place && if (__kmp_display_affinity && place != th->th.th_current_place &&
team->t.t_display_affinity != 1) { team->t.t_display_affinity != 1) {
team->t.t_display_affinity = 1; team->t.t_display_affinity = 1;
} }
#endif
s_count++; s_count++;
if ((s_count == S) && rem && (gap_ct == gap)) { if ((s_count == S) && rem && (gap_ct == gap)) {
// do nothing, add an extra thread to place on next iteration // do nothing, add an extra thread to place on next iteration
} else if ((s_count == S + 1) && rem && (gap_ct == gap)) { } else if ((s_count == S + 1) && rem && (gap_ct == gap)) {
// we added an extra thread to this place; move on to next place // we added an extra thread to this place; move on to next place
if (place == last_place) { if (place == last_place) {
place = first_place; place = first_place;
Show All 29 Linesstatic void __kmp_partition_places(kmp_team_t *team, int update_master_only) {
default: default:
break; break;
} }
KA_TRACE(20, ("__kmp_partition_places: exit T#%d\n", team->t.t_id)); KA_TRACE(20, ("__kmp_partition_places: exit T#%d\n", team->t.t_id));
} }
#endif /* OMP_40_ENABLED && KMP_AFFINITY_SUPPORTED */ #endif // KMP_AFFINITY_SUPPORTED
/* allocate a new team data structure to use. take one off of the free pool if /* allocate a new team data structure to use. take one off of the free pool if
available */ available */
kmp_team_t * kmp_team_t *
__kmp_allocate_team(kmp_root_t *root, int new_nproc, int max_nproc, __kmp_allocate_team(kmp_root_t *root, int new_nproc, int max_nproc,
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_data_t ompt_parallel_data, ompt_data_t ompt_parallel_data,
#endif #endif
#if OMP_40_ENABLED
kmp_proc_bind_t new_proc_bind, kmp_proc_bind_t new_proc_bind,
#endif
kmp_internal_control_t *new_icvs, kmp_internal_control_t *new_icvs,
int argc USE_NESTED_HOT_ARG(kmp_info_t *master)) { int argc USE_NESTED_HOT_ARG(kmp_info_t *master)) {
KMP_TIME_DEVELOPER_PARTITIONED_BLOCK(KMP_allocate_team); KMP_TIME_DEVELOPER_PARTITIONED_BLOCK(KMP_allocate_team);
int f; int f;
kmp_team_t *team; kmp_team_t *team;
int use_hot_team = !root->r.r_active; int use_hot_team = !root->r.r_active;
int level = 0; int level = 0;
▲ Show 20 Lines • Show All 64 Lines • ▼ Show 20 Lines if (team->t.t_nproc == new_nproc) { // Check changes in number of threads
__kmp_reinitialize_team(team, new_icvs, __kmp_reinitialize_team(team, new_icvs,
root->r.r_uber_thread->th.th_ident); root->r.r_uber_thread->th.th_ident);
KF_TRACE(10, ("__kmp_allocate_team2: T#%d, this_thread=%p team=%p\n", 0, KF_TRACE(10, ("__kmp_allocate_team2: T#%d, this_thread=%p team=%p\n", 0,
team->t.t_threads[0], team)); team->t.t_threads[0], team));
__kmp_push_current_task_to_thread(team->t.t_threads[0], team, 0); __kmp_push_current_task_to_thread(team->t.t_threads[0], team, 0);
#if OMP_40_ENABLED
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
if ((team->t.t_size_changed == 0) && if ((team->t.t_size_changed == 0) &&
(team->t.t_proc_bind == new_proc_bind)) { (team->t.t_proc_bind == new_proc_bind)) {
if (new_proc_bind == proc_bind_spread) { if (new_proc_bind == proc_bind_spread) {
__kmp_partition_places( __kmp_partition_places(
team, 1); // add flag to update only master for spread team, 1); // add flag to update only master for spread
} }
KA_TRACE(200, ("__kmp_allocate_team: reusing hot team #%d bindings: " KA_TRACE(200, ("__kmp_allocate_team: reusing hot team #%d bindings: "
"proc_bind = %d, partition = [%d,%d]\n", "proc_bind = %d, partition = [%d,%d]\n",
team->t.t_id, new_proc_bind, team->t.t_first_place, team->t.t_id, new_proc_bind, team->t.t_first_place,
team->t.t_last_place)); team->t.t_last_place));
} else { } else {
KMP_CHECK_UPDATE(team->t.t_proc_bind, new_proc_bind); KMP_CHECK_UPDATE(team->t.t_proc_bind, new_proc_bind);
__kmp_partition_places(team); __kmp_partition_places(team);
} }
#else #else
KMP_CHECK_UPDATE(team->t.t_proc_bind, new_proc_bind); KMP_CHECK_UPDATE(team->t.t_proc_bind, new_proc_bind);
#endif /* KMP_AFFINITY_SUPPORTED */ #endif /* KMP_AFFINITY_SUPPORTED */
#endif /* OMP_40_ENABLED */
} else if (team->t.t_nproc > new_nproc) { } else if (team->t.t_nproc > new_nproc) {
KA_TRACE(20, KA_TRACE(20,
("__kmp_allocate_team: decreasing hot team thread count to %d\n", ("__kmp_allocate_team: decreasing hot team thread count to %d\n",
new_nproc)); new_nproc));
team->t.t_size_changed = 1; team->t.t_size_changed = 1;
#if KMP_NESTED_HOT_TEAMS #if KMP_NESTED_HOT_TEAMS
if (__kmp_hot_teams_mode == 0) { if (__kmp_hot_teams_mode == 0) {
▲ Show 20 Lines • Show All 51 Lines • ▼ Show 20 Lines
#ifdef KMP_DEBUG #ifdef KMP_DEBUG
for (f = 0; f < team->t.t_nproc; f++) { for (f = 0; f < team->t.t_nproc; f++) {
KMP_DEBUG_ASSERT(team->t.t_threads[f] && KMP_DEBUG_ASSERT(team->t.t_threads[f] &&
team->t.t_threads[f]->th.th_team_nproc == team->t.t_threads[f]->th.th_team_nproc ==
team->t.t_nproc); team->t.t_nproc);
} }
#endif #endif
#if OMP_40_ENABLED
KMP_CHECK_UPDATE(team->t.t_proc_bind, new_proc_bind); KMP_CHECK_UPDATE(team->t.t_proc_bind, new_proc_bind);
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
__kmp_partition_places(team); __kmp_partition_places(team);
#endif #endif
#endif
} else { // team->t.t_nproc < new_nproc } else { // team->t.t_nproc < new_nproc
#if KMP_OS_LINUX && KMP_AFFINITY_SUPPORTED #if KMP_OS_LINUX && KMP_AFFINITY_SUPPORTED
kmp_affin_mask_t *old_mask; kmp_affin_mask_t *old_mask;
if (KMP_AFFINITY_CAPABLE()) { if (KMP_AFFINITY_CAPABLE()) {
KMP_CPU_ALLOC(old_mask); KMP_CPU_ALLOC(old_mask);
} }
#endif #endif
▲ Show 20 Lines • Show All 115 Lines • ▼ Show 20 Lines
#ifdef KMP_DEBUG #ifdef KMP_DEBUG
for (f = 0; f < team->t.t_nproc; ++f) { for (f = 0; f < team->t.t_nproc; ++f) {
KMP_DEBUG_ASSERT(team->t.t_threads[f] && KMP_DEBUG_ASSERT(team->t.t_threads[f] &&
team->t.t_threads[f]->th.th_team_nproc == team->t.t_threads[f]->th.th_team_nproc ==
team->t.t_nproc); team->t.t_nproc);
} }
#endif #endif
#if OMP_40_ENABLED
KMP_CHECK_UPDATE(team->t.t_proc_bind, new_proc_bind); KMP_CHECK_UPDATE(team->t.t_proc_bind, new_proc_bind);
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
__kmp_partition_places(team); __kmp_partition_places(team);
#endif #endif
#endif
} // Check changes in number of threads } // Check changes in number of threads
#if OMP_40_ENABLED
kmp_info_t *master = team->t.t_threads[0]; kmp_info_t *master = team->t.t_threads[0];
if (master->th.th_teams_microtask) { if (master->th.th_teams_microtask) {
for (f = 1; f < new_nproc; ++f) { for (f = 1; f < new_nproc; ++f) {
// propagate teams construct specific info to workers // propagate teams construct specific info to workers
kmp_info_t *thr = team->t.t_threads[f]; kmp_info_t *thr = team->t.t_threads[f];
thr->th.th_teams_microtask = master->th.th_teams_microtask; thr->th.th_teams_microtask = master->th.th_teams_microtask;
thr->th.th_teams_level = master->th.th_teams_level; thr->th.th_teams_level = master->th.th_teams_level;
thr->th.th_teams_size = master->th.th_teams_size; thr->th.th_teams_size = master->th.th_teams_size;
} }
} }
#endif /* OMP_40_ENABLED */
#if KMP_NESTED_HOT_TEAMS #if KMP_NESTED_HOT_TEAMS
if (level) { if (level) {
// Sync barrier state for nested hot teams, not needed for outermost hot // Sync barrier state for nested hot teams, not needed for outermost hot
// team. // team.
for (f = 1; f < new_nproc; ++f) { for (f = 1; f < new_nproc; ++f) {
kmp_info_t *thr = team->t.t_threads[f]; kmp_info_t *thr = team->t.t_threads[f];
int b; int b;
kmp_balign_t *balign = thr->th.th_bar; kmp_balign_t *balign = thr->th.th_bar;
▲ Show 20 Lines • Show All 64 Lines • ▼ Show 20 Lines if (team->t.t_max_nproc >= max_nproc) {
team->t.t_bar[b].b_arrived = KMP_INIT_BARRIER_STATE; team->t.t_bar[b].b_arrived = KMP_INIT_BARRIER_STATE;
#if USE_DEBUGGER #if USE_DEBUGGER
team->t.t_bar[b].b_master_arrived = 0; team->t.t_bar[b].b_master_arrived = 0;
team->t.t_bar[b].b_team_arrived = 0; team->t.t_bar[b].b_team_arrived = 0;
#endif #endif
} }
} }
#if OMP_40_ENABLED
team->t.t_proc_bind = new_proc_bind; team->t.t_proc_bind = new_proc_bind;
#endif
KA_TRACE(20, ("__kmp_allocate_team: using team from pool %d.\n", KA_TRACE(20, ("__kmp_allocate_team: using team from pool %d.\n",
team->t.t_id)); team->t.t_id));
#if OMPT_SUPPORT #if OMPT_SUPPORT
__ompt_team_assign_id(team, ompt_parallel_data); __ompt_team_assign_id(team, ompt_parallel_data);
#endif #endif
▲ Show 20 Lines • Show All 48 Lines • ▼ Show 20 Lines for (b = 0; b < bs_last_barrier; ++b) {
team->t.t_bar[b].b_arrived = KMP_INIT_BARRIER_STATE; team->t.t_bar[b].b_arrived = KMP_INIT_BARRIER_STATE;
#if USE_DEBUGGER #if USE_DEBUGGER
team->t.t_bar[b].b_master_arrived = 0; team->t.t_bar[b].b_master_arrived = 0;
team->t.t_bar[b].b_team_arrived = 0; team->t.t_bar[b].b_team_arrived = 0;
#endif #endif
} }
} }
#if OMP_40_ENABLED
team->t.t_proc_bind = new_proc_bind; team->t.t_proc_bind = new_proc_bind;
#endif
#if OMPT_SUPPORT #if OMPT_SUPPORT
__ompt_team_assign_id(team, ompt_parallel_data); __ompt_team_assign_id(team, ompt_parallel_data);
team->t.ompt_serialized_team_info = NULL; team->t.ompt_serialized_team_info = NULL;
#endif #endif
KMP_MB(); KMP_MB();
▲ Show 20 Lines • Show All 916 Lines • ▼ Show 20 Lines if (gtid == KMP_GTID_SHUTDOWN) {
KA_TRACE(10, KA_TRACE(10,
("__kmp_internal_end_thread: worker thread done, exiting T#%d\n", ("__kmp_internal_end_thread: worker thread done, exiting T#%d\n",
gtid)); gtid));
return; return;
} }
} }
#if KMP_DYNAMIC_LIB #if KMP_DYNAMIC_LIB
#if OMP_50_ENABLED
if (__kmp_pause_status != kmp_hard_paused) if (__kmp_pause_status != kmp_hard_paused)
#endif
// AC: lets not shutdown the dynamic library at the exit of uber thread, // AC: lets not shutdown the dynamic library at the exit of uber thread,
// because we will better shutdown later in the library destructor. // because we will better shutdown later in the library destructor.
{ {
KA_TRACE(10, ("__kmp_internal_end_thread: exiting T#%d\n", gtid_req)); KA_TRACE(10, ("__kmp_internal_end_thread: exiting T#%d\n", gtid_req));
return; return;
} }
#endif #endif
/* synchronize the termination process */ /* synchronize the termination process */
▲ Show 20 Lines • Show All 464 Lines • ▼ Show 20 Lines#endif
__kmp_init_counter++; __kmp_init_counter++;
__kmp_init_serial = TRUE; __kmp_init_serial = TRUE;
if (__kmp_settings) { if (__kmp_settings) {
__kmp_env_print(); __kmp_env_print();
} }
#if OMP_40_ENABLED
if (__kmp_display_env || __kmp_display_env_verbose) { if (__kmp_display_env || __kmp_display_env_verbose) {
__kmp_env_print_2(); __kmp_env_print_2();
} }
#endif // OMP_40_ENABLED
#if OMPT_SUPPORT #if OMPT_SUPPORT
ompt_post_init(); ompt_post_init();
#endif #endif
KMP_MB(); KMP_MB();
KA_TRACE(10, ("__kmp_do_serial_initialize: exit\n")); KA_TRACE(10, ("__kmp_do_serial_initialize: exit\n"));
▲ Show 20 Lines • Show All 151 Lines • ▼ Show 20 Linesvoid __kmp_parallel_initialize(void) {
} }
/* jc: The lock __kmp_initz_lock is already held, so calling /* jc: The lock __kmp_initz_lock is already held, so calling
__kmp_serial_initialize would cause a deadlock. So we call __kmp_serial_initialize would cause a deadlock. So we call
__kmp_do_serial_initialize directly. */ __kmp_do_serial_initialize directly. */
if (!__kmp_init_middle) { if (!__kmp_init_middle) {
__kmp_do_middle_initialize(); __kmp_do_middle_initialize();
} }
#if OMP_50_ENABLED
__kmp_resume_if_hard_paused(); __kmp_resume_if_hard_paused();
#endif
/* begin initialization */ /* begin initialization */
KA_TRACE(10, ("__kmp_parallel_initialize: enter\n")); KA_TRACE(10, ("__kmp_parallel_initialize: enter\n"));
KMP_ASSERT(KMP_UBER_GTID(gtid)); KMP_ASSERT(KMP_UBER_GTID(gtid));
#if KMP_ARCH_X86 || KMP_ARCH_X86_64 #if KMP_ARCH_X86 || KMP_ARCH_X86_64
// Save the FP control regs. // Save the FP control regs.
// Worker threads will set theirs to these values at thread startup. // Worker threads will set theirs to these values at thread startup.
▲ Show 20 Lines • Show All 49 Lines • ▼ Show 20 Lines
#endif /* KMP_CACHE_MANAGE */ #endif /* KMP_CACHE_MANAGE */
dispatch = (kmp_disp_t *)TCR_PTR(this_thr->th.th_dispatch); dispatch = (kmp_disp_t *)TCR_PTR(this_thr->th.th_dispatch);
KMP_DEBUG_ASSERT(dispatch); KMP_DEBUG_ASSERT(dispatch);
KMP_DEBUG_ASSERT(team->t.t_dispatch); KMP_DEBUG_ASSERT(team->t.t_dispatch);
// KMP_DEBUG_ASSERT( this_thr->th.th_dispatch == &team->t.t_dispatch[ // KMP_DEBUG_ASSERT( this_thr->th.th_dispatch == &team->t.t_dispatch[
// this_thr->th.th_info.ds.ds_tid ] ); // this_thr->th.th_info.ds.ds_tid ] );
dispatch->th_disp_index = 0; /* reset the dispatch buffer counter */ dispatch->th_disp_index = 0; /* reset the dispatch buffer counter */
#if OMP_45_ENABLED dispatch->th_doacross_buf_idx = 0; // reset doacross dispatch buffer counter
dispatch->th_doacross_buf_idx =
0; /* reset the doacross dispatch buffer counter */
#endif
if (__kmp_env_consistency_check) if (__kmp_env_consistency_check)
__kmp_push_parallel(gtid, team->t.t_ident); __kmp_push_parallel(gtid, team->t.t_ident);
KMP_MB(); /* Flush all pending memory write invalidates. */ KMP_MB(); /* Flush all pending memory write invalidates. */
} }
void __kmp_run_after_invoked_task(int gtid, int tid, kmp_info_t *this_thr, void __kmp_run_after_invoked_task(int gtid, int tid, kmp_info_t *this_thr,
kmp_team_t *team) { kmp_team_t *team) {
▲ Show 20 Lines • Show All 82 Lines • ▼ Show 20 Lines __kmp_itt_stack_callee_leave(
team->t.t_stack_id); // inform ittnotify about leaving user's code team->t.t_stack_id); // inform ittnotify about leaving user's code
} }
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
__kmp_run_after_invoked_task(gtid, tid, this_thr, team); __kmp_run_after_invoked_task(gtid, tid, this_thr, team);
return rc; return rc;
} }
#if OMP_40_ENABLED
void __kmp_teams_master(int gtid) { void __kmp_teams_master(int gtid) {
// This routine is called by all master threads in teams construct // This routine is called by all master threads in teams construct
kmp_info_t *thr = __kmp_threads[gtid]; kmp_info_t *thr = __kmp_threads[gtid];
kmp_team_t *team = thr->th.th_team; kmp_team_t *team = thr->th.th_team;
ident_t *loc = team->t.t_ident; ident_t *loc = team->t.t_ident;
thr->th.th_set_nproc = thr->th.th_teams_size.nth; thr->th.th_set_nproc = thr->th.th_teams_size.nth;
KMP_DEBUG_ASSERT(thr->th.th_teams_microtask); KMP_DEBUG_ASSERT(thr->th.th_teams_microtask);
KMP_DEBUG_ASSERT(thr->th.th_set_nproc); KMP_DEBUG_ASSERT(thr->th.th_set_nproc);
▲ Show 20 Lines • Show All 45 Lines • ▼ Show 20 Lines if (!__kmp_threads[gtid]->th.th_team->t.t_serialized)
KMP_DEBUG_ASSERT((void *)__kmp_threads[gtid]->th.th_team->t.t_pkfn == KMP_DEBUG_ASSERT((void *)__kmp_threads[gtid]->th.th_team->t.t_pkfn ==
(void *)__kmp_teams_master); (void *)__kmp_teams_master);
#endif #endif
__kmp_run_before_invoked_task(gtid, 0, this_thr, team); __kmp_run_before_invoked_task(gtid, 0, this_thr, team);
__kmp_teams_master(gtid); __kmp_teams_master(gtid);
__kmp_run_after_invoked_task(gtid, 0, this_thr, team); __kmp_run_after_invoked_task(gtid, 0, this_thr, team);
return 1; return 1;
} }
#endif /* OMP_40_ENABLED */
/* this sets the requested number of threads for the next parallel region /* this sets the requested number of threads for the next parallel region
encountered by this team. since this should be enclosed in the forkjoin encountered by this team. since this should be enclosed in the forkjoin
critical section it should avoid race conditions with assymmetrical nested critical section it should avoid race conditions with assymmetrical nested
parallelism */ parallelism */
void __kmp_push_num_threads(ident_t *id, int gtid, int num_threads) { void __kmp_push_num_threads(ident_t *id, int gtid, int num_threads) {
kmp_info_t *thr = __kmp_threads[gtid]; kmp_info_t *thr = __kmp_threads[gtid];
if (num_threads > 0) if (num_threads > 0)
thr->th.th_set_nproc = num_threads; thr->th.th_set_nproc = num_threads;
} }
#if OMP_40_ENABLED
/* this sets the requested number of teams for the teams region and/or /* this sets the requested number of teams for the teams region and/or
the number of threads for the next parallel region encountered */ the number of threads for the next parallel region encountered */
void __kmp_push_num_teams(ident_t *id, int gtid, int num_teams, void __kmp_push_num_teams(ident_t *id, int gtid, int num_teams,
int num_threads) { int num_threads) {
kmp_info_t *thr = __kmp_threads[gtid]; kmp_info_t *thr = __kmp_threads[gtid];
KMP_DEBUG_ASSERT(num_teams >= 0); KMP_DEBUG_ASSERT(num_teams >= 0);
KMP_DEBUG_ASSERT(num_threads >= 0); KMP_DEBUG_ASSERT(num_threads >= 0);
▲ Show 20 Lines • Show All 41 Lines • ▼ Show 20 Lines
} }
// Set the proc_bind var to use in the following parallel region. // Set the proc_bind var to use in the following parallel region.
void __kmp_push_proc_bind(ident_t *id, int gtid, kmp_proc_bind_t proc_bind) { void __kmp_push_proc_bind(ident_t *id, int gtid, kmp_proc_bind_t proc_bind) {
kmp_info_t *thr = __kmp_threads[gtid]; kmp_info_t *thr = __kmp_threads[gtid];
thr->th.th_set_proc_bind = proc_bind; thr->th.th_set_proc_bind = proc_bind;
} }
#endif /* OMP_40_ENABLED */
/* Launch the worker threads into the microtask. */ /* Launch the worker threads into the microtask. */
void __kmp_internal_fork(ident_t *id, int gtid, kmp_team_t *team) { void __kmp_internal_fork(ident_t *id, int gtid, kmp_team_t *team) {
kmp_info_t *this_thr = __kmp_threads[gtid]; kmp_info_t *this_thr = __kmp_threads[gtid];
#ifdef KMP_DEBUG #ifdef KMP_DEBUG
int f; int f;
#endif /* KMP_DEBUG */ #endif /* KMP_DEBUG */
KMP_DEBUG_ASSERT(team); KMP_DEBUG_ASSERT(team);
KMP_DEBUG_ASSERT(this_thr->th.th_team == team); KMP_DEBUG_ASSERT(this_thr->th.th_team == team);
KMP_ASSERT(KMP_MASTER_GTID(gtid)); KMP_ASSERT(KMP_MASTER_GTID(gtid));
KMP_MB(); /* Flush all pending memory write invalidates. */ KMP_MB(); /* Flush all pending memory write invalidates. */
team->t.t_construct = 0; /* no single directives seen yet */ team->t.t_construct = 0; /* no single directives seen yet */
team->t.t_ordered.dt.t_value = team->t.t_ordered.dt.t_value =
0; /* thread 0 enters the ordered section first */ 0; /* thread 0 enters the ordered section first */
/* Reset the identifiers on the dispatch buffer */ /* Reset the identifiers on the dispatch buffer */
KMP_DEBUG_ASSERT(team->t.t_disp_buffer); KMP_DEBUG_ASSERT(team->t.t_disp_buffer);
if (team->t.t_max_nproc > 1) { if (team->t.t_max_nproc > 1) {
int i; int i;
for (i = 0; i < __kmp_dispatch_num_buffers; ++i) { for (i = 0; i < __kmp_dispatch_num_buffers; ++i) {
team->t.t_disp_buffer[i].buffer_index = i; team->t.t_disp_buffer[i].buffer_index = i;
#if OMP_45_ENABLED
team->t.t_disp_buffer[i].doacross_buf_idx = i; team->t.t_disp_buffer[i].doacross_buf_idx = i;
#endif
} }
} else { } else {
team->t.t_disp_buffer[0].buffer_index = 0; team->t.t_disp_buffer[0].buffer_index = 0;
#if OMP_45_ENABLED
team->t.t_disp_buffer[0].doacross_buf_idx = 0; team->t.t_disp_buffer[0].doacross_buf_idx = 0;
#endif
} }
KMP_MB(); /* Flush all pending memory write invalidates. */ KMP_MB(); /* Flush all pending memory write invalidates. */
KMP_ASSERT(this_thr->th.th_team == team); KMP_ASSERT(this_thr->th.th_team == team);
#ifdef KMP_DEBUG #ifdef KMP_DEBUG
for (f = 0; f < team->t.t_nproc; f++) { for (f = 0; f < team->t.t_nproc; f++) {
KMP_DEBUG_ASSERT(team->t.t_threads[f] && KMP_DEBUG_ASSERT(team->t.t_threads[f] &&
▲ Show 20 Lines • Show All 237 Lines • ▼ Show 20 Lines#endif
KMP_INTERNAL_FREE(__kmp_nested_nth.nth); KMP_INTERNAL_FREE(__kmp_nested_nth.nth);
__kmp_nested_nth.nth = NULL; __kmp_nested_nth.nth = NULL;
__kmp_nested_nth.size = 0; __kmp_nested_nth.size = 0;
__kmp_nested_nth.used = 0; __kmp_nested_nth.used = 0;
KMP_INTERNAL_FREE(__kmp_nested_proc_bind.bind_types); KMP_INTERNAL_FREE(__kmp_nested_proc_bind.bind_types);
__kmp_nested_proc_bind.bind_types = NULL; __kmp_nested_proc_bind.bind_types = NULL;
__kmp_nested_proc_bind.size = 0; __kmp_nested_proc_bind.size = 0;
__kmp_nested_proc_bind.used = 0; __kmp_nested_proc_bind.used = 0;
#if OMP_50_ENABLED
if (__kmp_affinity_format) { if (__kmp_affinity_format) {
KMP_INTERNAL_FREE(__kmp_affinity_format); KMP_INTERNAL_FREE(__kmp_affinity_format);
__kmp_affinity_format = NULL; __kmp_affinity_format = NULL;
} }
#endif
__kmp_i18n_catclose(); __kmp_i18n_catclose();
#if KMP_USE_HIER_SCHED #if KMP_USE_HIER_SCHED
__kmp_hier_scheds.deallocate(); __kmp_hier_scheds.deallocate();
#endif #endif
#if KMP_STATS_ENABLED #if KMP_STATS_ENABLED
▲ Show 20 Lines • Show All 199 Lines • ▼ Show 20 Lines if (serialized > 1) {
return team->t.t_parent->t.t_nproc; return team->t.t_parent->t.t_nproc;
} }
} }
return 1; return 1;
} }
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
#if OMP_50_ENABLED
/* /*
* Affinity Format Parser * Affinity Format Parser
* *
* Field is in form of: %[[[0].]size]type * Field is in form of: %[[[0].]size]type
* % and type are required (%% means print a literal '%') * % and type are required (%% means print a literal '%')
* type is either single char or long name surrounded by {}, * type is either single char or long name surrounded by {},
* e.g., N or {num_threads} * e.g., N or {num_threads}
* 0 => leading zeros * 0 => leading zeros
▲ Show 20 Lines • Show All 256 Lines • ▼ Show 20 Lines
// Displays the affinity string to stdout // Displays the affinity string to stdout
void __kmp_aux_display_affinity(int gtid, const char *format) { void __kmp_aux_display_affinity(int gtid, const char *format) {
kmp_str_buf_t buf; kmp_str_buf_t buf;
__kmp_str_buf_init(&buf); __kmp_str_buf_init(&buf);
__kmp_aux_capture_affinity(gtid, format, &buf); __kmp_aux_capture_affinity(gtid, format, &buf);
__kmp_fprintf(kmp_out, "%s" KMP_END_OF_LINE, buf.str); __kmp_fprintf(kmp_out, "%s" KMP_END_OF_LINE, buf.str);
__kmp_str_buf_free(&buf); __kmp_str_buf_free(&buf);
} }
#endif // OMP_50_ENABLED
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
void __kmp_aux_set_blocktime(int arg, kmp_info_t *thread, int tid) { void __kmp_aux_set_blocktime(int arg, kmp_info_t *thread, int tid) {
int blocktime = arg; /* argument is in milliseconds */ int blocktime = arg; /* argument is in milliseconds */
#if KMP_USE_MONITOR #if KMP_USE_MONITOR
int bt_intervals; int bt_intervals;
#endif #endif
Show All 37 Lines
} }
void __kmp_aux_set_defaults(char const *str, int len) { void __kmp_aux_set_defaults(char const *str, int len) {
if (!__kmp_init_serial) { if (!__kmp_init_serial) {
__kmp_serial_initialize(); __kmp_serial_initialize();
} }
__kmp_env_initialize(str); __kmp_env_initialize(str);
if (__kmp_settings if (__kmp_settings || __kmp_display_env || __kmp_display_env_verbose) {
#if OMP_40_ENABLED
|| __kmp_display_env || __kmp_display_env_verbose
#endif // OMP_40_ENABLED
) {
__kmp_env_print(); __kmp_env_print();
} }
} // __kmp_aux_set_defaults } // __kmp_aux_set_defaults
/* ------------------------------------------------------------------------ */ /* ------------------------------------------------------------------------ */
/* internal fast reduction routines */ /* internal fast reduction routines */
PACKED_REDUCTION_METHOD_T PACKED_REDUCTION_METHOD_T
▲ Show 20 Lines • Show All 147 Lines • ▼ Show 20 Lines#undef FAST_REDUCTION_ATOMIC_METHOD_GENERATED
return (retval); return (retval);
} }
// this function is for testing set/get/determine reduce method // this function is for testing set/get/determine reduce method
kmp_int32 __kmp_get_reduce_method(void) { kmp_int32 __kmp_get_reduce_method(void) {
return ((__kmp_entry_thread()->th.th_local.packed_reduction_method) >> 8); return ((__kmp_entry_thread()->th.th_local.packed_reduction_method) >> 8);
} }
#if OMP_50_ENABLED
// Soft pause sets up threads to ignore blocktime and just go to sleep. // Soft pause sets up threads to ignore blocktime and just go to sleep.
// Spin-wait code checks __kmp_pause_status and reacts accordingly. // Spin-wait code checks __kmp_pause_status and reacts accordingly.
void __kmp_soft_pause() { __kmp_pause_status = kmp_soft_paused; } void __kmp_soft_pause() { __kmp_pause_status = kmp_soft_paused; }
// Hard pause shuts down the runtime completely. Resume happens naturally when // Hard pause shuts down the runtime completely. Resume happens naturally when
// OpenMP is used subsequently. // OpenMP is used subsequently.
void __kmp_hard_pause() { void __kmp_hard_pause() {
__kmp_pause_status = kmp_hard_paused; __kmp_pause_status = kmp_hard_paused;
▲ Show 20 Lines • Show All 58 Lines • ▼ Show 20 Lines if (__kmp_pause_status != kmp_not_paused) {
__kmp_hard_pause(); __kmp_hard_pause();
return 0; return 0;
} }
} else { } else {
// error message about invalid level // error message about invalid level
return 1; return 1;
} }
} }
#endif // OMP_50_ENABLED

runtime/src/kmp_sched.cpp

Show First 20 Lines • Show All 172 Lines • ▼ Show 20 Lines if (ompt_enabled.ompt_callback_work) {
ompt_work_type, ompt_scope_begin, &(team_info->parallel_data), ompt_work_type, ompt_scope_begin, &(team_info->parallel_data),
&(task_info->task_data), 0, codeptr); &(task_info->task_data), 0, codeptr);
} }
#endif #endif
KMP_STATS_LOOP_END(OMP_loop_static_iterations); KMP_STATS_LOOP_END(OMP_loop_static_iterations);
return; return;
} }
#if OMP_40_ENABLED
// Although there are schedule enumerations above kmp_ord_upper which are not // Although there are schedule enumerations above kmp_ord_upper which are not
// schedules for "distribute", the only ones which are useful are dynamic, so // schedules for "distribute", the only ones which are useful are dynamic, so
// cannot be seen here, since this codepath is only executed for static // cannot be seen here, since this codepath is only executed for static
// schedules. // schedules.
if (schedtype > kmp_ord_upper) { if (schedtype > kmp_ord_upper) {
// we are in DISTRIBUTE construct // we are in DISTRIBUTE construct
schedtype += kmp_sch_static - schedtype += kmp_sch_static -
kmp_distribute_static; // AC: convert to usual schedule type kmp_distribute_static; // AC: convert to usual schedule type
tid = th->th.th_team->t.t_master_tid; tid = th->th.th_team->t.t_master_tid;
team = th->th.th_team->t.t_parent; team = th->th.th_team->t.t_parent;
} else } else {
#endif
{
tid = __kmp_tid_from_gtid(global_tid); tid = __kmp_tid_from_gtid(global_tid);
team = th->th.th_team; team = th->th.th_team;
} }
/* determine if "for" loop is an active worksharing construct */ /* determine if "for" loop is an active worksharing construct */
if (team->t.t_serialized) { if (team->t.t_serialized) {
/* serialized parallel, each thread executes whole iteration space */ /* serialized parallel, each thread executes whole iteration space */
if (plastiter != NULL) if (plastiter != NULL)
▲ Show 20 Lines • Show All 144 Lines • ▼ Show 20 Lines case kmp_sch_static_chunked: {
span = chunk * incr; span = chunk * incr;
*pstride = span * nth; *pstride = span * nth;
*plower = *plower + (span * tid); *plower = *plower + (span * tid);
*pupper = *plower + span - incr; *pupper = *plower + span - incr;
if (plastiter != NULL) if (plastiter != NULL)
*plastiter = (tid == ((trip_count - 1) / (UT)chunk) % nth); *plastiter = (tid == ((trip_count - 1) / (UT)chunk) % nth);
break; break;
} }
#if OMP_45_ENABLED
case kmp_sch_static_balanced_chunked: { case kmp_sch_static_balanced_chunked: {
T old_upper = *pupper; T old_upper = *pupper;
// round up to make sure the chunk is enough to cover all iterations // round up to make sure the chunk is enough to cover all iterations
UT span = (trip_count + nth - 1) / nth; UT span = (trip_count + nth - 1) / nth;
// perform chunk adjustment // perform chunk adjustment
chunk = (span + chunk - 1) & ~(chunk - 1); chunk = (span + chunk - 1) & ~(chunk - 1);
span = chunk * incr; span = chunk * incr;
*plower = *plower + (span * tid); *plower = *plower + (span * tid);
*pupper = *plower + span - incr; *pupper = *plower + span - incr;
if (incr > 0) { if (incr > 0) {
if (*pupper > old_upper) if (*pupper > old_upper)
*pupper = old_upper; *pupper = old_upper;
} else if (*pupper < old_upper) } else if (*pupper < old_upper)
*pupper = old_upper; *pupper = old_upper;
if (plastiter != NULL) if (plastiter != NULL)
*plastiter = (tid == ((trip_count - 1) / (UT)chunk)); *plastiter = (tid == ((trip_count - 1) / (UT)chunk));
break; break;
} }
#endif
default: default:
KMP_ASSERT2(0, "__kmpc_for_static_init: unknown scheduling type"); KMP_ASSERT2(0, "__kmpc_for_static_init: unknown scheduling type");
break; break;
} }
#if USE_ITT_BUILD #if USE_ITT_BUILD
// Report loop metadata // Report loop metadata
if (KMP_MASTER_TID(tid) && __itt_metadata_add_ptr && if (KMP_MASTER_TID(tid) && __itt_metadata_add_ptr &&
__kmp_forkjoin_frames_mode == 3 && __kmp_forkjoin_frames_mode == 3 && th->th.th_teams_microtask == NULL &&
#if OMP_40_ENABLED
th->th.th_teams_microtask == NULL &&
#endif
team->t.t_active_level == 1) { team->t.t_active_level == 1) {
kmp_uint64 cur_chunk = chunk; kmp_uint64 cur_chunk = chunk;
// Calculate chunk in case it was not specified; it is specified for // Calculate chunk in case it was not specified; it is specified for
// kmp_sch_static_chunked // kmp_sch_static_chunked
if (schedtype == kmp_sch_static) { if (schedtype == kmp_sch_static) {
cur_chunk = trip_count / nth + ((trip_count % nth) ? 1 : 0); cur_chunk = trip_count / nth + ((trip_count % nth) ? 1 : 0);
} }
// 0 - "static" schedule // 0 - "static" schedule
▲ Show 20 Lines • Show All 81 Lines • ▼ Show 20 Lines if (incr > 0 ? (*pupper < *plower) : (*plower < *pupper)) {
// for(i=10;i>0;i-=incr) // where incr<0 // for(i=10;i>0;i-=incr) // where incr<0
__kmp_error_construct(kmp_i18n_msg_CnsLoopIncrIllegal, ct_pdo, loc); __kmp_error_construct(kmp_i18n_msg_CnsLoopIncrIllegal, ct_pdo, loc);
} }
} }
tid = __kmp_tid_from_gtid(gtid); tid = __kmp_tid_from_gtid(gtid);
th = __kmp_threads[gtid]; th = __kmp_threads[gtid];
nth = th->th.th_team_nproc; nth = th->th.th_team_nproc;
team = th->th.th_team; team = th->th.th_team;
#if OMP_40_ENABLED
KMP_DEBUG_ASSERT(th->th.th_teams_microtask); // we are in the teams construct KMP_DEBUG_ASSERT(th->th.th_teams_microtask); // we are in the teams construct
nteams = th->th.th_teams_size.nteams; nteams = th->th.th_teams_size.nteams;
#endif
team_id = team->t.t_master_tid; team_id = team->t.t_master_tid;
KMP_DEBUG_ASSERT(nteams == (kmp_uint32)team->t.t_parent->t.t_nproc); KMP_DEBUG_ASSERT(nteams == (kmp_uint32)team->t.t_parent->t.t_nproc);
// compute global trip count // compute global trip count
if (incr == 1) { if (incr == 1) {
trip_count = *pupper - *plower + 1; trip_count = *pupper - *plower + 1;
} else if (incr == -1) { } else if (incr == -1) {
trip_count = *plower - *pupper + 1; trip_count = *plower - *pupper + 1;
▲ Show 20 Lines • Show All 223 Lines • ▼ Show 20 Lines if (incr > 0 ? (upper < lower) : (lower < upper)) {
// Compiler does not check the following illegal loops: // Compiler does not check the following illegal loops:
// for(i=0;i<10;i+=incr) // where incr<0 // for(i=0;i<10;i+=incr) // where incr<0
// for(i=10;i>0;i-=incr) // where incr<0 // for(i=10;i>0;i-=incr) // where incr<0
__kmp_error_construct(kmp_i18n_msg_CnsLoopIncrIllegal, ct_pdo, loc); __kmp_error_construct(kmp_i18n_msg_CnsLoopIncrIllegal, ct_pdo, loc);
} }
} }
th = __kmp_threads[gtid]; th = __kmp_threads[gtid];
team = th->th.th_team; team = th->th.th_team;
#if OMP_40_ENABLED
KMP_DEBUG_ASSERT(th->th.th_teams_microtask); // we are in the teams construct KMP_DEBUG_ASSERT(th->th.th_teams_microtask); // we are in the teams construct
nteams = th->th.th_teams_size.nteams; nteams = th->th.th_teams_size.nteams;
#endif
team_id = team->t.t_master_tid; team_id = team->t.t_master_tid;
KMP_DEBUG_ASSERT(nteams == (kmp_uint32)team->t.t_parent->t.t_nproc); KMP_DEBUG_ASSERT(nteams == (kmp_uint32)team->t.t_parent->t.t_nproc);
// compute trip count // compute trip count
if (incr == 1) { if (incr == 1) {
trip_count = upper - lower + 1; trip_count = upper - lower + 1;
} else if (incr == -1) { } else if (incr == -1) {
trip_count = lower - upper + 1; trip_count = lower - upper + 1;
▲ Show 20 Lines • Show All 275 Lines • Show Last 20 Lines

runtime/src/kmp_settings.h

Show All 10 Lines
//===----------------------------------------------------------------------===// //===----------------------------------------------------------------------===//
#ifndef KMP_SETTINGS_H #ifndef KMP_SETTINGS_H
#define KMP_SETTINGS_H #define KMP_SETTINGS_H
void __kmp_reset_global_vars(void); void __kmp_reset_global_vars(void);
void __kmp_env_initialize(char const *); void __kmp_env_initialize(char const *);
void __kmp_env_print(); void __kmp_env_print();
#if OMP_40_ENABLED
void __kmp_env_print_2(); void __kmp_env_print_2();
#endif // OMP_40_ENABLED
int __kmp_initial_threads_capacity(int req_nproc); int __kmp_initial_threads_capacity(int req_nproc);
void __kmp_init_dflt_team_nth(); void __kmp_init_dflt_team_nth();
int __kmp_convert_to_milliseconds(char const *); int __kmp_convert_to_milliseconds(char const *);
int __kmp_default_tp_capacity(int, int, int); int __kmp_default_tp_capacity(int, int, int);
#if KMP_MIC #if KMP_MIC
#define KMP_STR_BUF_PRINT_NAME \ #define KMP_STR_BUF_PRINT_NAME \
Show All 39 Lines

runtime/src/kmp_settings.cpp

Show First 20 Lines • Show All 1,230 Lines • ▼ Show 20 Linesstatic void __kmp_stg_parse_max_active_levels(char const *name,
} }
} // __kmp_stg_parse_max_active_levels } // __kmp_stg_parse_max_active_levels
static void __kmp_stg_print_max_active_levels(kmp_str_buf_t *buffer, static void __kmp_stg_print_max_active_levels(kmp_str_buf_t *buffer,
char const *name, void *data) { char const *name, void *data) {
__kmp_stg_print_int(buffer, name, __kmp_dflt_max_active_levels); __kmp_stg_print_int(buffer, name, __kmp_dflt_max_active_levels);
} // __kmp_stg_print_max_active_levels } // __kmp_stg_print_max_active_levels
#if OMP_40_ENABLED
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
// OpenMP 4.0: OMP_DEFAULT_DEVICE // OpenMP 4.0: OMP_DEFAULT_DEVICE
static void __kmp_stg_parse_default_device(char const *name, char const *value, static void __kmp_stg_parse_default_device(char const *name, char const *value,
void *data) { void *data) {
__kmp_stg_parse_int(name, value, 0, KMP_MAX_DEFAULT_DEVICE_LIMIT, __kmp_stg_parse_int(name, value, 0, KMP_MAX_DEFAULT_DEVICE_LIMIT,
&__kmp_default_device); &__kmp_default_device);
} // __kmp_stg_parse_default_device } // __kmp_stg_parse_default_device
static void __kmp_stg_print_default_device(kmp_str_buf_t *buffer, static void __kmp_stg_print_default_device(kmp_str_buf_t *buffer,
char const *name, void *data) { char const *name, void *data) {
__kmp_stg_print_int(buffer, name, __kmp_default_device); __kmp_stg_print_int(buffer, name, __kmp_default_device);
} // __kmp_stg_print_default_device } // __kmp_stg_print_default_device
#endif
#if OMP_50_ENABLED
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
// OpenMP 5.0: OMP_TARGET_OFFLOAD // OpenMP 5.0: OMP_TARGET_OFFLOAD
static void __kmp_stg_parse_target_offload(char const *name, char const *value, static void __kmp_stg_parse_target_offload(char const *name, char const *value,
void *data) { void *data) {
const char *next = value; const char *next = value;
const char *scan = next; const char *scan = next;
__kmp_target_offload = tgt_default; __kmp_target_offload = tgt_default;
Show All 25 Linesstatic void __kmp_stg_print_target_offload(kmp_str_buf_t *buffer,
KMP_DEBUG_ASSERT(value); KMP_DEBUG_ASSERT(value);
if (__kmp_env_format) { if (__kmp_env_format) {
KMP_STR_BUF_PRINT_NAME; KMP_STR_BUF_PRINT_NAME;
} else { } else {
__kmp_str_buf_print(buffer, " %s", name); __kmp_str_buf_print(buffer, " %s", name);
} }
__kmp_str_buf_print(buffer, "=%s\n", value); __kmp_str_buf_print(buffer, "=%s\n", value);
} // __kmp_stg_print_target_offload } // __kmp_stg_print_target_offload
#endif
#if OMP_45_ENABLED
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
// OpenMP 4.5: OMP_MAX_TASK_PRIORITY // OpenMP 4.5: OMP_MAX_TASK_PRIORITY
static void __kmp_stg_parse_max_task_priority(char const *name, static void __kmp_stg_parse_max_task_priority(char const *name,
char const *value, void *data) { char const *value, void *data) {
__kmp_stg_parse_int(name, value, 0, KMP_MAX_TASK_PRIORITY_LIMIT, __kmp_stg_parse_int(name, value, 0, KMP_MAX_TASK_PRIORITY_LIMIT,
&__kmp_max_task_priority); &__kmp_max_task_priority);
} // __kmp_stg_parse_max_task_priority } // __kmp_stg_parse_max_task_priority
Show All 10 Linesstatic void __kmp_stg_parse_taskloop_min_tasks(char const *name,
__kmp_stg_parse_int(name, value, 0, INT_MAX, &tmp); __kmp_stg_parse_int(name, value, 0, INT_MAX, &tmp);
__kmp_taskloop_min_tasks = tmp; __kmp_taskloop_min_tasks = tmp;
} // __kmp_stg_parse_taskloop_min_tasks } // __kmp_stg_parse_taskloop_min_tasks
static void __kmp_stg_print_taskloop_min_tasks(kmp_str_buf_t *buffer, static void __kmp_stg_print_taskloop_min_tasks(kmp_str_buf_t *buffer,
char const *name, void *data) { char const *name, void *data) {
__kmp_stg_print_int(buffer, name, __kmp_taskloop_min_tasks); __kmp_stg_print_int(buffer, name, __kmp_taskloop_min_tasks);
} // __kmp_stg_print_taskloop_min_tasks } // __kmp_stg_print_taskloop_min_tasks
#endif // OMP_45_ENABLED
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
// KMP_DISP_NUM_BUFFERS // KMP_DISP_NUM_BUFFERS
static void __kmp_stg_parse_disp_buffers(char const *name, char const *value, static void __kmp_stg_parse_disp_buffers(char const *name, char const *value,
void *data) { void *data) {
if (TCR_4(__kmp_init_serial)) { if (TCR_4(__kmp_init_serial)) {
KMP_WARNING(EnvSerialWarn, name); KMP_WARNING(EnvSerialWarn, name);
return; return;
▲ Show 20 Lines • Show All 754 Lines • ▼ Show 20 Lines if (gran == 0) { \
*out_gran = val; \ *out_gran = val; \
*out_gran_levels = levels; \ *out_gran_levels = levels; \
} else { \ } else { \
EMIT_WARN(FALSE, (AffParamDefined, name, start)); \ EMIT_WARN(FALSE, (AffParamDefined, name, start)); \
} \ } \
++gran; \ ++gran; \
} }
#if OMP_40_ENABLED
KMP_DEBUG_ASSERT((__kmp_nested_proc_bind.bind_types != NULL) && KMP_DEBUG_ASSERT((__kmp_nested_proc_bind.bind_types != NULL) &&
(__kmp_nested_proc_bind.used > 0)); (__kmp_nested_proc_bind.used > 0));
#endif
while (*buf != '\0') { while (*buf != '\0') {
start = next = buf; start = next = buf;
if (__kmp_match_str("none", buf, CCAST(const char **, &next))) { if (__kmp_match_str("none", buf, CCAST(const char **, &next))) {
set_type(affinity_none); set_type(affinity_none);
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_false; __kmp_nested_proc_bind.bind_types[0] = proc_bind_false;
#endif
buf = next; buf = next;
} else if (__kmp_match_str("scatter", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("scatter", buf, CCAST(const char **, &next))) {
set_type(affinity_scatter); set_type(affinity_scatter);
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
#endif
buf = next; buf = next;
} else if (__kmp_match_str("compact", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("compact", buf, CCAST(const char **, &next))) {
set_type(affinity_compact); set_type(affinity_compact);
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
#endif
buf = next; buf = next;
} else if (__kmp_match_str("logical", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("logical", buf, CCAST(const char **, &next))) {
set_type(affinity_logical); set_type(affinity_logical);
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
#endif
buf = next; buf = next;
} else if (__kmp_match_str("physical", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("physical", buf, CCAST(const char **, &next))) {
set_type(affinity_physical); set_type(affinity_physical);
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
#endif
buf = next; buf = next;
} else if (__kmp_match_str("explicit", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("explicit", buf, CCAST(const char **, &next))) {
set_type(affinity_explicit); set_type(affinity_explicit);
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
#endif
buf = next; buf = next;
} else if (__kmp_match_str("balanced", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("balanced", buf, CCAST(const char **, &next))) {
set_type(affinity_balanced); set_type(affinity_balanced);
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
#endif
buf = next; buf = next;
} else if (__kmp_match_str("disabled", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("disabled", buf, CCAST(const char **, &next))) {
set_type(affinity_disabled); set_type(affinity_disabled);
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_false; __kmp_nested_proc_bind.bind_types[0] = proc_bind_false;
#endif
buf = next; buf = next;
} else if (__kmp_match_str("verbose", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("verbose", buf, CCAST(const char **, &next))) {
set_verbose(TRUE); set_verbose(TRUE);
buf = next; buf = next;
} else if (__kmp_match_str("noverbose", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("noverbose", buf, CCAST(const char **, &next))) {
set_verbose(FALSE); set_verbose(FALSE);
buf = next; buf = next;
} else if (__kmp_match_str("warnings", buf, CCAST(const char **, &next))) { } else if (__kmp_match_str("warnings", buf, CCAST(const char **, &next))) {
▲ Show 20 Lines • Show All 142 Lines • ▼ Show 20 Lines
#undef set_granularity #undef set_granularity
__kmp_str_free(&buffer); __kmp_str_free(&buffer);
if (proclist) { if (proclist) {
if (!type) { if (!type) {
KMP_WARNING(AffProcListNoType, name); KMP_WARNING(AffProcListNoType, name);
*out_type = affinity_explicit; *out_type = affinity_explicit;
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
#endif
} else if (*out_type != affinity_explicit) { } else if (*out_type != affinity_explicit) {
KMP_WARNING(AffProcListNotExplicit, name); KMP_WARNING(AffProcListNotExplicit, name);
KMP_ASSERT(*out_proclist != NULL); KMP_ASSERT(*out_proclist != NULL);
KMP_INTERNAL_FREE(*out_proclist); KMP_INTERNAL_FREE(*out_proclist);
*out_proclist = NULL; *out_proclist = NULL;
} }
} }
switch (*out_type) { switch (*out_type) {
▲ Show 20 Lines • Show All 202 Lines • ▼ Show 20 Linesstatic void __kmp_stg_parse_gomp_cpu_affinity(char const *name,
if (__kmp_parse_affinity_proc_id_list(name, value, &next, &temp_proclist)) { if (__kmp_parse_affinity_proc_id_list(name, value, &next, &temp_proclist)) {
SKIP_WS(next); SKIP_WS(next);
if (*next == '\0') { if (*next == '\0') {
// GOMP_CPU_AFFINITY => granularity=fine,explicit,proclist=... // GOMP_CPU_AFFINITY => granularity=fine,explicit,proclist=...
__kmp_affinity_proclist = temp_proclist; __kmp_affinity_proclist = temp_proclist;
__kmp_affinity_type = affinity_explicit; __kmp_affinity_type = affinity_explicit;
__kmp_affinity_gran = affinity_gran_fine; __kmp_affinity_gran = affinity_gran_fine;
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
#endif
} else { } else {
KMP_WARNING(AffSyntaxError, name); KMP_WARNING(AffSyntaxError, name);
if (temp_proclist != NULL) { if (temp_proclist != NULL) {
KMP_INTERNAL_FREE((void *)temp_proclist); KMP_INTERNAL_FREE((void *)temp_proclist);
} }
} }
} else { } else {
// Warning already emitted // Warning already emitted
__kmp_affinity_type = affinity_none; __kmp_affinity_type = affinity_none;
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_false; __kmp_nested_proc_bind.bind_types[0] = proc_bind_false;
#endif
} }
} // __kmp_stg_parse_gomp_cpu_affinity } // __kmp_stg_parse_gomp_cpu_affinity
#endif /* KMP_GOMP_COMPAT */ #endif /* KMP_GOMP_COMPAT */
#if OMP_40_ENABLED
/*----------------------------------------------------------------------------- /*-----------------------------------------------------------------------------
The OMP_PLACES proc id list parser. Here is the grammar: The OMP_PLACES proc id list parser. Here is the grammar:
place_list := place place_list := place
place_list := place , place_list place_list := place , place_list
place := num place := num
place := place : num place := place : num
place := place : num : signed place := place : num : signed
▲ Show 20 Lines • Show All 406 Lines • ▼ Show 20 Lines#endif
} else { } else {
__kmp_str_buf_print(buffer, ": %s\n", KMP_I18N_STR(NotDefined)); __kmp_str_buf_print(buffer, ": %s\n", KMP_I18N_STR(NotDefined));
} }
} else { } else {
__kmp_str_buf_print(buffer, ": %s\n", KMP_I18N_STR(NotDefined)); __kmp_str_buf_print(buffer, ": %s\n", KMP_I18N_STR(NotDefined));
} }
} }
#endif /* OMP_40_ENABLED */
#if (!OMP_40_ENABLED)
static void __kmp_stg_parse_proc_bind(char const *name, char const *value,
void *data) {
int enabled;
kmp_setting_t **rivals = (kmp_setting_t **)data;
int rc;
rc = __kmp_stg_check_rivals(name, value, rivals);
if (rc) {
return;
}
// In OMP 3.1, OMP_PROC_BIND is strictly a boolean
__kmp_stg_parse_bool(name, value, &enabled);
if (enabled) {
// OMP_PROC_BIND => granularity=fine,scatter on MIC
// OMP_PROC_BIND => granularity=core,scatter elsewhere
__kmp_affinity_type = affinity_scatter;
#if KMP_MIC_SUPPORTED
if (__kmp_mic_type != non_mic)
__kmp_affinity_gran = affinity_gran_fine;
else
#endif
__kmp_affinity_gran = affinity_gran_core;
} else {
__kmp_affinity_type = affinity_none;
}
} // __kmp_parse_proc_bind
#endif /* if (! OMP_40_ENABLED) */
static void __kmp_stg_parse_topology_method(char const *name, char const *value, static void __kmp_stg_parse_topology_method(char const *name, char const *value,
void *data) { void *data) {
if (__kmp_str_match("all", 1, value)) { if (__kmp_str_match("all", 1, value)) {
__kmp_affinity_top_method = affinity_top_method_all; __kmp_affinity_top_method = affinity_top_method_all;
} }
#if KMP_USE_HWLOC #if KMP_USE_HWLOC
else if (__kmp_str_match("hwloc", 1, value)) { else if (__kmp_str_match("hwloc", 1, value)) {
__kmp_affinity_top_method = affinity_top_method_hwloc; __kmp_affinity_top_method = affinity_top_method_hwloc;
▲ Show 20 Lines • Show All 110 Lines • ▼ Show 20 Lines#endif /* KMP_GROUP_AFFINITY */
if (value != NULL) { if (value != NULL) {
__kmp_stg_print_str(buffer, name, value); __kmp_stg_print_str(buffer, name, value);
} }
} // __kmp_stg_print_topology_method } // __kmp_stg_print_topology_method
#endif /* KMP_AFFINITY_SUPPORTED */ #endif /* KMP_AFFINITY_SUPPORTED */
#if OMP_40_ENABLED
// OMP_PROC_BIND / bind-var is functional on all 4.0 builds, including OS X* // OMP_PROC_BIND / bind-var is functional on all 4.0 builds, including OS X*
// OMP_PLACES / place-partition-var is not. // OMP_PLACES / place-partition-var is not.
static void __kmp_stg_parse_proc_bind(char const *name, char const *value, static void __kmp_stg_parse_proc_bind(char const *name, char const *value,
void *data) { void *data) {
kmp_setting_t **rivals = (kmp_setting_t **)data; kmp_setting_t **rivals = (kmp_setting_t **)data;
int rc; int rc;
rc = __kmp_stg_check_rivals(name, value, rivals); rc = __kmp_stg_check_rivals(name, value, rivals);
▲ Show 20 Lines • Show All 170 Lines • ▼ Show 20 Lines for (i = 0; i < nelem; i++) {
if (i < nelem - 1) { if (i < nelem - 1) {
__kmp_str_buf_print(buffer, ","); __kmp_str_buf_print(buffer, ",");
} }
} }
__kmp_str_buf_print(buffer, "'\n"); __kmp_str_buf_print(buffer, "'\n");
} }
} }
#endif /* OMP_40_ENABLED */
#if OMP_50_ENABLED
static void __kmp_stg_parse_display_affinity(char const *name, static void __kmp_stg_parse_display_affinity(char const *name,
char const *value, void *data) { char const *value, void *data) {
__kmp_stg_parse_bool(name, value, &__kmp_display_affinity); __kmp_stg_parse_bool(name, value, &__kmp_display_affinity);
} }
static void __kmp_stg_print_display_affinity(kmp_str_buf_t *buffer, static void __kmp_stg_print_display_affinity(kmp_str_buf_t *buffer,
char const *name, void *data) { char const *name, void *data) {
__kmp_stg_print_bool(buffer, name, __kmp_display_affinity); __kmp_stg_print_bool(buffer, name, __kmp_display_affinity);
} }
▲ Show 20 Lines • Show All 146 Lines • ▼ Show 20 Lines if (__kmp_def_allocator == omp_default_mem_alloc) {
__kmp_stg_print_str(buffer, name, "omp_cgroup_mem_alloc"); __kmp_stg_print_str(buffer, name, "omp_cgroup_mem_alloc");
} else if (__kmp_def_allocator == omp_pteam_mem_alloc) { } else if (__kmp_def_allocator == omp_pteam_mem_alloc) {
__kmp_stg_print_str(buffer, name, "omp_pteam_mem_alloc"); __kmp_stg_print_str(buffer, name, "omp_pteam_mem_alloc");
} else if (__kmp_def_allocator == omp_thread_mem_alloc) { } else if (__kmp_def_allocator == omp_thread_mem_alloc) {
__kmp_stg_print_str(buffer, name, "omp_thread_mem_alloc"); __kmp_stg_print_str(buffer, name, "omp_thread_mem_alloc");
} }
} }
#endif /* OMP_50_ENABLED */
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
// OMP_DYNAMIC // OMP_DYNAMIC
static void __kmp_stg_parse_omp_dynamic(char const *name, char const *value, static void __kmp_stg_parse_omp_dynamic(char const *name, char const *value,
void *data) { void *data) {
__kmp_stg_parse_bool(name, value, &(__kmp_global.g.g_dynamic)); __kmp_stg_parse_bool(name, value, &(__kmp_global.g.g_dynamic));
} // __kmp_stg_parse_omp_dynamic } // __kmp_stg_parse_omp_dynamic
▲ Show 20 Lines • Show All 217 Lines • ▼ Show 20 Lines if (layer != kmp_hier_layer_e::LAYER_THREAD && *delim != ',') {
return NULL; return NULL;
} else if (layer != kmp_hier_layer_e::LAYER_THREAD) { } else if (layer != kmp_hier_layer_e::LAYER_THREAD) {
ptr = ++delim; ptr = ++delim;
while (*delim != ',' && *delim != ':' && *delim != '\0') while (*delim != ',' && *delim != ':' && *delim != '\0')
delim++; delim++;
} }
} }
#endif // KMP_USE_HIER_SCHED #endif // KMP_USE_HIER_SCHED
#if OMP_45_ENABLED
// Read in schedule modifier if specified // Read in schedule modifier if specified
enum sched_type sched_modifier = (enum sched_type)0; enum sched_type sched_modifier = (enum sched_type)0;
if (*delim == ':') { if (*delim == ':') {
if (!__kmp_strcasecmp_with_sentinel("monotonic", ptr, *delim)) { if (!__kmp_strcasecmp_with_sentinel("monotonic", ptr, *delim)) {
sched_modifier = sched_type::kmp_sch_modifier_monotonic; sched_modifier = sched_type::kmp_sch_modifier_monotonic;
ptr = ++delim; ptr = ++delim;
while (*delim != ',' && *delim != ':' && *delim != '\0') while (*delim != ',' && *delim != ':' && *delim != '\0')
delim++; delim++;
} else if (!__kmp_strcasecmp_with_sentinel("nonmonotonic", ptr, *delim)) { } else if (!__kmp_strcasecmp_with_sentinel("nonmonotonic", ptr, *delim)) {
sched_modifier = sched_type::kmp_sch_modifier_nonmonotonic; sched_modifier = sched_type::kmp_sch_modifier_nonmonotonic;
ptr = ++delim; ptr = ++delim;
while (*delim != ',' && *delim != ':' && *delim != '\0') while (*delim != ',' && *delim != ':' && *delim != '\0')
delim++; delim++;
} else if (!parse_hier) { } else if (!parse_hier) {
// If there is no proper schedule modifier, then this schedule is invalid // If there is no proper schedule modifier, then this schedule is invalid
KMP_WARNING(StgInvalidValue, name, value); KMP_WARNING(StgInvalidValue, name, value);
__kmp_omp_schedule_restore(); __kmp_omp_schedule_restore();
return NULL; return NULL;
} }
} }
#endif
// Read in schedule kind (required) // Read in schedule kind (required)
if (!__kmp_strcasecmp_with_sentinel("dynamic", ptr, *delim)) if (!__kmp_strcasecmp_with_sentinel("dynamic", ptr, *delim))
sched = kmp_sch_dynamic_chunked; sched = kmp_sch_dynamic_chunked;
else if (!__kmp_strcasecmp_with_sentinel("guided", ptr, *delim)) else if (!__kmp_strcasecmp_with_sentinel("guided", ptr, *delim))
sched = kmp_sch_guided_chunked; sched = kmp_sch_guided_chunked;
// AC: TODO: probably remove TRAPEZOIDAL (OMP 3.0 does not allow it) // AC: TODO: probably remove TRAPEZOIDAL (OMP 3.0 does not allow it)
else if (!__kmp_strcasecmp_with_sentinel("auto", ptr, *delim)) else if (!__kmp_strcasecmp_with_sentinel("auto", ptr, *delim))
sched = kmp_sch_auto; sched = kmp_sch_auto;
▲ Show 20 Lines • Show All 942 Lines • ▼ Show 20 Lines
static void __kmp_stg_print_task_throttling(kmp_str_buf_t *buffer, static void __kmp_stg_print_task_throttling(kmp_str_buf_t *buffer,
char const *name, void *data) { char const *name, void *data) {
__kmp_stg_print_bool(buffer, name, __kmp_enable_task_throttling); __kmp_stg_print_bool(buffer, name, __kmp_enable_task_throttling);
} // __kmp_stg_print_task_throttling } // __kmp_stg_print_task_throttling
// ----------------------------------------------------------------------------- // -----------------------------------------------------------------------------
// OMP_DISPLAY_ENV // OMP_DISPLAY_ENV
#if OMP_40_ENABLED
static void __kmp_stg_parse_omp_display_env(char const *name, char const *value, static void __kmp_stg_parse_omp_display_env(char const *name, char const *value,
void *data) { void *data) {
if (__kmp_str_match("VERBOSE", 1, value)) { if (__kmp_str_match("VERBOSE", 1, value)) {
__kmp_display_env_verbose = TRUE; __kmp_display_env_verbose = TRUE;
} else { } else {
__kmp_stg_parse_bool(name, value, &__kmp_display_env); __kmp_stg_parse_bool(name, value, &__kmp_display_env);
} }
} // __kmp_stg_parse_omp_display_env } // __kmp_stg_parse_omp_display_env
static void __kmp_stg_print_omp_display_env(kmp_str_buf_t *buffer, static void __kmp_stg_print_omp_display_env(kmp_str_buf_t *buffer,
char const *name, void *data) { char const *name, void *data) {
if (__kmp_display_env_verbose) { if (__kmp_display_env_verbose) {
__kmp_stg_print_str(buffer, name, "VERBOSE"); __kmp_stg_print_str(buffer, name, "VERBOSE");
} else { } else {
__kmp_stg_print_bool(buffer, name, __kmp_display_env); __kmp_stg_print_bool(buffer, name, __kmp_display_env);
Show All 9 Linesstatic void __kmp_stg_parse_omp_cancellation(char const *name,
__kmp_stg_parse_bool(name, value, &__kmp_omp_cancellation); __kmp_stg_parse_bool(name, value, &__kmp_omp_cancellation);
} // __kmp_stg_parse_omp_cancellation } // __kmp_stg_parse_omp_cancellation
static void __kmp_stg_print_omp_cancellation(kmp_str_buf_t *buffer, static void __kmp_stg_print_omp_cancellation(kmp_str_buf_t *buffer,
char const *name, void *data) { char const *name, void *data) {
__kmp_stg_print_bool(buffer, name, __kmp_omp_cancellation); __kmp_stg_print_bool(buffer, name, __kmp_omp_cancellation);
} // __kmp_stg_print_omp_cancellation } // __kmp_stg_print_omp_cancellation
#endif #if OMPT_SUPPORT
#if OMP_50_ENABLED && OMPT_SUPPORT
static int __kmp_tool = 1; static int __kmp_tool = 1;
static void __kmp_stg_parse_omp_tool(char const *name, char const *value, static void __kmp_stg_parse_omp_tool(char const *name, char const *value,
void *data) { void *data) {
__kmp_stg_parse_bool(name, value, &__kmp_tool); __kmp_stg_parse_bool(name, value, &__kmp_tool);
} // __kmp_stg_parse_omp_tool } // __kmp_stg_parse_omp_tool
static void __kmp_stg_print_omp_tool(kmp_str_buf_t *buffer, char const *name, static void __kmp_stg_print_omp_tool(kmp_str_buf_t *buffer, char const *name,
▲ Show 20 Lines • Show All 68 Lines • ▼ Show 20 Lines#endif
NULL, 0, 0}, NULL, 0, 0},
{"KMP_TASKING", __kmp_stg_parse_tasking, __kmp_stg_print_tasking, NULL, 0, {"KMP_TASKING", __kmp_stg_parse_tasking, __kmp_stg_print_tasking, NULL, 0,
0}, 0},
{"KMP_TASK_STEALING_CONSTRAINT", __kmp_stg_parse_task_stealing, {"KMP_TASK_STEALING_CONSTRAINT", __kmp_stg_parse_task_stealing,
__kmp_stg_print_task_stealing, NULL, 0, 0}, __kmp_stg_print_task_stealing, NULL, 0, 0},
{"OMP_MAX_ACTIVE_LEVELS", __kmp_stg_parse_max_active_levels, {"OMP_MAX_ACTIVE_LEVELS", __kmp_stg_parse_max_active_levels,
__kmp_stg_print_max_active_levels, NULL, 0, 0}, __kmp_stg_print_max_active_levels, NULL, 0, 0},
#if OMP_40_ENABLED
{"OMP_DEFAULT_DEVICE", __kmp_stg_parse_default_device, {"OMP_DEFAULT_DEVICE", __kmp_stg_parse_default_device,
__kmp_stg_print_default_device, NULL, 0, 0}, __kmp_stg_print_default_device, NULL, 0, 0},
#endif
#if OMP_50_ENABLED
{"OMP_TARGET_OFFLOAD", __kmp_stg_parse_target_offload, {"OMP_TARGET_OFFLOAD", __kmp_stg_parse_target_offload,
__kmp_stg_print_target_offload, NULL, 0, 0}, __kmp_stg_print_target_offload, NULL, 0, 0},
#endif
#if OMP_45_ENABLED
{"OMP_MAX_TASK_PRIORITY", __kmp_stg_parse_max_task_priority, {"OMP_MAX_TASK_PRIORITY", __kmp_stg_parse_max_task_priority,
__kmp_stg_print_max_task_priority, NULL, 0, 0}, __kmp_stg_print_max_task_priority, NULL, 0, 0},
{"KMP_TASKLOOP_MIN_TASKS", __kmp_stg_parse_taskloop_min_tasks, {"KMP_TASKLOOP_MIN_TASKS", __kmp_stg_parse_taskloop_min_tasks,
__kmp_stg_print_taskloop_min_tasks, NULL, 0, 0}, __kmp_stg_print_taskloop_min_tasks, NULL, 0, 0},
#endif
{"OMP_THREAD_LIMIT", __kmp_stg_parse_thread_limit, {"OMP_THREAD_LIMIT", __kmp_stg_parse_thread_limit,
__kmp_stg_print_thread_limit, NULL, 0, 0}, __kmp_stg_print_thread_limit, NULL, 0, 0},
{"KMP_TEAMS_THREAD_LIMIT", __kmp_stg_parse_teams_thread_limit, {"KMP_TEAMS_THREAD_LIMIT", __kmp_stg_parse_teams_thread_limit,
__kmp_stg_print_teams_thread_limit, NULL, 0, 0}, __kmp_stg_print_teams_thread_limit, NULL, 0, 0},
{"OMP_WAIT_POLICY", __kmp_stg_parse_wait_policy, {"OMP_WAIT_POLICY", __kmp_stg_parse_wait_policy,
__kmp_stg_print_wait_policy, NULL, 0, 0}, __kmp_stg_print_wait_policy, NULL, 0, 0},
{"KMP_DISP_NUM_BUFFERS", __kmp_stg_parse_disp_buffers, {"KMP_DISP_NUM_BUFFERS", __kmp_stg_parse_disp_buffers,
__kmp_stg_print_disp_buffers, NULL, 0, 0}, __kmp_stg_print_disp_buffers, NULL, 0, 0},
▲ Show 20 Lines • Show All 82 Lines • ▼ Show 20 Lines
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
{"KMP_AFFINITY", __kmp_stg_parse_affinity, __kmp_stg_print_affinity, NULL, {"KMP_AFFINITY", __kmp_stg_parse_affinity, __kmp_stg_print_affinity, NULL,
0, 0}, 0, 0},
#ifdef KMP_GOMP_COMPAT #ifdef KMP_GOMP_COMPAT
{"GOMP_CPU_AFFINITY", __kmp_stg_parse_gomp_cpu_affinity, NULL, {"GOMP_CPU_AFFINITY", __kmp_stg_parse_gomp_cpu_affinity, NULL,
/* no print */ NULL, 0, 0}, /* no print */ NULL, 0, 0},
#endif /* KMP_GOMP_COMPAT */ #endif /* KMP_GOMP_COMPAT */
#if OMP_40_ENABLED
{"OMP_PROC_BIND", __kmp_stg_parse_proc_bind, __kmp_stg_print_proc_bind, {"OMP_PROC_BIND", __kmp_stg_parse_proc_bind, __kmp_stg_print_proc_bind,
NULL, 0, 0}, NULL, 0, 0},
{"OMP_PLACES", __kmp_stg_parse_places, __kmp_stg_print_places, NULL, 0, 0}, {"OMP_PLACES", __kmp_stg_parse_places, __kmp_stg_print_places, NULL, 0, 0},
#else
{"OMP_PROC_BIND", __kmp_stg_parse_proc_bind, NULL, /* no print */ NULL, 0,
0},
#endif /* OMP_40_ENABLED */
{"KMP_TOPOLOGY_METHOD", __kmp_stg_parse_topology_method, {"KMP_TOPOLOGY_METHOD", __kmp_stg_parse_topology_method,
__kmp_stg_print_topology_method, NULL, 0, 0}, __kmp_stg_print_topology_method, NULL, 0, 0},
#else #else
// KMP_AFFINITY is not supported on OS X*, nor is OMP_PLACES. // KMP_AFFINITY is not supported on OS X*, nor is OMP_PLACES.
// OMP_PROC_BIND and proc-bind-var are supported, however. // OMP_PROC_BIND and proc-bind-var are supported, however.
#if OMP_40_ENABLED
{"OMP_PROC_BIND", __kmp_stg_parse_proc_bind, __kmp_stg_print_proc_bind, {"OMP_PROC_BIND", __kmp_stg_parse_proc_bind, __kmp_stg_print_proc_bind,
NULL, 0, 0}, NULL, 0, 0},
#endif
#endif // KMP_AFFINITY_SUPPORTED #endif // KMP_AFFINITY_SUPPORTED
#if OMP_50_ENABLED
{"OMP_DISPLAY_AFFINITY", __kmp_stg_parse_display_affinity, {"OMP_DISPLAY_AFFINITY", __kmp_stg_parse_display_affinity,
__kmp_stg_print_display_affinity, NULL, 0, 0}, __kmp_stg_print_display_affinity, NULL, 0, 0},
{"OMP_AFFINITY_FORMAT", __kmp_stg_parse_affinity_format, {"OMP_AFFINITY_FORMAT", __kmp_stg_parse_affinity_format,
__kmp_stg_print_affinity_format, NULL, 0, 0}, __kmp_stg_print_affinity_format, NULL, 0, 0},
#endif
{"KMP_INIT_AT_FORK", __kmp_stg_parse_init_at_fork, {"KMP_INIT_AT_FORK", __kmp_stg_parse_init_at_fork,
__kmp_stg_print_init_at_fork, NULL, 0, 0}, __kmp_stg_print_init_at_fork, NULL, 0, 0},
{"KMP_SCHEDULE", __kmp_stg_parse_schedule, __kmp_stg_print_schedule, NULL, {"KMP_SCHEDULE", __kmp_stg_parse_schedule, __kmp_stg_print_schedule, NULL,
0, 0}, 0, 0},
{"OMP_SCHEDULE", __kmp_stg_parse_omp_schedule, __kmp_stg_print_omp_schedule, {"OMP_SCHEDULE", __kmp_stg_parse_omp_schedule, __kmp_stg_print_omp_schedule,
NULL, 0, 0}, NULL, 0, 0},
#if KMP_USE_HIER_SCHED #if KMP_USE_HIER_SCHED
{"KMP_DISP_HAND_THREAD", __kmp_stg_parse_kmp_hand_thread, {"KMP_DISP_HAND_THREAD", __kmp_stg_parse_kmp_hand_thread,
▲ Show 20 Lines • Show All 44 Lines • ▼ Show 20 Lines#if USE_ITT_BUILD
{"KMP_FORKJOIN_FRAMES", __kmp_stg_parse_forkjoin_frames, {"KMP_FORKJOIN_FRAMES", __kmp_stg_parse_forkjoin_frames,
__kmp_stg_print_forkjoin_frames, NULL, 0, 0}, __kmp_stg_print_forkjoin_frames, NULL, 0, 0},
{"KMP_FORKJOIN_FRAMES_MODE", __kmp_stg_parse_forkjoin_frames_mode, {"KMP_FORKJOIN_FRAMES_MODE", __kmp_stg_parse_forkjoin_frames_mode,
__kmp_stg_print_forkjoin_frames_mode, NULL, 0, 0}, __kmp_stg_print_forkjoin_frames_mode, NULL, 0, 0},
#endif #endif
{"KMP_ENABLE_TASK_THROTTLING", __kmp_stg_parse_task_throttling, {"KMP_ENABLE_TASK_THROTTLING", __kmp_stg_parse_task_throttling,
__kmp_stg_print_task_throttling, NULL, 0, 0}, __kmp_stg_print_task_throttling, NULL, 0, 0},
#if OMP_40_ENABLED
{"OMP_DISPLAY_ENV", __kmp_stg_parse_omp_display_env, {"OMP_DISPLAY_ENV", __kmp_stg_parse_omp_display_env,
__kmp_stg_print_omp_display_env, NULL, 0, 0}, __kmp_stg_print_omp_display_env, NULL, 0, 0},
{"OMP_CANCELLATION", __kmp_stg_parse_omp_cancellation, {"OMP_CANCELLATION", __kmp_stg_parse_omp_cancellation,
__kmp_stg_print_omp_cancellation, NULL, 0, 0}, __kmp_stg_print_omp_cancellation, NULL, 0, 0},
#endif
#if OMP_50_ENABLED
{"OMP_ALLOCATOR", __kmp_stg_parse_allocator, __kmp_stg_print_allocator, {"OMP_ALLOCATOR", __kmp_stg_parse_allocator, __kmp_stg_print_allocator,
NULL, 0, 0}, NULL, 0, 0},
#endif
#if OMP_50_ENABLED && OMPT_SUPPORT #if OMPT_SUPPORT
{"OMP_TOOL", __kmp_stg_parse_omp_tool, __kmp_stg_print_omp_tool, NULL, 0, {"OMP_TOOL", __kmp_stg_parse_omp_tool, __kmp_stg_print_omp_tool, NULL, 0,
0}, 0},
{"OMP_TOOL_LIBRARIES", __kmp_stg_parse_omp_tool_libraries, {"OMP_TOOL_LIBRARIES", __kmp_stg_parse_omp_tool_libraries,
__kmp_stg_print_omp_tool_libraries, NULL, 0, 0}, __kmp_stg_print_omp_tool_libraries, NULL, 0, 0},
#endif #endif
{"", NULL, NULL, NULL, 0, 0}}; // settings {"", NULL, NULL, NULL, 0, 0}}; // settings
▲ Show 20 Lines • Show All 169 Lines • ▼ Show 20 Lines#ifdef KMP_GOMP_COMPAT
rivals[i++] = gomp_cpu_affinity; rivals[i++] = gomp_cpu_affinity;
gomp_cpu_affinity->data = CCAST(kmp_setting_t **, rivals); gomp_cpu_affinity->data = CCAST(kmp_setting_t **, rivals);
#endif #endif
rivals[i++] = omp_proc_bind; rivals[i++] = omp_proc_bind;
omp_proc_bind->data = CCAST(kmp_setting_t **, rivals); omp_proc_bind->data = CCAST(kmp_setting_t **, rivals);
rivals[i++] = NULL; rivals[i++] = NULL;
#if OMP_40_ENABLED
static kmp_setting_t *volatile places_rivals[4]; static kmp_setting_t *volatile places_rivals[4];
i = 0; i = 0;
kmp_setting_t *omp_places = __kmp_stg_find("OMP_PLACES"); // 3rd priority. kmp_setting_t *omp_places = __kmp_stg_find("OMP_PLACES"); // 3rd priority.
KMP_DEBUG_ASSERT(omp_places != NULL); KMP_DEBUG_ASSERT(omp_places != NULL);
places_rivals[i++] = kmp_affinity; places_rivals[i++] = kmp_affinity;
#ifdef KMP_GOMP_COMPAT #ifdef KMP_GOMP_COMPAT
places_rivals[i++] = gomp_cpu_affinity; places_rivals[i++] = gomp_cpu_affinity;
#endif #endif
places_rivals[i++] = omp_places; places_rivals[i++] = omp_places;
omp_places->data = CCAST(kmp_setting_t **, places_rivals); omp_places->data = CCAST(kmp_setting_t **, places_rivals);
places_rivals[i++] = NULL; places_rivals[i++] = NULL;
#endif
} }
#else #else
// KMP_AFFINITY not supported, so OMP_PROC_BIND has no rivals. // KMP_AFFINITY not supported, so OMP_PROC_BIND has no rivals.
// OMP_PLACES not supported yet. // OMP_PLACES not supported yet.
#endif // KMP_AFFINITY_SUPPORTED #endif // KMP_AFFINITY_SUPPORTED
{ // Initialize KMP_DETERMINISTIC_REDUCTION and KMP_FORCE_REDUCTION data. { // Initialize KMP_DETERMINISTIC_REDUCTION and KMP_FORCE_REDUCTION data.
kmp_setting_t *kmp_force_red = kmp_setting_t *kmp_force_red =
▲ Show 20 Lines • Show All 205 Lines • ▼ Show 20 Lines if ((FIND(aff_str, "none") == NULL) &&
// in case this is called from kmp_set_defaults(). // in case this is called from kmp_set_defaults().
__kmp_affinity_type = affinity_default; __kmp_affinity_type = affinity_default;
__kmp_affinity_gran = affinity_gran_default; __kmp_affinity_gran = affinity_gran_default;
__kmp_affinity_top_method = affinity_top_method_default; __kmp_affinity_top_method = affinity_top_method_default;
__kmp_affinity_respect_mask = affinity_respect_mask_default; __kmp_affinity_respect_mask = affinity_respect_mask_default;
} }
#undef FIND #undef FIND
#if OMP_40_ENABLED
// Also reset the affinity flags if OMP_PROC_BIND is specified. // Also reset the affinity flags if OMP_PROC_BIND is specified.
aff_str = __kmp_env_blk_var(&block, "OMP_PROC_BIND"); aff_str = __kmp_env_blk_var(&block, "OMP_PROC_BIND");
if (aff_str != NULL) { if (aff_str != NULL) {
__kmp_affinity_type = affinity_default; __kmp_affinity_type = affinity_default;
__kmp_affinity_gran = affinity_gran_default; __kmp_affinity_gran = affinity_gran_default;
__kmp_affinity_top_method = affinity_top_method_default; __kmp_affinity_top_method = affinity_top_method_default;
__kmp_affinity_respect_mask = affinity_respect_mask_default; __kmp_affinity_respect_mask = affinity_respect_mask_default;
} }
#endif /* OMP_40_ENABLED */
} }
#endif /* KMP_AFFINITY_SUPPORTED */ #endif /* KMP_AFFINITY_SUPPORTED */
#if OMP_40_ENABLED
// Set up the nested proc bind type vector. // Set up the nested proc bind type vector.
if (__kmp_nested_proc_bind.bind_types == NULL) { if (__kmp_nested_proc_bind.bind_types == NULL) {
__kmp_nested_proc_bind.bind_types = __kmp_nested_proc_bind.bind_types =
(kmp_proc_bind_t *)KMP_INTERNAL_MALLOC(sizeof(kmp_proc_bind_t)); (kmp_proc_bind_t *)KMP_INTERNAL_MALLOC(sizeof(kmp_proc_bind_t));
if (__kmp_nested_proc_bind.bind_types == NULL) { if (__kmp_nested_proc_bind.bind_types == NULL) {
KMP_FATAL(MemoryAllocFailed); KMP_FATAL(MemoryAllocFailed);
} }
__kmp_nested_proc_bind.size = 1; __kmp_nested_proc_bind.size = 1;
__kmp_nested_proc_bind.used = 1; __kmp_nested_proc_bind.used = 1;
#if KMP_AFFINITY_SUPPORTED #if KMP_AFFINITY_SUPPORTED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_default; __kmp_nested_proc_bind.bind_types[0] = proc_bind_default;
#else #else
// default proc bind is false if affinity not supported // default proc bind is false if affinity not supported
__kmp_nested_proc_bind.bind_types[0] = proc_bind_false; __kmp_nested_proc_bind.bind_types[0] = proc_bind_false;
#endif #endif
} }
#endif /* OMP_40_ENABLED */
#if OMP_50_ENABLED
// Set up the affinity format ICV // Set up the affinity format ICV
// Grab the default affinity format string from the message catalog // Grab the default affinity format string from the message catalog
kmp_msg_t m = kmp_msg_t m =
__kmp_msg_format(kmp_i18n_msg_AffFormatDefault, "%P", "%i", "%n", "%A"); __kmp_msg_format(kmp_i18n_msg_AffFormatDefault, "%P", "%i", "%n", "%A");
KMP_DEBUG_ASSERT(KMP_STRLEN(m.str) < KMP_AFFINITY_FORMAT_SIZE); KMP_DEBUG_ASSERT(KMP_STRLEN(m.str) < KMP_AFFINITY_FORMAT_SIZE);
if (__kmp_affinity_format == NULL) { if (__kmp_affinity_format == NULL) {
__kmp_affinity_format = __kmp_affinity_format =
(char *)KMP_INTERNAL_MALLOC(sizeof(char) * KMP_AFFINITY_FORMAT_SIZE); (char *)KMP_INTERNAL_MALLOC(sizeof(char) * KMP_AFFINITY_FORMAT_SIZE);
} }
KMP_STRCPY_S(__kmp_affinity_format, KMP_AFFINITY_FORMAT_SIZE, m.str); KMP_STRCPY_S(__kmp_affinity_format, KMP_AFFINITY_FORMAT_SIZE, m.str);
__kmp_str_free(&m.str); __kmp_str_free(&m.str);
#endif
// Now process all of the settings. // Now process all of the settings.
for (i = 0; i < block.count; ++i) { for (i = 0; i < block.count; ++i) {
__kmp_stg_parse(block.vars[i].name, block.vars[i].value); __kmp_stg_parse(block.vars[i].name, block.vars[i].value);
} }
// If user locks have been allocated yet, don't reset the lock vptr table. // If user locks have been allocated yet, don't reset the lock vptr table.
if (!__kmp_init_user_locks) { if (!__kmp_init_user_locks) {
▲ Show 20 Lines • Show All 58 Lines • ▼ Show 20 Lines if (__kmp_affinity_type == affinity_disabled) {
KMP_WARNING(AffNotSupported, var); KMP_WARNING(AffNotSupported, var);
} }
__kmp_affinity_type = affinity_disabled; __kmp_affinity_type = affinity_disabled;
__kmp_affinity_respect_mask = 0; __kmp_affinity_respect_mask = 0;
__kmp_affinity_gran = affinity_gran_fine; __kmp_affinity_gran = affinity_gran_fine;
} }
} }
#if OMP_40_ENABLED
if (__kmp_affinity_type == affinity_disabled) { if (__kmp_affinity_type == affinity_disabled) {
__kmp_nested_proc_bind.bind_types[0] = proc_bind_false; __kmp_nested_proc_bind.bind_types[0] = proc_bind_false;
} else if (__kmp_nested_proc_bind.bind_types[0] == proc_bind_true) { } else if (__kmp_nested_proc_bind.bind_types[0] == proc_bind_true) {
// OMP_PROC_BIND=true maps to OMP_PROC_BIND=spread. // OMP_PROC_BIND=true maps to OMP_PROC_BIND=spread.
__kmp_nested_proc_bind.bind_types[0] = proc_bind_spread; __kmp_nested_proc_bind.bind_types[0] = proc_bind_spread;
} }
#endif /* OMP_40_ENABLED */
if (KMP_AFFINITY_CAPABLE()) { if (KMP_AFFINITY_CAPABLE()) {
#if KMP_GROUP_AFFINITY #if KMP_GROUP_AFFINITY
// This checks to see if the initial affinity mask is equal // This checks to see if the initial affinity mask is equal
// to a single windows processor group. If it is, then we do // to a single windows processor group. If it is, then we do
// not respect the initial affinity mask and instead, use the // not respect the initial affinity mask and instead, use the
// entire machine. // entire machine.
Show All 20 Lines#if KMP_GROUP_AFFINITY
} }
KMP_CPU_FREE(init_mask); KMP_CPU_FREE(init_mask);
} }
// Handle the Win 64 group affinity stuff if there are multiple // Handle the Win 64 group affinity stuff if there are multiple
// processor groups, or if the user requested it, and OMP 4.0 // processor groups, or if the user requested it, and OMP 4.0
// affinity is not in effect. // affinity is not in effect.
if (((__kmp_num_proc_groups > 1) && if (((__kmp_num_proc_groups > 1) &&
(__kmp_affinity_type == affinity_default) (__kmp_affinity_type == affinity_default) &&
#if OMP_40_ENABLED (__kmp_nested_proc_bind.bind_types[0] == proc_bind_default)) ||
&& (__kmp_nested_proc_bind.bind_types[0] == proc_bind_default)) (__kmp_affinity_top_method == affinity_top_method_group)) {
#endif
|| (__kmp_affinity_top_method == affinity_top_method_group)) {
if (__kmp_affinity_respect_mask == affinity_respect_mask_default && if (__kmp_affinity_respect_mask == affinity_respect_mask_default &&
exactly_one_group) { exactly_one_group) {
__kmp_affinity_respect_mask = FALSE; __kmp_affinity_respect_mask = FALSE;
} }
if (__kmp_affinity_type == affinity_default) { if (__kmp_affinity_type == affinity_default) {
__kmp_affinity_type = affinity_compact; __kmp_affinity_type = affinity_compact;
#if OMP_40_ENABLED
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
#endif
} }
if (__kmp_affinity_top_method == affinity_top_method_default) { if (__kmp_affinity_top_method == affinity_top_method_default) {
if (__kmp_affinity_gran == affinity_gran_default) { if (__kmp_affinity_gran == affinity_gran_default) {
__kmp_affinity_top_method = affinity_top_method_group; __kmp_affinity_top_method = affinity_top_method_group;
__kmp_affinity_gran = affinity_gran_group; __kmp_affinity_gran = affinity_gran_group;
} else if (__kmp_affinity_gran == affinity_gran_group) { } else if (__kmp_affinity_gran == affinity_gran_group) {
__kmp_affinity_top_method = affinity_top_method_group; __kmp_affinity_top_method = affinity_top_method_group;
} else { } else {
▲ Show 20 Lines • Show All 64 Lines • ▼ Show 20 Lines#if KMP_GROUP_AFFINITY
if (__kmp_num_proc_groups > 1 && exactly_one_group) { if (__kmp_num_proc_groups > 1 && exactly_one_group) {
__kmp_affinity_respect_mask = FALSE; __kmp_affinity_respect_mask = FALSE;
} else } else
#endif /* KMP_GROUP_AFFINITY */ #endif /* KMP_GROUP_AFFINITY */
{ {
__kmp_affinity_respect_mask = TRUE; __kmp_affinity_respect_mask = TRUE;
} }
} }
#if OMP_40_ENABLED
if ((__kmp_nested_proc_bind.bind_types[0] != proc_bind_intel) && if ((__kmp_nested_proc_bind.bind_types[0] != proc_bind_intel) &&
(__kmp_nested_proc_bind.bind_types[0] != proc_bind_default)) { (__kmp_nested_proc_bind.bind_types[0] != proc_bind_default)) {
if (__kmp_affinity_type == affinity_default) { if (__kmp_affinity_type == affinity_default) {
__kmp_affinity_type = affinity_compact; __kmp_affinity_type = affinity_compact;
__kmp_affinity_dups = FALSE; __kmp_affinity_dups = FALSE;
} }
} else } else if (__kmp_affinity_type == affinity_default) {
#endif /* OMP_40_ENABLED */
if (__kmp_affinity_type == affinity_default) {
#if OMP_40_ENABLED
#if KMP_MIC_SUPPORTED #if KMP_MIC_SUPPORTED
if (__kmp_mic_type != non_mic) { if (__kmp_mic_type != non_mic) {
__kmp_nested_proc_bind.bind_types[0] = proc_bind_intel; __kmp_nested_proc_bind.bind_types[0] = proc_bind_intel;
} else } else
#endif #endif
{ {
__kmp_nested_proc_bind.bind_types[0] = proc_bind_false; __kmp_nested_proc_bind.bind_types[0] = proc_bind_false;
} }
#endif /* OMP_40_ENABLED */
#if KMP_MIC_SUPPORTED #if KMP_MIC_SUPPORTED
if (__kmp_mic_type != non_mic) { if (__kmp_mic_type != non_mic) {
__kmp_affinity_type = affinity_scatter; __kmp_affinity_type = affinity_scatter;
} else } else
#endif #endif
{ {
__kmp_affinity_type = affinity_none; __kmp_affinity_type = affinity_none;
} }
Show All 20 Lines#endif
K_DIAG(1, ("__kmp_affinity_offset == %d\n", __kmp_affinity_offset)); K_DIAG(1, ("__kmp_affinity_offset == %d\n", __kmp_affinity_offset));
K_DIAG(1, ("__kmp_affinity_verbose == %d\n", __kmp_affinity_verbose)); K_DIAG(1, ("__kmp_affinity_verbose == %d\n", __kmp_affinity_verbose));
K_DIAG(1, ("__kmp_affinity_warnings == %d\n", __kmp_affinity_warnings)); K_DIAG(1, ("__kmp_affinity_warnings == %d\n", __kmp_affinity_warnings));
K_DIAG(1, ("__kmp_affinity_respect_mask == %d\n", K_DIAG(1, ("__kmp_affinity_respect_mask == %d\n",
__kmp_affinity_respect_mask)); __kmp_affinity_respect_mask));
K_DIAG(1, ("__kmp_affinity_gran == %d\n", __kmp_affinity_gran)); K_DIAG(1, ("__kmp_affinity_gran == %d\n", __kmp_affinity_gran));
KMP_DEBUG_ASSERT(__kmp_affinity_type != affinity_default); KMP_DEBUG_ASSERT(__kmp_affinity_type != affinity_default);
#if OMP_40_ENABLED
KMP_DEBUG_ASSERT(__kmp_nested_proc_bind.bind_types[0] != proc_bind_default); KMP_DEBUG_ASSERT(__kmp_nested_proc_bind.bind_types[0] != proc_bind_default);
K_DIAG(1, ("__kmp_nested_proc_bind.bind_types[0] == %d\n", K_DIAG(1, ("__kmp_nested_proc_bind.bind_types[0] == %d\n",
__kmp_nested_proc_bind.bind_types[0])); __kmp_nested_proc_bind.bind_types[0]));
#endif
} }
#endif /* KMP_AFFINITY_SUPPORTED */ #endif /* KMP_AFFINITY_SUPPORTED */
if (__kmp_version) { if (__kmp_version) {
__kmp_print_version_1(); __kmp_print_version_1();
} }
▲ Show 20 Lines • Show All 50 Lines • ▼ Show 20 Lines#endif // KMP_GOMP_COMPAT
__kmp_env_blk_free(&block); __kmp_env_blk_free(&block);
__kmp_str_buf_free(&buffer); __kmp_str_buf_free(&buffer);
__kmp_printf("\n"); __kmp_printf("\n");
} // __kmp_env_print } // __kmp_env_print
#if OMP_40_ENABLED
void __kmp_env_print_2() { void __kmp_env_print_2() {
kmp_env_blk_t block; kmp_env_blk_t block;
kmp_str_buf_t buffer; kmp_str_buf_t buffer;
__kmp_env_format = 1; __kmp_env_format = 1;
__kmp_stg_init(); __kmp_stg_init();
Show All 21 Linesvoid __kmp_env_print_2() {
__kmp_printf("%s", buffer.str); __kmp_printf("%s", buffer.str);
__kmp_env_blk_free(&block); __kmp_env_blk_free(&block);
__kmp_str_buf_free(&buffer); __kmp_str_buf_free(&buffer);
__kmp_printf("\n"); __kmp_printf("\n");
} // __kmp_env_print_2 } // __kmp_env_print_2
#endif // OMP_40_ENABLED
// end of file // end of file

runtime/src/kmp_stub.h

Show All 35 Linestypedef enum kmp_sched {
kmp_sched_guided = 3, // mapped to kmp_sch_guided_chunked (36) kmp_sched_guided = 3, // mapped to kmp_sch_guided_chunked (36)
kmp_sched_auto = 4, // mapped to kmp_sch_auto (38) kmp_sched_auto = 4, // mapped to kmp_sch_auto (38)
kmp_sched_default = kmp_sched_static // default scheduling kmp_sched_default = kmp_sched_static // default scheduling
} kmp_sched_t; } kmp_sched_t;
#endif #endif
void __kmps_set_schedule(kmp_sched_t kind, int modifier); void __kmps_set_schedule(kmp_sched_t kind, int modifier);
void __kmps_get_schedule(kmp_sched_t *kind, int *modifier); void __kmps_get_schedule(kmp_sched_t *kind, int *modifier);
#if OMP_40_ENABLED
kmp_proc_bind_t __kmps_get_proc_bind(void); kmp_proc_bind_t __kmps_get_proc_bind(void);
#endif /* OMP_40_ENABLED */
double __kmps_get_wtime(); double __kmps_get_wtime();
double __kmps_get_wtick(); double __kmps_get_wtick();
#ifdef __cplusplus #ifdef __cplusplus
} // extern "C" } // extern "C"
#endif // __cplusplus #endif // __cplusplus
#endif // KMP_STUB_H #endif // KMP_STUB_H
// end of file // // end of file //

runtime/src/kmp_stub.cpp

Show First 20 Lines • Show All 269 Lines • ▼ Show 20 Lines
} // __kmps_set_schedule } // __kmps_set_schedule
void __kmps_get_schedule(kmp_sched_t *kind, int *modifier) { void __kmps_get_schedule(kmp_sched_t *kind, int *modifier) {
i; i;
*kind = __kmps_sched_kind; *kind = __kmps_sched_kind;
*modifier = __kmps_sched_modifier; *modifier = __kmps_sched_modifier;
} // __kmps_get_schedule } // __kmps_get_schedule
#if OMP_40_ENABLED
kmp_proc_bind_t __kmps_get_proc_bind(void) { kmp_proc_bind_t __kmps_get_proc_bind(void) {
i; i;
return 0; return 0;
} // __kmps_get_proc_bind } // __kmps_get_proc_bind
#endif /* OMP_40_ENABLED */
double __kmps_get_wtime(void) { double __kmps_get_wtime(void) {
// Elapsed wall clock time (in second) from "sometime in the past". // Elapsed wall clock time (in second) from "sometime in the past".
double wtime = 0.0; double wtime = 0.0;
i; i;
#if KMP_OS_WINDOWS #if KMP_OS_WINDOWS
if (frequency > 0.0) { if (frequency > 0.0) {
LARGE_INTEGER now; LARGE_INTEGER now;
BOOL status = QueryPerformanceCounter(&now); BOOL status = QueryPerformanceCounter(&now);
Show All 35 Lines#if KMP_OS_WINDOWS
} }
#else #else
// TODO: gettimeofday() returns in microseconds, but what the precision? // TODO: gettimeofday() returns in microseconds, but what the precision?
wtick = 1.0E-06; wtick = 1.0E-06;
#endif #endif
return wtick; return wtick;
} // __kmps_get_wtick } // __kmps_get_wtick
#if OMP_50_ENABLED
/* OpenMP 5.0 Memory Management */ /* OpenMP 5.0 Memory Management */
#if KMP_OS_WINDOWS #if KMP_OS_WINDOWS
omp_allocator_handle_t const omp_null_allocator = 0; omp_allocator_handle_t const omp_null_allocator = 0;
omp_allocator_handle_t const omp_default_mem_alloc = omp_allocator_handle_t const omp_default_mem_alloc =
(omp_allocator_handle_t const)1; (omp_allocator_handle_t const)1;
omp_allocator_handle_t const omp_large_cap_mem_alloc = omp_allocator_handle_t const omp_large_cap_mem_alloc =
(omp_allocator_handle_t const)2; (omp_allocator_handle_t const)2;
omp_allocator_handle_t const omp_const_mem_alloc = omp_allocator_handle_t const omp_const_mem_alloc =
Show All 34 Linessize_t omp_get_affinity_format(char *buffer, size_t size) {
i; i;
return 0; return 0;
} }
void omp_display_affinity(char const *format) { i; } void omp_display_affinity(char const *format) { i; }
size_t omp_capture_affinity(char *buffer, size_t buf_size, char const *format) { size_t omp_capture_affinity(char *buffer, size_t buf_size, char const *format) {
i; i;
return 0; return 0;
} }
#endif /* OMP_50_ENABLED */
// end of file // // end of file //

runtime/src/kmp_taskdeps.h

Show All 11 Lines
//===----------------------------------------------------------------------===// //===----------------------------------------------------------------------===//
#ifndef KMP_TASKDEPS_H #ifndef KMP_TASKDEPS_H
#define KMP_TASKDEPS_H #define KMP_TASKDEPS_H
#include "kmp.h" #include "kmp.h"
#if OMP_40_ENABLED
#define KMP_ACQUIRE_DEPNODE(gtid, n) __kmp_acquire_lock(&(n)->dn.lock, (gtid)) #define KMP_ACQUIRE_DEPNODE(gtid, n) __kmp_acquire_lock(&(n)->dn.lock, (gtid))
#define KMP_RELEASE_DEPNODE(gtid, n) __kmp_release_lock(&(n)->dn.lock, (gtid)) #define KMP_RELEASE_DEPNODE(gtid, n) __kmp_release_lock(&(n)->dn.lock, (gtid))
static inline void __kmp_node_deref(kmp_info_t *thread, kmp_depnode_t *node) { static inline void __kmp_node_deref(kmp_info_t *thread, kmp_depnode_t *node) {
if (!node) if (!node)
return; return;
kmp_int32 n = KMP_ATOMIC_DEC(&node->dn.nrefs) - 1; kmp_int32 n = KMP_ATOMIC_DEC(&node->dn.nrefs) - 1;
▲ Show 20 Lines • Show All 109 Lines • ▼ Show 20 Lines#endif
__kmp_node_deref(thread, node); __kmp_node_deref(thread, node);
KA_TRACE( KA_TRACE(
20, 20,
("__kmp_release_deps: T#%d all successors of %p notified of completion\n", ("__kmp_release_deps: T#%d all successors of %p notified of completion\n",
gtid, task)); gtid, task));
} }
#endif // OMP_40_ENABLED
#endif // KMP_TASKDEPS_H #endif // KMP_TASKDEPS_H

runtime/src/kmp_taskdeps.cpp

Show All 14 Lines
#include "kmp.h" #include "kmp.h"
#include "kmp_io.h" #include "kmp_io.h"
#include "kmp_wait_release.h" #include "kmp_wait_release.h"
#include "kmp_taskdeps.h" #include "kmp_taskdeps.h"
#if OMPT_SUPPORT #if OMPT_SUPPORT
#include "ompt-specific.h" #include "ompt-specific.h"
#endif #endif
#if OMP_40_ENABLED
// TODO: Improve memory allocation? keep a list of pre-allocated structures? // TODO: Improve memory allocation? keep a list of pre-allocated structures?
// allocate in blocks? re-use list finished list entries? // allocate in blocks? re-use list finished list entries?
// TODO: don't use atomic ref counters for stack-allocated nodes. // TODO: don't use atomic ref counters for stack-allocated nodes.
// TODO: find an alternate to atomic refs for heap-allocated nodes? // TODO: find an alternate to atomic refs for heap-allocated nodes?
// TODO: Finish graph output support // TODO: Finish graph output support
// TODO: kmp_lock_t seems a tad to big (and heavy weight) for this. Check other // TODO: kmp_lock_t seems a tad to big (and heavy weight) for this. Check other
// runtime locks // runtime locks
// TODO: Any ITT support needed? // TODO: Any ITT support needed?
▲ Show 20 Lines • Show All 497 Lines • ▼ Show 20 Lines if (ndeps + ndeps_noalias > 0 &&
new_taskdata->ompt_task_info.ndeps = 0; new_taskdata->ompt_task_info.ndeps = 0;
} }
#endif /* OMPT_OPTIONAL */ #endif /* OMPT_OPTIONAL */
#endif /* OMPT_SUPPORT */ #endif /* OMPT_SUPPORT */
bool serial = current_task->td_flags.team_serial || bool serial = current_task->td_flags.team_serial ||
current_task->td_flags.tasking_ser || current_task->td_flags.tasking_ser ||
current_task->td_flags.final; current_task->td_flags.final;
#if OMP_45_ENABLED
kmp_task_team_t *task_team = thread->th.th_task_team; kmp_task_team_t *task_team = thread->th.th_task_team;
serial = serial && !(task_team && task_team->tt.tt_found_proxy_tasks); serial = serial && !(task_team && task_team->tt.tt_found_proxy_tasks);
#endif
if (!serial && (ndeps > 0 || ndeps_noalias > 0)) { if (!serial && (ndeps > 0 || ndeps_noalias > 0)) {
/* if no dependencies have been tracked yet, create the dependence hash */ /* if no dependencies have been tracked yet, create the dependence hash */
if (current_task->td_dephash == NULL) if (current_task->td_dephash == NULL)
current_task->td_dephash = __kmp_dephash_create(thread, current_task); current_task->td_dephash = __kmp_dephash_create(thread, current_task);
#if USE_FAST_MEMORY #if USE_FAST_MEMORY
kmp_depnode_t *node = kmp_depnode_t *node =
▲ Show 20 Lines • Show All 68 Lines • ▼ Show 20 Linesvoid __kmpc_omp_wait_deps(ident_t *loc_ref, kmp_int32 gtid, kmp_int32 ndeps,
kmp_taskdata_t *current_task = thread->th.th_current_task; kmp_taskdata_t *current_task = thread->th.th_current_task;
// We can return immediately as: // We can return immediately as:
// - dependences are not computed in serial teams (except with proxy tasks) // - dependences are not computed in serial teams (except with proxy tasks)
// - if the dephash is not yet created it means we have nothing to wait for // - if the dephash is not yet created it means we have nothing to wait for
bool ignore = current_task->td_flags.team_serial || bool ignore = current_task->td_flags.team_serial ||
current_task->td_flags.tasking_ser || current_task->td_flags.tasking_ser ||
current_task->td_flags.final; current_task->td_flags.final;
#if OMP_45_ENABLED
ignore = ignore && thread->th.th_task_team != NULL && ignore = ignore && thread->th.th_task_team != NULL &&
thread->th.th_task_team->tt.tt_found_proxy_tasks == FALSE; thread->th.th_task_team->tt.tt_found_proxy_tasks == FALSE;
#endif
ignore = ignore || current_task->td_dephash == NULL; ignore = ignore || current_task->td_dephash == NULL;
if (ignore) { if (ignore) {
KA_TRACE(10, ("__kmpc_omp_wait_deps(exit): T#%d has no blocking " KA_TRACE(10, ("__kmpc_omp_wait_deps(exit): T#%d has no blocking "
"dependencies : loc=%p\n", "dependencies : loc=%p\n",
gtid, loc_ref)); gtid, loc_ref));
return; return;
} }
Show All 16 Lines while (node.dn.npredecessors > 0) {
flag.execute_tasks(thread, gtid, FALSE, flag.execute_tasks(thread, gtid, FALSE,
&thread_finished USE_ITT_BUILD_ARG(NULL), &thread_finished USE_ITT_BUILD_ARG(NULL),
__kmp_task_stealing_constraint); __kmp_task_stealing_constraint);
} }
KA_TRACE(10, ("__kmpc_omp_wait_deps(exit): T#%d finished waiting : loc=%p\n", KA_TRACE(10, ("__kmpc_omp_wait_deps(exit): T#%d finished waiting : loc=%p\n",
gtid, loc_ref)); gtid, loc_ref));
} }
#endif /* OMP_40_ENABLED */

runtime/src/kmp_tasking.cpp

Show All 24 Lines
/* forward declaration */ /* forward declaration */
static void __kmp_enable_tasking(kmp_task_team_t *task_team, static void __kmp_enable_tasking(kmp_task_team_t *task_team,
kmp_info_t *this_thr); kmp_info_t *this_thr);
static void __kmp_alloc_task_deque(kmp_info_t *thread, static void __kmp_alloc_task_deque(kmp_info_t *thread,
kmp_thread_data_t *thread_data); kmp_thread_data_t *thread_data);
static int __kmp_realloc_task_threads_data(kmp_info_t *thread, static int __kmp_realloc_task_threads_data(kmp_info_t *thread,
kmp_task_team_t *task_team); kmp_task_team_t *task_team);
#if OMP_45_ENABLED
static void __kmp_bottom_half_finish_proxy(kmp_int32 gtid, kmp_task_t *ptask); static void __kmp_bottom_half_finish_proxy(kmp_int32 gtid, kmp_task_t *ptask);
#endif
#ifdef BUILD_TIED_TASK_STACK #ifdef BUILD_TIED_TASK_STACK
// __kmp_trace_task_stack: print the tied tasks from the task stack in order // __kmp_trace_task_stack: print the tied tasks from the task stack in order
// from top do bottom // from top do bottom
// //
// gtid: global thread identifier for thread containing stack // gtid: global thread identifier for thread containing stack
// thread_data: thread data for task team thread containing stack // thread_data: thread data for task team thread containing stack
▲ Show 20 Lines • Show All 341 Lines • ▼ Show 20 Lines if (__kmp_enable_task_throttling &&
locked = 1; locked = 1;
// expand deque to push the task which is not allowed to execute // expand deque to push the task which is not allowed to execute
__kmp_realloc_task_deque(thread, thread_data); __kmp_realloc_task_deque(thread, thread_data);
} }
} }
// Lock the deque for the task push operation // Lock the deque for the task push operation
if (!locked) { if (!locked) {
__kmp_acquire_bootstrap_lock(&thread_data->td.td_deque_lock); __kmp_acquire_bootstrap_lock(&thread_data->td.td_deque_lock);
#if OMP_45_ENABLED
// Need to recheck as we can get a proxy task from thread outside of OpenMP // Need to recheck as we can get a proxy task from thread outside of OpenMP
if (TCR_4(thread_data->td.td_deque_ntasks) >= if (TCR_4(thread_data->td.td_deque_ntasks) >=
TASK_DEQUE_SIZE(thread_data->td)) { TASK_DEQUE_SIZE(thread_data->td)) {
if (__kmp_enable_task_throttling && if (__kmp_enable_task_throttling &&
__kmp_task_is_allowed(gtid, __kmp_task_stealing_constraint, taskdata, __kmp_task_is_allowed(gtid, __kmp_task_stealing_constraint, taskdata,
thread->th.th_current_task)) { thread->th.th_current_task)) {
__kmp_release_bootstrap_lock(&thread_data->td.td_deque_lock); __kmp_release_bootstrap_lock(&thread_data->td.td_deque_lock);
KA_TRACE(20, ("__kmp_push_task: T#%d deque is full on 2nd check; " KA_TRACE(20, ("__kmp_push_task: T#%d deque is full on 2nd check; "
"returning TASK_NOT_PUSHED for task %p\n", "returning TASK_NOT_PUSHED for task %p\n",
gtid, taskdata)); gtid, taskdata));
return TASK_NOT_PUSHED; return TASK_NOT_PUSHED;
} else { } else {
// expand deque to push the task which is not allowed to execute // expand deque to push the task which is not allowed to execute
__kmp_realloc_task_deque(thread, thread_data); __kmp_realloc_task_deque(thread, thread_data);
} }
} }
#endif
} }
// Must have room since no thread can add tasks but calling thread // Must have room since no thread can add tasks but calling thread
KMP_DEBUG_ASSERT(TCR_4(thread_data->td.td_deque_ntasks) < KMP_DEBUG_ASSERT(TCR_4(thread_data->td.td_deque_ntasks) <
TASK_DEQUE_SIZE(thread_data->td)); TASK_DEQUE_SIZE(thread_data->td));
thread_data->td.td_deque[thread_data->td.td_deque_tail] = thread_data->td.td_deque[thread_data->td.td_deque_tail] =
taskdata; // Push taskdata taskdata; // Push taskdata
// Wrap index. // Wrap index.
▲ Show 20 Lines • Show All 127 Lines • ▼ Show 20 Lines
static inline void __ompt_task_init(kmp_taskdata_t *task, int tid) { static inline void __ompt_task_init(kmp_taskdata_t *task, int tid) {
// The calls to __ompt_task_init already have the ompt_enabled condition. // The calls to __ompt_task_init already have the ompt_enabled condition.
task->ompt_task_info.task_data.value = 0; task->ompt_task_info.task_data.value = 0;
task->ompt_task_info.frame.exit_frame = ompt_data_none; task->ompt_task_info.frame.exit_frame = ompt_data_none;
task->ompt_task_info.frame.enter_frame = ompt_data_none; task->ompt_task_info.frame.enter_frame = ompt_data_none;
task->ompt_task_info.frame.exit_frame_flags = ompt_frame_runtime | ompt_frame_framepointer; task->ompt_task_info.frame.exit_frame_flags = ompt_frame_runtime | ompt_frame_framepointer;
task->ompt_task_info.frame.enter_frame_flags = ompt_frame_runtime | ompt_frame_framepointer; task->ompt_task_info.frame.enter_frame_flags = ompt_frame_runtime | ompt_frame_framepointer;
#if OMP_40_ENABLED
task->ompt_task_info.ndeps = 0; task->ompt_task_info.ndeps = 0;
task->ompt_task_info.deps = NULL; task->ompt_task_info.deps = NULL;
#endif /* OMP_40_ENABLED */
} }
// __ompt_task_start: // __ompt_task_start:
// Build and trigger task-begin event // Build and trigger task-begin event
static inline void __ompt_task_start(kmp_task_t *task, static inline void __ompt_task_start(kmp_task_t *task,
kmp_taskdata_t *current_task, kmp_taskdata_t *current_task,
kmp_int32 gtid) { kmp_int32 gtid) {
kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(task); kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(task);
▲ Show 20 Lines • Show All 170 Lines • ▼ Show 20 Lines
// children // children
// //
// gtid: Global thread ID of calling thread // gtid: Global thread ID of calling thread
// taskdata: task to free // taskdata: task to free
// thread: thread data structure of caller // thread: thread data structure of caller
static void __kmp_free_task_and_ancestors(kmp_int32 gtid, static void __kmp_free_task_and_ancestors(kmp_int32 gtid,
kmp_taskdata_t *taskdata, kmp_taskdata_t *taskdata,
kmp_info_t *thread) { kmp_info_t *thread) {
#if OMP_45_ENABLED
// Proxy tasks must always be allowed to free their parents // Proxy tasks must always be allowed to free their parents
// because they can be run in background even in serial mode. // because they can be run in background even in serial mode.
kmp_int32 team_serial = kmp_int32 team_serial =
(taskdata->td_flags.team_serial || taskdata->td_flags.tasking_ser) && (taskdata->td_flags.team_serial || taskdata->td_flags.tasking_ser) &&
!taskdata->td_flags.proxy; !taskdata->td_flags.proxy;
#else
kmp_int32 team_serial =
taskdata->td_flags.team_serial || taskdata->td_flags.tasking_ser;
#endif
KMP_DEBUG_ASSERT(taskdata->td_flags.tasktype == TASK_EXPLICIT); KMP_DEBUG_ASSERT(taskdata->td_flags.tasktype == TASK_EXPLICIT);
kmp_int32 children = KMP_ATOMIC_DEC(&taskdata->td_allocated_child_tasks) - 1; kmp_int32 children = KMP_ATOMIC_DEC(&taskdata->td_allocated_child_tasks) - 1;
KMP_DEBUG_ASSERT(children >= 0); KMP_DEBUG_ASSERT(children >= 0);
// Now, go up the ancestor tree to see if any ancestors can now be freed. // Now, go up the ancestor tree to see if any ancestors can now be freed.
while (children == 0) { while (children == 0) {
kmp_taskdata_t *parent_taskdata = taskdata->td_parent; kmp_taskdata_t *parent_taskdata = taskdata->td_parent;
▲ Show 20 Lines • Show All 48 Lines • ▼ Show 20 Lines
// gtid: global thread ID for calling thread // gtid: global thread ID for calling thread
// task: task to be finished // task: task to be finished
// resumed_task: task to be resumed. (may be NULL if task is serialized) // resumed_task: task to be resumed. (may be NULL if task is serialized)
template <bool ompt> template <bool ompt>
static void __kmp_task_finish(kmp_int32 gtid, kmp_task_t *task, static void __kmp_task_finish(kmp_int32 gtid, kmp_task_t *task,
kmp_taskdata_t *resumed_task) { kmp_taskdata_t *resumed_task) {
kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(task); kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(task);
kmp_info_t *thread = __kmp_threads[gtid]; kmp_info_t *thread = __kmp_threads[gtid];
#if OMP_45_ENABLED
kmp_task_team_t *task_team = kmp_task_team_t *task_team =
thread->th.th_task_team; // might be NULL for serial teams... thread->th.th_task_team; // might be NULL for serial teams...
#endif // OMP_45_ENABLED
kmp_int32 children = 0; kmp_int32 children = 0;
KA_TRACE(10, ("__kmp_task_finish(enter): T#%d finishing task %p and resuming " KA_TRACE(10, ("__kmp_task_finish(enter): T#%d finishing task %p and resuming "
"task %p\n", "task %p\n",
gtid, taskdata, resumed_task)); gtid, taskdata, resumed_task));
KMP_DEBUG_ASSERT(taskdata->td_flags.tasktype == TASK_EXPLICIT); KMP_DEBUG_ASSERT(taskdata->td_flags.tasktype == TASK_EXPLICIT);
▲ Show 20 Lines • Show All 41 Lines • ▼ Show 20 Lines if (node && (node->dn.mtx_num_locks < 0)) {
for (int i = node->dn.mtx_num_locks - 1; i >= 0; --i) { for (int i = node->dn.mtx_num_locks - 1; i >= 0; --i) {
KMP_DEBUG_ASSERT(node->dn.mtx_locks[i] != NULL); KMP_DEBUG_ASSERT(node->dn.mtx_locks[i] != NULL);
__kmp_release_lock(node->dn.mtx_locks[i], gtid); __kmp_release_lock(node->dn.mtx_locks[i], gtid);
} }
} }
KMP_DEBUG_ASSERT(taskdata->td_flags.complete == 0); KMP_DEBUG_ASSERT(taskdata->td_flags.complete == 0);
bool detach = false; bool detach = false;
#if OMP_50_ENABLED
if (taskdata->td_flags.detachable == TASK_DETACHABLE) { if (taskdata->td_flags.detachable == TASK_DETACHABLE) {
if (taskdata->td_allow_completion_event.type == if (taskdata->td_allow_completion_event.type ==
KMP_EVENT_ALLOW_COMPLETION) { KMP_EVENT_ALLOW_COMPLETION) {
// event hasn't been fulfilled yet. Try to detach task. // event hasn't been fulfilled yet. Try to detach task.
__kmp_acquire_tas_lock(&taskdata->td_allow_completion_event.lock, gtid); __kmp_acquire_tas_lock(&taskdata->td_allow_completion_event.lock, gtid);
if (taskdata->td_allow_completion_event.type == if (taskdata->td_allow_completion_event.type ==
KMP_EVENT_ALLOW_COMPLETION) { KMP_EVENT_ALLOW_COMPLETION) {
taskdata->td_flags.proxy = TASK_PROXY; // proxify! taskdata->td_flags.proxy = TASK_PROXY; // proxify!
detach = true; detach = true;
} }
__kmp_release_tas_lock(&taskdata->td_allow_completion_event.lock, gtid); __kmp_release_tas_lock(&taskdata->td_allow_completion_event.lock, gtid);
} }
} }
#endif
KMP_DEBUG_ASSERT(taskdata->td_flags.started == 1); KMP_DEBUG_ASSERT(taskdata->td_flags.started == 1);
KMP_DEBUG_ASSERT(taskdata->td_flags.freed == 0); KMP_DEBUG_ASSERT(taskdata->td_flags.freed == 0);
if (!detach) { if (!detach) {
taskdata->td_flags.complete = 1; // mark the task as completed taskdata->td_flags.complete = 1; // mark the task as completed
// Only need to keep track of count if team parallel and tasking not // Only need to keep track of count if team parallel and tasking not
// serialized // serialized
if (!(taskdata->td_flags.team_serial || taskdata->td_flags.tasking_ser)) { if (!(taskdata->td_flags.team_serial || taskdata->td_flags.tasking_ser)) {
// Predecrement simulated by "- 1" calculation // Predecrement simulated by "- 1" calculation
children = children =
KMP_ATOMIC_DEC(&taskdata->td_parent->td_incomplete_child_tasks) - 1; KMP_ATOMIC_DEC(&taskdata->td_parent->td_incomplete_child_tasks) - 1;
KMP_DEBUG_ASSERT(children >= 0); KMP_DEBUG_ASSERT(children >= 0);
#if OMP_40_ENABLED
if (taskdata->td_taskgroup) if (taskdata->td_taskgroup)
KMP_ATOMIC_DEC(&taskdata->td_taskgroup->count); KMP_ATOMIC_DEC(&taskdata->td_taskgroup->count);
__kmp_release_deps(gtid, taskdata); __kmp_release_deps(gtid, taskdata);
#if OMP_45_ENABLED
} else if (task_team && task_team->tt.tt_found_proxy_tasks) { } else if (task_team && task_team->tt.tt_found_proxy_tasks) {
// if we found proxy tasks there could exist a dependency chain // if we found proxy tasks there could exist a dependency chain
// with the proxy task as origin // with the proxy task as origin
__kmp_release_deps(gtid, taskdata); __kmp_release_deps(gtid, taskdata);
#endif // OMP_45_ENABLED
#endif // OMP_40_ENABLED
} }
} }
// td_flags.executing must be marked as 0 after __kmp_release_deps has been // td_flags.executing must be marked as 0 after __kmp_release_deps has been
// called. Othertwise, if a task is executed immediately from the release_deps // called. Othertwise, if a task is executed immediately from the release_deps
// code, the flag will be reset to 1 again by this same function // code, the flag will be reset to 1 again by this same function
KMP_DEBUG_ASSERT(taskdata->td_flags.executing == 1); KMP_DEBUG_ASSERT(taskdata->td_flags.executing == 1);
taskdata->td_flags.executing = 0; // suspend the finishing task taskdata->td_flags.executing = 0; // suspend the finishing task
KA_TRACE( KA_TRACE(
20, ("__kmp_task_finish: T#%d finished task %p, %d incomplete children\n", 20, ("__kmp_task_finish: T#%d finished task %p, %d incomplete children\n",
gtid, taskdata, children)); gtid, taskdata, children));
#if OMP_40_ENABLED
/* If the tasks' destructor thunk flag has been set, we need to invoke the /* If the tasks' destructor thunk flag has been set, we need to invoke the
destructor thunk that has been generated by the compiler. The code is destructor thunk that has been generated by the compiler. The code is
placed here, since at this point other tasks might have been released placed here, since at this point other tasks might have been released
hence overlapping the destructor invokations with some other work in the hence overlapping the destructor invokations with some other work in the
released tasks. The OpenMP spec is not specific on when the destructors released tasks. The OpenMP spec is not specific on when the destructors
are invoked, so we should be free to choose. */ are invoked, so we should be free to choose. */
if (taskdata->td_flags.destructors_thunk) { if (taskdata->td_flags.destructors_thunk) {
kmp_routine_entry_t destr_thunk = task->data1.destructors; kmp_routine_entry_t destr_thunk = task->data1.destructors;
KMP_ASSERT(destr_thunk); KMP_ASSERT(destr_thunk);
destr_thunk(gtid, task); destr_thunk(gtid, task);
} }
#endif // OMP_40_ENABLED
// bookkeeping for resuming task: // bookkeeping for resuming task:
// GEH - note tasking_ser => task_serial // GEH - note tasking_ser => task_serial
KMP_DEBUG_ASSERT( KMP_DEBUG_ASSERT(
(taskdata->td_flags.tasking_ser || taskdata->td_flags.task_serial) == (taskdata->td_flags.tasking_ser || taskdata->td_flags.task_serial) ==
taskdata->td_flags.task_serial); taskdata->td_flags.task_serial);
if (taskdata->td_flags.task_serial) { if (taskdata->td_flags.task_serial) {
if (resumed_task == NULL) { if (resumed_task == NULL) {
▲ Show 20 Lines • Show All 115 Lines • ▼ Show 20 Linesvoid __kmp_init_implicit_task(ident_t *loc_ref, kmp_info_t *this_thr,
// in debugger) // in debugger)
task->td_ident = loc_ref; task->td_ident = loc_ref;
task->td_taskwait_ident = NULL; task->td_taskwait_ident = NULL;
task->td_taskwait_counter = 0; task->td_taskwait_counter = 0;
task->td_taskwait_thread = 0; task->td_taskwait_thread = 0;
task->td_flags.tiedness = TASK_TIED; task->td_flags.tiedness = TASK_TIED;
task->td_flags.tasktype = TASK_IMPLICIT; task->td_flags.tasktype = TASK_IMPLICIT;
#if OMP_45_ENABLED
task->td_flags.proxy = TASK_FULL; task->td_flags.proxy = TASK_FULL;
#endif
// All implicit tasks are executed immediately, not deferred // All implicit tasks are executed immediately, not deferred
task->td_flags.task_serial = 1; task->td_flags.task_serial = 1;
task->td_flags.tasking_ser = (__kmp_tasking_mode == tskm_immediate_exec); task->td_flags.tasking_ser = (__kmp_tasking_mode == tskm_immediate_exec);
task->td_flags.team_serial = (team->t.t_serialized) ? 1 : 0; task->td_flags.team_serial = (team->t.t_serialized) ? 1 : 0;
task->td_flags.started = 1; task->td_flags.started = 1;
task->td_flags.executing = 1; task->td_flags.executing = 1;
task->td_flags.complete = 0; task->td_flags.complete = 0;
task->td_flags.freed = 0; task->td_flags.freed = 0;
#if OMP_40_ENABLED
task->td_depnode = NULL; task->td_depnode = NULL;
#endif
task->td_last_tied = task; task->td_last_tied = task;
#if OMP_50_ENABLED
task->td_allow_completion_event.type = KMP_EVENT_UNINITIALIZED; task->td_allow_completion_event.type = KMP_EVENT_UNINITIALIZED;
#endif
if (set_curr_task) { // only do this init first time thread is created if (set_curr_task) { // only do this init first time thread is created
KMP_ATOMIC_ST_REL(&task->td_incomplete_child_tasks, 0); KMP_ATOMIC_ST_REL(&task->td_incomplete_child_tasks, 0);
// Not used: don't need to deallocate implicit task // Not used: don't need to deallocate implicit task
KMP_ATOMIC_ST_REL(&task->td_allocated_child_tasks, 0); KMP_ATOMIC_ST_REL(&task->td_allocated_child_tasks, 0);
#if OMP_40_ENABLED
task->td_taskgroup = NULL; // An implicit task does not have taskgroup task->td_taskgroup = NULL; // An implicit task does not have taskgroup
task->td_dephash = NULL; task->td_dephash = NULL;
#endif
__kmp_push_current_task_to_thread(this_thr, team, tid); __kmp_push_current_task_to_thread(this_thr, team, tid);
} else { } else {
KMP_DEBUG_ASSERT(task->td_incomplete_child_tasks == 0); KMP_DEBUG_ASSERT(task->td_incomplete_child_tasks == 0);
KMP_DEBUG_ASSERT(task->td_allocated_child_tasks == 0); KMP_DEBUG_ASSERT(task->td_allocated_child_tasks == 0);
} }
#if OMPT_SUPPORT #if OMPT_SUPPORT
if (UNLIKELY(ompt_enabled.enabled)) if (UNLIKELY(ompt_enabled.enabled))
▲ Show 20 Lines • Show All 93 Lines • ▼ Show 20 Lineskmp_task_t *__kmp_task_alloc(ident_t *loc_ref, kmp_int32 gtid,
} }
if (flags->tiedness == TASK_UNTIED && !team->t.t_serialized) { if (flags->tiedness == TASK_UNTIED && !team->t.t_serialized) {
// Untied task encountered causes the TSC algorithm to check entire deque of // Untied task encountered causes the TSC algorithm to check entire deque of
// the victim thread. If no untied task encountered, then checking the head // the victim thread. If no untied task encountered, then checking the head
// of the deque should be enough. // of the deque should be enough.
KMP_CHECK_UPDATE(thread->th.th_task_team->tt.tt_untied_task_encountered, 1); KMP_CHECK_UPDATE(thread->th.th_task_team->tt.tt_untied_task_encountered, 1);
} }
#if OMP_50_ENABLED
// Detachable tasks are not proxy tasks yet but could be in the future. Doing // Detachable tasks are not proxy tasks yet but could be in the future. Doing
// the tasking setup // the tasking setup
// when that happens is too late. // when that happens is too late.
if (flags->proxy == TASK_PROXY || flags->detachable == TASK_DETACHABLE) { if (flags->proxy == TASK_PROXY || flags->detachable == TASK_DETACHABLE) {
#endif
#if OMP_45_ENABLED
if (flags->proxy == TASK_PROXY) { if (flags->proxy == TASK_PROXY) {
flags->tiedness = TASK_UNTIED; flags->tiedness = TASK_UNTIED;
flags->merged_if0 = 1; flags->merged_if0 = 1;
#if OMP_50_ENABLED
} }
#endif
/* are we running in a sequential parallel or tskm_immediate_exec... we need /* are we running in a sequential parallel or tskm_immediate_exec... we need
tasking support enabled */ tasking support enabled */
if ((thread->th.th_task_team) == NULL) { if ((thread->th.th_task_team) == NULL) {
/* This should only happen if the team is serialized /* This should only happen if the team is serialized
setup a task team and propagate it to the thread */ setup a task team and propagate it to the thread */
KMP_DEBUG_ASSERT(team->t.t_serialized); KMP_DEBUG_ASSERT(team->t.t_serialized);
KA_TRACE(30, KA_TRACE(30,
("T#%d creating task team in __kmp_task_alloc for proxy task\n", ("T#%d creating task team in __kmp_task_alloc for proxy task\n",
Show All 17 Lines if (!KMP_TASKING_ENABLED(task_team)) {
if (thread_data->td.td_deque == NULL) { if (thread_data->td.td_deque == NULL) {
__kmp_alloc_task_deque(thread, thread_data); __kmp_alloc_task_deque(thread, thread_data);
} }
} }
if (task_team->tt.tt_found_proxy_tasks == FALSE) if (task_team->tt.tt_found_proxy_tasks == FALSE)
TCW_4(task_team->tt.tt_found_proxy_tasks, TRUE); TCW_4(task_team->tt.tt_found_proxy_tasks, TRUE);
} }
#endif
// Calculate shared structure offset including padding after kmp_task_t struct // Calculate shared structure offset including padding after kmp_task_t struct
// to align pointers in shared struct // to align pointers in shared struct
shareds_offset = sizeof(kmp_taskdata_t) + sizeof_kmp_task_t; shareds_offset = sizeof(kmp_taskdata_t) + sizeof_kmp_task_t;
shareds_offset = __kmp_round_up_to_val(shareds_offset, sizeof(void *)); shareds_offset = __kmp_round_up_to_val(shareds_offset, sizeof(void *));
// Allocate a kmp_taskdata_t block and a kmp_task_t block. // Allocate a kmp_taskdata_t block and a kmp_task_t block.
KA_TRACE(30, ("__kmp_task_alloc: T#%d First malloc size: %ld\n", gtid, KA_TRACE(30, ("__kmp_task_alloc: T#%d First malloc size: %ld\n", gtid,
Show All 39 Lines#endif
taskdata->td_parent = parent_task; taskdata->td_parent = parent_task;
taskdata->td_level = parent_task->td_level + 1; // increment nesting level taskdata->td_level = parent_task->td_level + 1; // increment nesting level
KMP_ATOMIC_ST_RLX(&taskdata->td_untied_count, 0); KMP_ATOMIC_ST_RLX(&taskdata->td_untied_count, 0);
taskdata->td_ident = loc_ref; taskdata->td_ident = loc_ref;
taskdata->td_taskwait_ident = NULL; taskdata->td_taskwait_ident = NULL;
taskdata->td_taskwait_counter = 0; taskdata->td_taskwait_counter = 0;
taskdata->td_taskwait_thread = 0; taskdata->td_taskwait_thread = 0;
KMP_DEBUG_ASSERT(taskdata->td_parent != NULL); KMP_DEBUG_ASSERT(taskdata->td_parent != NULL);
#if OMP_45_ENABLED
// avoid copying icvs for proxy tasks // avoid copying icvs for proxy tasks
if (flags->proxy == TASK_FULL) if (flags->proxy == TASK_FULL)
#endif
copy_icvs(&taskdata->td_icvs, &taskdata->td_parent->td_icvs); copy_icvs(&taskdata->td_icvs, &taskdata->td_parent->td_icvs);
taskdata->td_flags.tiedness = flags->tiedness; taskdata->td_flags.tiedness = flags->tiedness;
taskdata->td_flags.final = flags->final; taskdata->td_flags.final = flags->final;
taskdata->td_flags.merged_if0 = flags->merged_if0; taskdata->td_flags.merged_if0 = flags->merged_if0;
#if OMP_40_ENABLED
taskdata->td_flags.destructors_thunk = flags->destructors_thunk; taskdata->td_flags.destructors_thunk = flags->destructors_thunk;
#endif // OMP_40_ENABLED
#if OMP_45_ENABLED
taskdata->td_flags.proxy = flags->proxy; taskdata->td_flags.proxy = flags->proxy;
#if OMP_50_ENABLED
taskdata->td_flags.detachable = flags->detachable; taskdata->td_flags.detachable = flags->detachable;
#endif
taskdata->td_task_team = thread->th.th_task_team; taskdata->td_task_team = thread->th.th_task_team;
taskdata->td_size_alloc = shareds_offset + sizeof_shareds; taskdata->td_size_alloc = shareds_offset + sizeof_shareds;
#endif
taskdata->td_flags.tasktype = TASK_EXPLICIT; taskdata->td_flags.tasktype = TASK_EXPLICIT;
// GEH - TODO: fix this to copy parent task's value of tasking_ser flag // GEH - TODO: fix this to copy parent task's value of tasking_ser flag
taskdata->td_flags.tasking_ser = (__kmp_tasking_mode == tskm_immediate_exec); taskdata->td_flags.tasking_ser = (__kmp_tasking_mode == tskm_immediate_exec);
// GEH - TODO: fix this to copy parent task's value of team_serial flag // GEH - TODO: fix this to copy parent task's value of team_serial flag
taskdata->td_flags.team_serial = (team->t.t_serialized) ? 1 : 0; taskdata->td_flags.team_serial = (team->t.t_serialized) ? 1 : 0;
Show All 10 Lines#endif
taskdata->td_flags.complete = 0; taskdata->td_flags.complete = 0;
taskdata->td_flags.freed = 0; taskdata->td_flags.freed = 0;
taskdata->td_flags.native = flags->native; taskdata->td_flags.native = flags->native;
KMP_ATOMIC_ST_RLX(&taskdata->td_incomplete_child_tasks, 0); KMP_ATOMIC_ST_RLX(&taskdata->td_incomplete_child_tasks, 0);
// start at one because counts current task and children // start at one because counts current task and children
KMP_ATOMIC_ST_RLX(&taskdata->td_allocated_child_tasks, 1); KMP_ATOMIC_ST_RLX(&taskdata->td_allocated_child_tasks, 1);
#if OMP_40_ENABLED
taskdata->td_taskgroup = taskdata->td_taskgroup =
parent_task->td_taskgroup; // task inherits taskgroup from the parent task parent_task->td_taskgroup; // task inherits taskgroup from the parent task
taskdata->td_dephash = NULL; taskdata->td_dephash = NULL;
taskdata->td_depnode = NULL; taskdata->td_depnode = NULL;
#endif
if (flags->tiedness == TASK_UNTIED) if (flags->tiedness == TASK_UNTIED)
taskdata->td_last_tied = NULL; // will be set when the task is scheduled taskdata->td_last_tied = NULL; // will be set when the task is scheduled
else else
taskdata->td_last_tied = taskdata; taskdata->td_last_tied = taskdata;
#if OMP_50_ENABLED
taskdata->td_allow_completion_event.type = KMP_EVENT_UNINITIALIZED; taskdata->td_allow_completion_event.type = KMP_EVENT_UNINITIALIZED;
#endif
#if OMPT_SUPPORT #if OMPT_SUPPORT
if (UNLIKELY(ompt_enabled.enabled)) if (UNLIKELY(ompt_enabled.enabled))
__ompt_task_init(taskdata, gtid); __ompt_task_init(taskdata, gtid);
#endif #endif
// Only need to keep track of child task counts if team parallel and tasking not // Only need to keep track of child task counts if team parallel and tasking not
// serialized or if it is a proxy or detachable task // serialized or if it is a proxy or detachable task
#if OMP_45_ENABLED
if (flags->proxy == TASK_PROXY || if (flags->proxy == TASK_PROXY ||
#if OMP_50_ENABLED
flags->detachable == TASK_DETACHABLE || flags->detachable == TASK_DETACHABLE ||
#endif
!(taskdata->td_flags.team_serial || taskdata->td_flags.tasking_ser)) !(taskdata->td_flags.team_serial || taskdata->td_flags.tasking_ser))
#else
if (!(taskdata->td_flags.team_serial || taskdata->td_flags.tasking_ser))
#endif
{ {
KMP_ATOMIC_INC(&parent_task->td_incomplete_child_tasks); KMP_ATOMIC_INC(&parent_task->td_incomplete_child_tasks);
#if OMP_40_ENABLED
if (parent_task->td_taskgroup) if (parent_task->td_taskgroup)
KMP_ATOMIC_INC(&parent_task->td_taskgroup->count); KMP_ATOMIC_INC(&parent_task->td_taskgroup->count);
#endif
// Only need to keep track of allocated child tasks for explicit tasks since // Only need to keep track of allocated child tasks for explicit tasks since
// implicit not deallocated // implicit not deallocated
if (taskdata->td_parent->td_flags.tasktype == TASK_EXPLICIT) { if (taskdata->td_parent->td_flags.tasktype == TASK_EXPLICIT) {
KMP_ATOMIC_INC(&taskdata->td_parent->td_allocated_child_tasks); KMP_ATOMIC_INC(&taskdata->td_parent->td_allocated_child_tasks);
} }
} }
KA_TRACE(20, ("__kmp_task_alloc(exit): T#%d created task %p parent=%p\n", KA_TRACE(20, ("__kmp_task_alloc(exit): T#%d created task %p parent=%p\n",
gtid, taskdata, taskdata->td_parent)); gtid, taskdata, taskdata->td_parent));
ANNOTATE_HAPPENS_BEFORE(task); ANNOTATE_HAPPENS_BEFORE(task);
return task; return task;
} }
kmp_task_t *__kmpc_omp_task_alloc(ident_t *loc_ref, kmp_int32 gtid, kmp_task_t *__kmpc_omp_task_alloc(ident_t *loc_ref, kmp_int32 gtid,
kmp_int32 flags, size_t sizeof_kmp_task_t, kmp_int32 flags, size_t sizeof_kmp_task_t,
size_t sizeof_shareds, size_t sizeof_shareds,
kmp_routine_entry_t task_entry) { kmp_routine_entry_t task_entry) {
kmp_task_t *retval; kmp_task_t *retval;
kmp_tasking_flags_t *input_flags = (kmp_tasking_flags_t *)&flags; kmp_tasking_flags_t *input_flags = (kmp_tasking_flags_t *)&flags;
input_flags->native = FALSE; input_flags->native = FALSE;
// __kmp_task_alloc() sets up all other runtime flags // __kmp_task_alloc() sets up all other runtime flags
#if OMP_45_ENABLED
#if OMP_50_ENABLED
KA_TRACE(10, ("__kmpc_omp_task_alloc(enter): T#%d loc=%p, flags=(%s %s %s) " KA_TRACE(10, ("__kmpc_omp_task_alloc(enter): T#%d loc=%p, flags=(%s %s %s) "
"sizeof_task=%ld sizeof_shared=%ld entry=%p\n", "sizeof_task=%ld sizeof_shared=%ld entry=%p\n",
gtid, loc_ref, input_flags->tiedness ? "tied " : "untied", gtid, loc_ref, input_flags->tiedness ? "tied " : "untied",
input_flags->proxy ? "proxy" : "", input_flags->proxy ? "proxy" : "",
input_flags->detachable ? "detachable" : "", sizeof_kmp_task_t, input_flags->detachable ? "detachable" : "", sizeof_kmp_task_t,
sizeof_shareds, task_entry)); sizeof_shareds, task_entry));
#else
KA_TRACE(10, ("__kmpc_omp_task_alloc(enter): T#%d loc=%p, flags=(%s %s) "
"sizeof_task=%ld sizeof_shared=%ld entry=%p\n",
gtid, loc_ref, input_flags->tiedness ? "tied " : "untied",
input_flags->proxy ? "proxy" : "", sizeof_kmp_task_t,
sizeof_shareds, task_entry));
#endif
#else
KA_TRACE(10, ("__kmpc_omp_task_alloc(enter): T#%d loc=%p, flags=(%s) "
"sizeof_task=%ld sizeof_shared=%ld entry=%p\n",
gtid, loc_ref, input_flags->tiedness ? "tied " : "untied",
sizeof_kmp_task_t, sizeof_shareds, task_entry));
#endif
retval = __kmp_task_alloc(loc_ref, gtid, input_flags, sizeof_kmp_task_t, retval = __kmp_task_alloc(loc_ref, gtid, input_flags, sizeof_kmp_task_t,
sizeof_shareds, task_entry); sizeof_shareds, task_entry);
KA_TRACE(20, ("__kmpc_omp_task_alloc(exit): T#%d retval %p\n", gtid, retval)); KA_TRACE(20, ("__kmpc_omp_task_alloc(exit): T#%d retval %p\n", gtid, retval));
return retval; return retval;
} }
kmp_task_t *__kmpc_omp_target_task_alloc(ident_t *loc_ref, kmp_int32 gtid, kmp_task_t *__kmpc_omp_target_task_alloc(ident_t *loc_ref, kmp_int32 gtid,
kmp_int32 flags, kmp_int32 flags,
size_t sizeof_kmp_task_t, size_t sizeof_kmp_task_t,
size_t sizeof_shareds, size_t sizeof_shareds,
kmp_routine_entry_t task_entry, kmp_routine_entry_t task_entry,
kmp_int64 device_id) { kmp_int64 device_id) {
return __kmpc_omp_task_alloc(loc_ref, gtid, flags, sizeof_kmp_task_t, return __kmpc_omp_task_alloc(loc_ref, gtid, flags, sizeof_kmp_task_t,
sizeof_shareds, task_entry); sizeof_shareds, task_entry);
} }
#if OMP_50_ENABLED
/*! /*!
@ingroup TASKING @ingroup TASKING
@param loc_ref location of the original task directive @param loc_ref location of the original task directive
@param gtid Global Thread ID of encountering thread @param gtid Global Thread ID of encountering thread
@param new_task task thunk allocated by __kmpc_omp_task_alloc() for the ''new @param new_task task thunk allocated by __kmpc_omp_task_alloc() for the ''new
task'' task''
@param naffins Number of affinity items @param naffins Number of affinity items
@param affin_list List of affinity items @param affin_list List of affinity items
@return Returns non-zero if registering affinity information was not successful. @return Returns non-zero if registering affinity information was not successful.
Returns 0 if registration was successful Returns 0 if registration was successful
This entry registers the affinity information attached to a task with the task This entry registers the affinity information attached to a task with the task
thunk structure kmp_taskdata_t. thunk structure kmp_taskdata_t.
*/ */
kmp_int32 kmp_int32
__kmpc_omp_reg_task_with_affinity(ident_t *loc_ref, kmp_int32 gtid, __kmpc_omp_reg_task_with_affinity(ident_t *loc_ref, kmp_int32 gtid,
kmp_task_t *new_task, kmp_int32 naffins, kmp_task_t *new_task, kmp_int32 naffins,
kmp_task_affinity_info_t *affin_list) { kmp_task_affinity_info_t *affin_list) {
return 0; return 0;
} }
#endif
// __kmp_invoke_task: invoke the specified task // __kmp_invoke_task: invoke the specified task
// //
// gtid: global thread ID of caller // gtid: global thread ID of caller
// task: the task to invoke // task: the task to invoke
// current_task: the task to resume after task invokation // current_task: the task to resume after task invokation
static void __kmp_invoke_task(kmp_int32 gtid, kmp_task_t *task, static void __kmp_invoke_task(kmp_int32 gtid, kmp_task_t *task,
kmp_taskdata_t *current_task) { kmp_taskdata_t *current_task) {
kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(task); kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(task);
kmp_info_t *thread; kmp_info_t *thread;
#if OMP_40_ENABLED
int discard = 0 /* false */; int discard = 0 /* false */;
#endif
KA_TRACE( KA_TRACE(
30, ("__kmp_invoke_task(enter): T#%d invoking task %p, current_task=%p\n", 30, ("__kmp_invoke_task(enter): T#%d invoking task %p, current_task=%p\n",
gtid, taskdata, current_task)); gtid, taskdata, current_task));
KMP_DEBUG_ASSERT(task); KMP_DEBUG_ASSERT(task);
#if OMP_45_ENABLED
if (taskdata->td_flags.proxy == TASK_PROXY && if (taskdata->td_flags.proxy == TASK_PROXY &&
taskdata->td_flags.complete == 1) { taskdata->td_flags.complete == 1) {
// This is a proxy task that was already completed but it needs to run // This is a proxy task that was already completed but it needs to run
// its bottom-half finish // its bottom-half finish
KA_TRACE( KA_TRACE(
30, 30,
("__kmp_invoke_task: T#%d running bottom finish for proxy task %p\n", ("__kmp_invoke_task: T#%d running bottom finish for proxy task %p\n",
gtid, taskdata)); gtid, taskdata));
__kmp_bottom_half_finish_proxy(gtid, task); __kmp_bottom_half_finish_proxy(gtid, task);
KA_TRACE(30, ("__kmp_invoke_task(exit): T#%d completed bottom finish for " KA_TRACE(30, ("__kmp_invoke_task(exit): T#%d completed bottom finish for "
"proxy task %p, resuming task %p\n", "proxy task %p, resuming task %p\n",
gtid, taskdata, current_task)); gtid, taskdata, current_task));
return; return;
} }
#endif
#if OMPT_SUPPORT #if OMPT_SUPPORT
// For untied tasks, the first task executed only calls __kmpc_omp_task and // For untied tasks, the first task executed only calls __kmpc_omp_task and
// does not execute code. // does not execute code.
ompt_thread_info_t oldInfo; ompt_thread_info_t oldInfo;
if (UNLIKELY(ompt_enabled.enabled)) { if (UNLIKELY(ompt_enabled.enabled)) {
// Store the threads states and restore them after the task // Store the threads states and restore them after the task
thread = __kmp_threads[gtid]; thread = __kmp_threads[gtid];
oldInfo = thread->th.ompt_thread_info; oldInfo = thread->th.ompt_thread_info;
thread->th.ompt_thread_info.wait_id = 0; thread->th.ompt_thread_info.wait_id = 0;
thread->th.ompt_thread_info.state = (thread->th.th_team_serialized) thread->th.ompt_thread_info.state = (thread->th.th_team_serialized)
? ompt_state_work_serial ? ompt_state_work_serial
: ompt_state_work_parallel; : ompt_state_work_parallel;
taskdata->ompt_task_info.frame.exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0); taskdata->ompt_task_info.frame.exit_frame.ptr = OMPT_GET_FRAME_ADDRESS(0);
} }
#endif #endif
#if OMP_45_ENABLED
// Proxy tasks are not handled by the runtime // Proxy tasks are not handled by the runtime
if (taskdata->td_flags.proxy != TASK_PROXY) { if (taskdata->td_flags.proxy != TASK_PROXY) {
#endif
ANNOTATE_HAPPENS_AFTER(task); ANNOTATE_HAPPENS_AFTER(task);
__kmp_task_start(gtid, task, current_task); // OMPT only if not discarded __kmp_task_start(gtid, task, current_task); // OMPT only if not discarded
#if OMP_45_ENABLED
} }
#endif
#if OMP_40_ENABLED
// TODO: cancel tasks if the parallel region has also been cancelled // TODO: cancel tasks if the parallel region has also been cancelled
// TODO: check if this sequence can be hoisted above __kmp_task_start // TODO: check if this sequence can be hoisted above __kmp_task_start
// if cancellation has been enabled for this run ... // if cancellation has been enabled for this run ...
if (__kmp_omp_cancellation) { if (__kmp_omp_cancellation) {
thread = __kmp_threads[gtid]; thread = __kmp_threads[gtid];
kmp_team_t *this_team = thread->th.th_team; kmp_team_t *this_team = thread->th.th_team;
kmp_taskgroup_t *taskgroup = taskdata->td_taskgroup; kmp_taskgroup_t *taskgroup = taskdata->td_taskgroup;
if ((taskgroup && taskgroup->cancel_request) || if ((taskgroup && taskgroup->cancel_request) ||
▲ Show 20 Lines • Show All 41 Lines • ▼ Show 20 Lines#if KMP_STATS_ENABLED
case TASKGROUP: case TASKGROUP:
KMP_PUSH_PARTITIONED_TIMER(OMP_task_taskgroup); KMP_PUSH_PARTITIONED_TIMER(OMP_task_taskgroup);
break; break;
default: default:
KMP_PUSH_PARTITIONED_TIMER(OMP_task_immediate); KMP_PUSH_PARTITIONED_TIMER(OMP_task_immediate);
break; break;
} }
#endif // KMP_STATS_ENABLED #endif // KMP_STATS_ENABLED
#endif // OMP_40_ENABLED
// OMPT task begin // OMPT task begin
#if OMPT_SUPPORT #if OMPT_SUPPORT
if (UNLIKELY(ompt_enabled.enabled)) if (UNLIKELY(ompt_enabled.enabled))
__ompt_task_start(task, current_task, gtid); __ompt_task_start(task, current_task, gtid);
#endif #endif
#if USE_ITT_BUILD && USE_ITT_NOTIFY #if USE_ITT_BUILD && USE_ITT_NOTIFY
Show All 23 Lines
#if USE_ITT_BUILD && USE_ITT_NOTIFY #if USE_ITT_BUILD && USE_ITT_NOTIFY
if (kmp_itt_count_task) { if (kmp_itt_count_task) {
// Barrier imbalance - adjust arrive time with the task duration // Barrier imbalance - adjust arrive time with the task duration
thread->th.th_bar_arrive_time += (__itt_get_timestamp() - cur_time); thread->th.th_bar_arrive_time += (__itt_get_timestamp() - cur_time);
} }
#endif #endif
#if OMP_40_ENABLED
} }
#endif // OMP_40_ENABLED
#if OMP_45_ENABLED
// Proxy tasks are not handled by the runtime // Proxy tasks are not handled by the runtime
if (taskdata->td_flags.proxy != TASK_PROXY) { if (taskdata->td_flags.proxy != TASK_PROXY) {
#endif
ANNOTATE_HAPPENS_BEFORE(taskdata->td_parent); ANNOTATE_HAPPENS_BEFORE(taskdata->td_parent);
#if OMPT_SUPPORT #if OMPT_SUPPORT
if (UNLIKELY(ompt_enabled.enabled)) { if (UNLIKELY(ompt_enabled.enabled)) {
thread->th.ompt_thread_info = oldInfo; thread->th.ompt_thread_info = oldInfo;
if (taskdata->td_flags.tiedness == TASK_TIED) { if (taskdata->td_flags.tiedness == TASK_TIED) {
taskdata->ompt_task_info.frame.exit_frame = ompt_data_none; taskdata->ompt_task_info.frame.exit_frame = ompt_data_none;
} }
__kmp_task_finish<true>(gtid, task, current_task); __kmp_task_finish<true>(gtid, task, current_task);
} else } else
#endif #endif
__kmp_task_finish<false>(gtid, task, current_task); __kmp_task_finish<false>(gtid, task, current_task);
#if OMP_45_ENABLED
} }
#endif
KA_TRACE( KA_TRACE(
30, 30,
("__kmp_invoke_task(exit): T#%d completed task %p, resuming task %p\n", ("__kmp_invoke_task(exit): T#%d completed task %p, resuming task %p\n",
gtid, taskdata, current_task)); gtid, taskdata, current_task));
return; return;
} }
▲ Show 20 Lines • Show All 64 Lines • ▼ Show 20 Lines
// TASK_CURRENT_NOT_QUEUED (0) if did not suspend and queue current task to // TASK_CURRENT_NOT_QUEUED (0) if did not suspend and queue current task to
// be resumed later. // be resumed later.
// TASK_CURRENT_QUEUED (1) if suspended and queued the current task to be // TASK_CURRENT_QUEUED (1) if suspended and queued the current task to be
// resumed later. // resumed later.
kmp_int32 __kmp_omp_task(kmp_int32 gtid, kmp_task_t *new_task, kmp_int32 __kmp_omp_task(kmp_int32 gtid, kmp_task_t *new_task,
bool serialize_immediate) { bool serialize_immediate) {
kmp_taskdata_t *new_taskdata = KMP_TASK_TO_TASKDATA(new_task); kmp_taskdata_t *new_taskdata = KMP_TASK_TO_TASKDATA(new_task);
/* Should we execute the new task or queue it? For now, let's just always try to /* Should we execute the new task or queue it? For now, let's just always try
queue it. If the queue fills up, then we'll execute it. */ to queue it. If the queue fills up, then we'll execute it. */
#if OMP_45_ENABLED
if (new_taskdata->td_flags.proxy == TASK_PROXY || if (new_taskdata->td_flags.proxy == TASK_PROXY ||
__kmp_push_task(gtid, new_task) == TASK_NOT_PUSHED) // if cannot defer __kmp_push_task(gtid, new_task) == TASK_NOT_PUSHED) // if cannot defer
#else
if (__kmp_push_task(gtid, new_task) == TASK_NOT_PUSHED) // if cannot defer
#endif
{ // Execute this task immediately { // Execute this task immediately
kmp_taskdata_t *current_task = __kmp_threads[gtid]->th.th_current_task; kmp_taskdata_t *current_task = __kmp_threads[gtid]->th.th_current_task;
if (serialize_immediate) if (serialize_immediate)
new_taskdata->td_flags.task_serial = 1; new_taskdata->td_flags.task_serial = 1;
__kmp_invoke_task(gtid, new_task, current_task); __kmp_invoke_task(gtid, new_task, current_task);
} }
ANNOTATE_HAPPENS_BEFORE(new_task); ANNOTATE_HAPPENS_BEFORE(new_task);
▲ Show 20 Lines • Show All 172 Lines • ▼ Show 20 Lines#if USE_ITT_BUILD
void *itt_sync_obj = __kmp_itt_taskwait_object(gtid); void *itt_sync_obj = __kmp_itt_taskwait_object(gtid);
if (itt_sync_obj != NULL) if (itt_sync_obj != NULL)
__kmp_itt_taskwait_starting(gtid, itt_sync_obj); __kmp_itt_taskwait_starting(gtid, itt_sync_obj);
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
bool must_wait = bool must_wait =
!taskdata->td_flags.team_serial && !taskdata->td_flags.final; !taskdata->td_flags.team_serial && !taskdata->td_flags.final;
#if OMP_45_ENABLED
must_wait = must_wait || (thread->th.th_task_team != NULL && must_wait = must_wait || (thread->th.th_task_team != NULL &&
thread->th.th_task_team->tt.tt_found_proxy_tasks); thread->th.th_task_team->tt.tt_found_proxy_tasks);
#endif
if (must_wait) { if (must_wait) {
kmp_flag_32 flag(RCAST(std::atomic<kmp_uint32> *, kmp_flag_32 flag(RCAST(std::atomic<kmp_uint32> *,
&(taskdata->td_incomplete_child_tasks)), &(taskdata->td_incomplete_child_tasks)),
0U); 0U);
while (KMP_ATOMIC_LD_ACQ(&taskdata->td_incomplete_child_tasks) != 0) { while (KMP_ATOMIC_LD_ACQ(&taskdata->td_incomplete_child_tasks) != 0) {
flag.execute_tasks(thread, gtid, FALSE, flag.execute_tasks(thread, gtid, FALSE,
&thread_finished USE_ITT_BUILD_ARG(itt_sync_obj), &thread_finished USE_ITT_BUILD_ARG(itt_sync_obj),
__kmp_task_stealing_constraint); __kmp_task_stealing_constraint);
▲ Show 20 Lines • Show All 118 Lines • ▼ Show 20 Lines#endif /* USE_ITT_BUILD */
KA_TRACE(10, ("__kmpc_omp_taskyield(exit): T#%d task %p resuming, " KA_TRACE(10, ("__kmpc_omp_taskyield(exit): T#%d task %p resuming, "
"returning TASK_CURRENT_NOT_QUEUED\n", "returning TASK_CURRENT_NOT_QUEUED\n",
gtid, taskdata)); gtid, taskdata));
return TASK_CURRENT_NOT_QUEUED; return TASK_CURRENT_NOT_QUEUED;
} }
#if OMP_50_ENABLED
// Task Reduction implementation // Task Reduction implementation
// //
// Note: initial implementation didn't take into account the possibility // Note: initial implementation didn't take into account the possibility
// to specify omp_orig for initializer of the UDR (user defined reduction). // to specify omp_orig for initializer of the UDR (user defined reduction).
// Corrected implementation takes into account the omp_orig object. // Corrected implementation takes into account the omp_orig object.
// Compiler is free to use old implementation if omp_orig is not specified. // Compiler is free to use old implementation if omp_orig is not specified.
/*! /*!
▲ Show 20 Lines • Show All 396 Lines • ▼ Show 20 Lines
@param gtid Global thread ID @param gtid Global thread ID
@param is_ws Is 1 if the reduction is for worksharing, 0 otherwise @param is_ws Is 1 if the reduction is for worksharing, 0 otherwise
Finalize task reduction for a parallel or worksharing. Finalize task reduction for a parallel or worksharing.
*/ */
void __kmpc_task_reduction_modifier_fini(ident_t *loc, int gtid, int is_ws) { void __kmpc_task_reduction_modifier_fini(ident_t *loc, int gtid, int is_ws) {
__kmpc_end_taskgroup(loc, gtid); __kmpc_end_taskgroup(loc, gtid);
} }
#endif
#if OMP_40_ENABLED
// __kmpc_taskgroup: Start a new taskgroup // __kmpc_taskgroup: Start a new taskgroup
void __kmpc_taskgroup(ident_t *loc, int gtid) { void __kmpc_taskgroup(ident_t *loc, int gtid) {
kmp_info_t *thread = __kmp_threads[gtid]; kmp_info_t *thread = __kmp_threads[gtid];
kmp_taskdata_t *taskdata = thread->th.th_current_task; kmp_taskdata_t *taskdata = thread->th.th_current_task;
kmp_taskgroup_t *tg_new = kmp_taskgroup_t *tg_new =
(kmp_taskgroup_t *)__kmp_thread_malloc(thread, sizeof(kmp_taskgroup_t)); (kmp_taskgroup_t *)__kmp_thread_malloc(thread, sizeof(kmp_taskgroup_t));
KA_TRACE(10, ("__kmpc_taskgroup: T#%d loc=%p group=%p\n", gtid, loc, tg_new)); KA_TRACE(10, ("__kmpc_taskgroup: T#%d loc=%p group=%p\n", gtid, loc, tg_new));
KMP_ATOMIC_ST_RLX(&tg_new->count, 0); KMP_ATOMIC_ST_RLX(&tg_new->count, 0);
KMP_ATOMIC_ST_RLX(&tg_new->cancel_request, cancel_noreq); KMP_ATOMIC_ST_RLX(&tg_new->cancel_request, cancel_noreq);
tg_new->parent = taskdata->td_taskgroup; tg_new->parent = taskdata->td_taskgroup;
#if OMP_50_ENABLED
tg_new->reduce_data = NULL; tg_new->reduce_data = NULL;
tg_new->reduce_num_data = 0; tg_new->reduce_num_data = 0;
#endif
taskdata->td_taskgroup = tg_new; taskdata->td_taskgroup = tg_new;
#if OMPT_SUPPORT && OMPT_OPTIONAL #if OMPT_SUPPORT && OMPT_OPTIONAL
if (UNLIKELY(ompt_enabled.ompt_callback_sync_region)) { if (UNLIKELY(ompt_enabled.ompt_callback_sync_region)) {
void *codeptr = OMPT_LOAD_RETURN_ADDRESS(gtid); void *codeptr = OMPT_LOAD_RETURN_ADDRESS(gtid);
if (!codeptr) if (!codeptr)
codeptr = OMPT_GET_RETURN_ADDRESS(0); codeptr = OMPT_GET_RETURN_ADDRESS(0);
kmp_team_t *team = thread->th.th_team; kmp_team_t *team = thread->th.th_team;
▲ Show 20 Lines • Show All 52 Lines • ▼ Show 20 Lines
#if OMPT_SUPPORT && OMPT_OPTIONAL #if OMPT_SUPPORT && OMPT_OPTIONAL
if (UNLIKELY(ompt_enabled.ompt_callback_sync_region_wait)) { if (UNLIKELY(ompt_enabled.ompt_callback_sync_region_wait)) {
ompt_callbacks.ompt_callback(ompt_callback_sync_region_wait)( ompt_callbacks.ompt_callback(ompt_callback_sync_region_wait)(
ompt_sync_region_taskgroup, ompt_scope_begin, &(my_parallel_data), ompt_sync_region_taskgroup, ompt_scope_begin, &(my_parallel_data),
&(my_task_data), codeptr); &(my_task_data), codeptr);
} }
#endif #endif
#if OMP_45_ENABLED
if (!taskdata->td_flags.team_serial || if (!taskdata->td_flags.team_serial ||
(thread->th.th_task_team != NULL && (thread->th.th_task_team != NULL &&
thread->th.th_task_team->tt.tt_found_proxy_tasks)) thread->th.th_task_team->tt.tt_found_proxy_tasks)) {
#else
if (!taskdata->td_flags.team_serial)
#endif
{
kmp_flag_32 flag(RCAST(std::atomic<kmp_uint32> *, &(taskgroup->count)), kmp_flag_32 flag(RCAST(std::atomic<kmp_uint32> *, &(taskgroup->count)),
0U); 0U);
while (KMP_ATOMIC_LD_ACQ(&taskgroup->count) != 0) { while (KMP_ATOMIC_LD_ACQ(&taskgroup->count) != 0) {
flag.execute_tasks(thread, gtid, FALSE, flag.execute_tasks(thread, gtid, FALSE,
&thread_finished USE_ITT_BUILD_ARG(itt_sync_obj), &thread_finished USE_ITT_BUILD_ARG(itt_sync_obj),
__kmp_task_stealing_constraint); __kmp_task_stealing_constraint);
} }
} }
Show All 9 Lines
#if USE_ITT_BUILD #if USE_ITT_BUILD
if (itt_sync_obj != NULL) if (itt_sync_obj != NULL)
__kmp_itt_taskwait_finished(gtid, itt_sync_obj); __kmp_itt_taskwait_finished(gtid, itt_sync_obj);
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
} }
KMP_DEBUG_ASSERT(taskgroup->count == 0); KMP_DEBUG_ASSERT(taskgroup->count == 0);
#if OMP_50_ENABLED
if (taskgroup->reduce_data != NULL) { // need to reduce? if (taskgroup->reduce_data != NULL) { // need to reduce?
int cnt; int cnt;
void *reduce_data; void *reduce_data;
kmp_team_t *t = thread->th.th_team; kmp_team_t *t = thread->th.th_team;
kmp_taskred_data_t *arr = (kmp_taskred_data_t *)taskgroup->reduce_data; kmp_taskred_data_t *arr = (kmp_taskred_data_t *)taskgroup->reduce_data;
// check if <priv> data of the first reduction variable shared for the team // check if <priv> data of the first reduction variable shared for the team
void *priv0 = arr[0].reduce_priv; void *priv0 = arr[0].reduce_priv;
if ((reduce_data = KMP_ATOMIC_LD_ACQ(&t->t.t_tg_reduce_data[0])) != NULL && if ((reduce_data = KMP_ATOMIC_LD_ACQ(&t->t.t_tg_reduce_data[0])) != NULL &&
Show All 32 Lines if ((reduce_data = KMP_ATOMIC_LD_ACQ(&t->t.t_tg_reduce_data[0])) != NULL &&
// so do not finalize reduction, just clean own copy of the data // so do not finalize reduction, just clean own copy of the data
__kmp_task_reduction_clean(thread, taskgroup); __kmp_task_reduction_clean(thread, taskgroup);
} }
} else { } else {
// finishing task reduction on taskgroup // finishing task reduction on taskgroup
__kmp_task_reduction_fini(thread, taskgroup); __kmp_task_reduction_fini(thread, taskgroup);
} }
} }
#endif
// Restore parent taskgroup for the current task // Restore parent taskgroup for the current task
taskdata->td_taskgroup = taskgroup->parent; taskdata->td_taskgroup = taskgroup->parent;
__kmp_thread_free(thread, taskgroup); __kmp_thread_free(thread, taskgroup);
KA_TRACE(10, ("__kmpc_end_taskgroup(exit): T#%d task %p finished waiting\n", KA_TRACE(10, ("__kmpc_end_taskgroup(exit): T#%d task %p finished waiting\n",
gtid, taskdata)); gtid, taskdata));
ANNOTATE_HAPPENS_AFTER(taskdata); ANNOTATE_HAPPENS_AFTER(taskdata);
#if OMPT_SUPPORT && OMPT_OPTIONAL #if OMPT_SUPPORT && OMPT_OPTIONAL
if (UNLIKELY(ompt_enabled.ompt_callback_sync_region)) { if (UNLIKELY(ompt_enabled.ompt_callback_sync_region)) {
ompt_callbacks.ompt_callback(ompt_callback_sync_region)( ompt_callbacks.ompt_callback(ompt_callback_sync_region)(
ompt_sync_region_taskgroup, ompt_scope_end, &(my_parallel_data), ompt_sync_region_taskgroup, ompt_scope_end, &(my_parallel_data),
&(my_task_data), codeptr); &(my_task_data), codeptr);
} }
#endif #endif
} }
#endif
// __kmp_remove_my_task: remove a task from my own deque // __kmp_remove_my_task: remove a task from my own deque
static kmp_task_t *__kmp_remove_my_task(kmp_info_t *thread, kmp_int32 gtid, static kmp_task_t *__kmp_remove_my_task(kmp_info_t *thread, kmp_int32 gtid,
kmp_task_team_t *task_team, kmp_task_team_t *task_team,
kmp_int32 is_constrained) { kmp_int32 is_constrained) {
kmp_task_t *task; kmp_task_t *task;
kmp_taskdata_t *taskdata; kmp_taskdata_t *taskdata;
kmp_thread_data_t *thread_data; kmp_thread_data_t *thread_data;
▲ Show 20 Lines • Show All 226 Lines • ▼ Show 20 Lines KA_TRACE(15, ("__kmp_execute_tasks_template(enter): T#%d final_spin=%d "
gtid, final_spin, *thread_finished)); gtid, final_spin, *thread_finished));
thread->th.th_reap_state = KMP_NOT_SAFE_TO_REAP; thread->th.th_reap_state = KMP_NOT_SAFE_TO_REAP;
threads_data = (kmp_thread_data_t *)TCR_PTR(task_team->tt.tt_threads_data); threads_data = (kmp_thread_data_t *)TCR_PTR(task_team->tt.tt_threads_data);
KMP_DEBUG_ASSERT(threads_data != NULL); KMP_DEBUG_ASSERT(threads_data != NULL);
nthreads = task_team->tt.tt_nproc; nthreads = task_team->tt.tt_nproc;
unfinished_threads = &(task_team->tt.tt_unfinished_threads); unfinished_threads = &(task_team->tt.tt_unfinished_threads);
#if OMP_45_ENABLED
KMP_DEBUG_ASSERT(nthreads > 1 || task_team->tt.tt_found_proxy_tasks); KMP_DEBUG_ASSERT(nthreads > 1 || task_team->tt.tt_found_proxy_tasks);
#else
KMP_DEBUG_ASSERT(nthreads > 1);
#endif
KMP_DEBUG_ASSERT(*unfinished_threads >= 0); KMP_DEBUG_ASSERT(*unfinished_threads >= 0);
while (1) { // Outer loop keeps trying to find tasks in case of single thread while (1) { // Outer loop keeps trying to find tasks in case of single thread
// getting tasks from target constructs // getting tasks from target constructs
while (1) { // Inner loop to find a task and execute it while (1) { // Inner loop to find a task and execute it
task = NULL; task = NULL;
if (use_own_tasks) { // check on own queue first if (use_own_tasks) { // check on own queue first
task = __kmp_remove_my_task(thread, gtid, task_team, is_constrained); task = __kmp_remove_my_task(thread, gtid, task_team, is_constrained);
▲ Show 20 Lines • Show All 108 Lines • ▼ Show 20 Lines#endif /* USE_ITT_BUILD */
KA_TRACE(20, ("__kmp_execute_tasks_template: T#%d stolen task spawned " KA_TRACE(20, ("__kmp_execute_tasks_template: T#%d stolen task spawned "
"other tasks, restart\n", "other tasks, restart\n",
gtid)); gtid));
use_own_tasks = 1; use_own_tasks = 1;
new_victim = 0; new_victim = 0;
} }
} }
// The task source has been exhausted. If in final spin loop of barrier, check // The task source has been exhausted. If in final spin loop of barrier,
// if termination condition is satisfied. // check if termination condition is satisfied. The work queue may be empty
#if OMP_45_ENABLED // but there might be proxy tasks still executing.
// The work queue may be empty but there might be proxy tasks still
// executing
if (final_spin && if (final_spin &&
KMP_ATOMIC_LD_ACQ(&current_task->td_incomplete_child_tasks) == 0) KMP_ATOMIC_LD_ACQ(&current_task->td_incomplete_child_tasks) == 0) {
#else
if (final_spin)
#endif
{
// First, decrement the #unfinished threads, if that has not already been // First, decrement the #unfinished threads, if that has not already been
// done. This decrement might be to the spin location, and result in the // done. This decrement might be to the spin location, and result in the
// termination condition being satisfied. // termination condition being satisfied.
if (!*thread_finished) { if (!*thread_finished) {
kmp_int32 count; kmp_int32 count;
count = KMP_ATOMIC_DEC(unfinished_threads) - 1; count = KMP_ATOMIC_DEC(unfinished_threads) - 1;
KA_TRACE(20, ("__kmp_execute_tasks_template: T#%d dec " KA_TRACE(20, ("__kmp_execute_tasks_template: T#%d dec "
Show All 19 Lines#endif /* USE_ITT_BUILD */
// If this thread's task team is NULL, master has recognized that there are // If this thread's task team is NULL, master has recognized that there are
// no more tasks; bail out // no more tasks; bail out
if (thread->th.th_task_team == NULL) { if (thread->th.th_task_team == NULL) {
KA_TRACE(15, KA_TRACE(15,
("__kmp_execute_tasks_template: T#%d no more tasks\n", gtid)); ("__kmp_execute_tasks_template: T#%d no more tasks\n", gtid));
return FALSE; return FALSE;
} }
#if OMP_45_ENABLED
// We could be getting tasks from target constructs; if this is the only // We could be getting tasks from target constructs; if this is the only
// thread, keep trying to execute tasks from own queue // thread, keep trying to execute tasks from own queue
if (nthreads == 1) if (nthreads == 1)
use_own_tasks = 1; use_own_tasks = 1;
else else {
#endif
{
KA_TRACE(15, KA_TRACE(15,
("__kmp_execute_tasks_template: T#%d can't find work\n", gtid)); ("__kmp_execute_tasks_template: T#%d can't find work\n", gtid));
return FALSE; return FALSE;
} }
} }
} }
int __kmp_execute_tasks_32( int __kmp_execute_tasks_32(
▲ Show 20 Lines • Show All 106 Lines • ▼ Show 20 Lines
* to each thread in the team, so that it can steal work from it. * to each thread in the team, so that it can steal work from it.
* *
* Enter the existence of the kmp_task_team_t struct. It employs a reference * Enter the existence of the kmp_task_team_t struct. It employs a reference
* counting mechanims, and is allocated by the master thread before calling * counting mechanims, and is allocated by the master thread before calling
* __kmp_<barrier_kind>_release, and then is release by the last thread to * __kmp_<barrier_kind>_release, and then is release by the last thread to
* exit __kmp_<barrier_kind>_release at the next barrier. I.e. the lifetimes * exit __kmp_<barrier_kind>_release at the next barrier. I.e. the lifetimes
* of the kmp_task_team_t structs for consecutive barriers can overlap * of the kmp_task_team_t structs for consecutive barriers can overlap
* (and will, unless the master thread is the last thread to exit the barrier * (and will, unless the master thread is the last thread to exit the barrier
* release phase, which is not typical). * release phase, which is not typical). The existence of such a struct is
* * useful outside the context of tasking.
* The existence of such a struct is useful outside the context of tasking,
* but for now, I'm trying to keep it specific to the OMP_30_ENABLED macro,
* so that any performance differences show up when comparing the 2.5 vs. 3.0
* libraries.
* *
* We currently use the existence of the threads array as an indicator that * We currently use the existence of the threads array as an indicator that
* tasks were spawned since the last barrier. If the structure is to be * tasks were spawned since the last barrier. If the structure is to be
* useful outside the context of tasking, then this will have to change, but * useful outside the context of tasking, then this will have to change, but
* not settting the field minimizes the performance impact of tasking on * not settting the field minimizes the performance impact of tasking on
* barriers, when no explicit tasks were spawned (pushed, actually). * barriers, when no explicit tasks were spawned (pushed, actually).
*/ */
▲ Show 20 Lines • Show All 212 Lines • ▼ Show 20 Lines if (task_team == NULL) {
__kmp_init_bootstrap_lock(&task_team->tt.tt_threads_lock); __kmp_init_bootstrap_lock(&task_team->tt.tt_threads_lock);
// AC: __kmp_allocate zeroes returned memory // AC: __kmp_allocate zeroes returned memory
// task_team -> tt.tt_threads_data = NULL; // task_team -> tt.tt_threads_data = NULL;
// task_team -> tt.tt_max_threads = 0; // task_team -> tt.tt_max_threads = 0;
// task_team -> tt.tt_next = NULL; // task_team -> tt.tt_next = NULL;
} }
TCW_4(task_team->tt.tt_found_tasks, FALSE); TCW_4(task_team->tt.tt_found_tasks, FALSE);
#if OMP_45_ENABLED
TCW_4(task_team->tt.tt_found_proxy_tasks, FALSE); TCW_4(task_team->tt.tt_found_proxy_tasks, FALSE);
#endif
task_team->tt.tt_nproc = nthreads = team->t.t_nproc; task_team->tt.tt_nproc = nthreads = team->t.t_nproc;
KMP_ATOMIC_ST_REL(&task_team->tt.tt_unfinished_threads, nthreads); KMP_ATOMIC_ST_REL(&task_team->tt.tt_unfinished_threads, nthreads);
TCW_4(task_team->tt.tt_active, TRUE); TCW_4(task_team->tt.tt_active, TRUE);
KA_TRACE(20, ("__kmp_allocate_task_team: T#%d exiting; task_team = %p " KA_TRACE(20, ("__kmp_allocate_task_team: T#%d exiting; task_team = %p "
"unfinished_threads init'd to %d\n", "unfinished_threads init'd to %d\n",
(thread ? __kmp_gtid_from_thread(thread) : -1), task_team, (thread ? __kmp_gtid_from_thread(thread) : -1), task_team,
▲ Show 20 Lines • Show All 145 Lines • ▼ Show 20 Lines if (team->t.t_task_team[other_team] == NULL) { // setup other team as well
((team != NULL) ? team->t.t_id : -1), other_team)); ((team != NULL) ? team->t.t_id : -1), other_team));
} else { // Leave the old task team struct in place for the upcoming region; } else { // Leave the old task team struct in place for the upcoming region;
// adjust as needed // adjust as needed
kmp_task_team_t *task_team = team->t.t_task_team[other_team]; kmp_task_team_t *task_team = team->t.t_task_team[other_team];
if (!task_team->tt.tt_active || if (!task_team->tt.tt_active ||
team->t.t_nproc != task_team->tt.tt_nproc) { team->t.t_nproc != task_team->tt.tt_nproc) {
TCW_4(task_team->tt.tt_nproc, team->t.t_nproc); TCW_4(task_team->tt.tt_nproc, team->t.t_nproc);
TCW_4(task_team->tt.tt_found_tasks, FALSE); TCW_4(task_team->tt.tt_found_tasks, FALSE);
#if OMP_45_ENABLED
TCW_4(task_team->tt.tt_found_proxy_tasks, FALSE); TCW_4(task_team->tt.tt_found_proxy_tasks, FALSE);
#endif
KMP_ATOMIC_ST_REL(&task_team->tt.tt_unfinished_threads, KMP_ATOMIC_ST_REL(&task_team->tt.tt_unfinished_threads,
team->t.t_nproc); team->t.t_nproc);
TCW_4(task_team->tt.tt_active, TRUE); TCW_4(task_team->tt.tt_active, TRUE);
} }
// if team size has changed, the first thread to enable tasking will // if team size has changed, the first thread to enable tasking will
// realloc threads_data if necessary // realloc threads_data if necessary
KA_TRACE(20, ("__kmp_task_team_setup: Master T#%d reset next task_team " KA_TRACE(20, ("__kmp_task_team_setup: Master T#%d reset next task_team "
"%p for team %d at parity=%d\n", "%p for team %d at parity=%d\n",
▲ Show 20 Lines • Show All 54 Lines • ▼ Show 20 Lines if ((task_team != NULL) && KMP_TASKING_ENABLED(task_team)) {
} }
// Deactivate the old task team, so that the worker threads will stop // Deactivate the old task team, so that the worker threads will stop
// referencing it while spinning. // referencing it while spinning.
KA_TRACE( KA_TRACE(
20, 20,
("__kmp_task_team_wait: Master T#%d deactivating task_team %p: " ("__kmp_task_team_wait: Master T#%d deactivating task_team %p: "
"setting active to false, setting local and team's pointer to NULL\n", "setting active to false, setting local and team's pointer to NULL\n",
__kmp_gtid_from_thread(this_thr), task_team)); __kmp_gtid_from_thread(this_thr), task_team));
#if OMP_45_ENABLED
KMP_DEBUG_ASSERT(task_team->tt.tt_nproc > 1 || KMP_DEBUG_ASSERT(task_team->tt.tt_nproc > 1 ||
task_team->tt.tt_found_proxy_tasks == TRUE); task_team->tt.tt_found_proxy_tasks == TRUE);
TCW_SYNC_4(task_team->tt.tt_found_proxy_tasks, FALSE); TCW_SYNC_4(task_team->tt.tt_found_proxy_tasks, FALSE);
#else
KMP_DEBUG_ASSERT(task_team->tt.tt_nproc > 1);
#endif
KMP_CHECK_UPDATE(task_team->tt.tt_untied_task_encountered, 0); KMP_CHECK_UPDATE(task_team->tt.tt_untied_task_encountered, 0);
TCW_SYNC_4(task_team->tt.tt_active, FALSE); TCW_SYNC_4(task_team->tt.tt_active, FALSE);
KMP_MB(); KMP_MB();
TCW_PTR(this_thr->th.th_task_team, NULL); TCW_PTR(this_thr->th.th_task_team, NULL);
} }
} }
Show All 27 Lines#endif /* USE_ITT_BUILD */
} }
KMP_YIELD(TRUE); KMP_YIELD(TRUE);
} }
#if USE_ITT_BUILD #if USE_ITT_BUILD
KMP_FSYNC_SPIN_ACQUIRED(RCAST(void *, spin)); KMP_FSYNC_SPIN_ACQUIRED(RCAST(void *, spin));
#endif /* USE_ITT_BUILD */ #endif /* USE_ITT_BUILD */
} }
#if OMP_45_ENABLED
// __kmp_give_task puts a task into a given thread queue if: // __kmp_give_task puts a task into a given thread queue if:
// - the queue for that thread was created // - the queue for that thread was created
// - there's space in that queue // - there's space in that queue
// Because of this, __kmp_push_task needs to check if there's space after // Because of this, __kmp_push_task needs to check if there's space after
// getting the lock // getting the lock
static bool __kmp_give_task(kmp_info_t *thread, kmp_int32 tid, kmp_task_t *task, static bool __kmp_give_task(kmp_info_t *thread, kmp_int32 tid, kmp_task_t *task,
kmp_int32 pass) { kmp_int32 pass) {
kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(task); kmp_taskdata_t *taskdata = KMP_TASK_TO_TASKDATA(task);
▲ Show 20 Lines • Show All 203 Lines • ▼ Show 20 Linesvoid __kmpc_proxy_task_completed_ooo(kmp_task_t *ptask) {
__kmp_second_top_half_finish_proxy(taskdata); __kmp_second_top_half_finish_proxy(taskdata);
KA_TRACE( KA_TRACE(
10, 10,
("__kmp_proxy_task_completed_ooo(exit): proxy task completing ooo %p\n", ("__kmp_proxy_task_completed_ooo(exit): proxy task completing ooo %p\n",
taskdata)); taskdata));
} }
#if OMP_50_ENABLED
kmp_event_t *__kmpc_task_allow_completion_event(ident_t *loc_ref, int gtid, kmp_event_t *__kmpc_task_allow_completion_event(ident_t *loc_ref, int gtid,
kmp_task_t *task) { kmp_task_t *task) {
kmp_taskdata_t *td = KMP_TASK_TO_TASKDATA(task); kmp_taskdata_t *td = KMP_TASK_TO_TASKDATA(task);
if (td->td_allow_completion_event.type == KMP_EVENT_UNINITIALIZED) { if (td->td_allow_completion_event.type == KMP_EVENT_UNINITIALIZED) {
td->td_allow_completion_event.type = KMP_EVENT_ALLOW_COMPLETION; td->td_allow_completion_event.type = KMP_EVENT_ALLOW_COMPLETION;
td->td_allow_completion_event.ed.task = task; td->td_allow_completion_event.ed.task = task;
__kmp_init_tas_lock(&td->td_allow_completion_event.lock); __kmp_init_tas_lock(&td->td_allow_completion_event.lock);
} }
Show All 33 Lines if (detached) {
} }
} }
// fallback // fallback
__kmpc_proxy_task_completed_ooo(ptask); __kmpc_proxy_task_completed_ooo(ptask);
} }
} }
} }
#endif
// __kmp_task_dup_alloc: Allocate the taskdata and make a copy of source task // __kmp_task_dup_alloc: Allocate the taskdata and make a copy of source task
// for taskloop // for taskloop
// //
// thread: allocating thread // thread: allocating thread
// task_src: pointer to source task to be duplicated // task_src: pointer to source task to be duplicated
// returns: a pointer to the allocated kmp_task_t structure (task). // returns: a pointer to the allocated kmp_task_t structure (task).
kmp_task_t *__kmp_task_dup_alloc(kmp_info_t *thread, kmp_task_t *task_src) { kmp_task_t *__kmp_task_dup_alloc(kmp_info_t *thread, kmp_task_t *task_src) {
▲ Show 20 Lines • Show All 636 Lines • ▼ Show 20 Lines#endif
if (nogroup == 0) { if (nogroup == 0) {
#if OMPT_SUPPORT && OMPT_OPTIONAL #if OMPT_SUPPORT && OMPT_OPTIONAL
OMPT_STORE_RETURN_ADDRESS(gtid); OMPT_STORE_RETURN_ADDRESS(gtid);
#endif #endif
__kmpc_end_taskgroup(loc, gtid); __kmpc_end_taskgroup(loc, gtid);
} }
KA_TRACE(20, ("__kmpc_taskloop(exit): T#%d\n", gtid)); KA_TRACE(20, ("__kmpc_taskloop(exit): T#%d\n", gtid));
} }
#endif

runtime/src/kmp_taskq.cpp

The contents of this file were not changed.

runtime/src/kmp_version.cpp

Show First 20 Lines • Show All 82 Lines • ▼ Show 20 Lines
// Finally, define strings. // Finally, define strings.
#define KMP_LIBRARY KMP_LIB_TYPE " library (" KMP_LINK_TYPE ")" #define KMP_LIBRARY KMP_LIB_TYPE " library (" KMP_LINK_TYPE ")"
#define KMP_COPYRIGHT "" #define KMP_COPYRIGHT ""
int const __kmp_version_major = KMP_VERSION_MAJOR; int const __kmp_version_major = KMP_VERSION_MAJOR;
int const __kmp_version_minor = KMP_VERSION_MINOR; int const __kmp_version_minor = KMP_VERSION_MINOR;
int const __kmp_version_build = KMP_VERSION_BUILD; int const __kmp_version_build = KMP_VERSION_BUILD;
int const __kmp_openmp_version = int const __kmp_openmp_version = 201611;
#if OMP_50_ENABLED
201611;
#elif OMP_45_ENABLED
201511;
#elif OMP_40_ENABLED
201307;
#else
201107;
#endif
/* Do NOT change the format of this string! Intel(R) Thread Profiler checks for /* Do NOT change the format of this string! Intel(R) Thread Profiler checks for
a specific format some changes in the recognition routine there need to be a specific format some changes in the recognition routine there need to be
made before this is changed. */ made before this is changed. */
char const __kmp_copyright[] = KMP_VERSION_PREFIX KMP_LIBRARY char const __kmp_copyright[] = KMP_VERSION_PREFIX KMP_LIBRARY
" ver. " stringer(KMP_VERSION_MAJOR) "." stringer( " ver. " stringer(KMP_VERSION_MAJOR) "." stringer(
KMP_VERSION_MINOR) "." stringer(KMP_VERSION_BUILD) " " KMP_COPYRIGHT; KMP_VERSION_MINOR) "." stringer(KMP_VERSION_BUILD) " " KMP_COPYRIGHT;
▲ Show 20 Lines • Show All 99 Lines • Show Last 20 Lines

runtime/src/kmp_wait_release.h

Show First 20 Lines • Show All 268 Lines • ▼ Show 20 Lines if (final_spin && (__kmp_tasking_mode == tskm_immediate_exec ||
// implicit task is done. Either no taskqueue, or task-team finished // implicit task is done. Either no taskqueue, or task-team finished
__ompt_implicit_task_end(this_thr, ompt_entry_state, tId); __ompt_implicit_task_end(this_thr, ompt_entry_state, tId);
} }
} }
#endif #endif
KMP_INIT_YIELD(spins); // Setup for waiting KMP_INIT_YIELD(spins); // Setup for waiting
if (__kmp_dflt_blocktime != KMP_MAX_BLOCKTIME if (__kmp_dflt_blocktime != KMP_MAX_BLOCKTIME ||
#if OMP_50_ENABLED __kmp_pause_status == kmp_soft_paused) {
|| __kmp_pause_status == kmp_soft_paused
#endif
) {
#if KMP_USE_MONITOR #if KMP_USE_MONITOR
// The worker threads cannot rely on the team struct existing at this point. // The worker threads cannot rely on the team struct existing at this point.
// Use the bt values cached in the thread struct instead. // Use the bt values cached in the thread struct instead.
#ifdef KMP_ADJUST_BLOCKTIME #ifdef KMP_ADJUST_BLOCKTIME
if ( if (__kmp_pause_status == kmp_soft_paused ||
#if OMP_50_ENABLED
__kmp_pause_status == kmp_soft_paused ||
#endif
(__kmp_zero_bt && !this_thr->th.th_team_bt_set)) (__kmp_zero_bt && !this_thr->th.th_team_bt_set))
// Force immediate suspend if not set by user and more threads than // Force immediate suspend if not set by user and more threads than
// available procs // available procs
hibernate = 0; hibernate = 0;
else else
hibernate = this_thr->th.th_team_bt_intervals; hibernate = this_thr->th.th_team_bt_intervals;
#else #else
hibernate = this_thr->th.th_team_bt_intervals; hibernate = this_thr->th.th_team_bt_intervals;
#endif /* KMP_ADJUST_BLOCKTIME */ #endif /* KMP_ADJUST_BLOCKTIME */
/* If the blocktime is nonzero, we want to make sure that we spin wait for /* If the blocktime is nonzero, we want to make sure that we spin wait for
the entirety of the specified #intervals, plus up to one interval more. the entirety of the specified #intervals, plus up to one interval more.
This increment make certain that this thread doesn't go to sleep too This increment make certain that this thread doesn't go to sleep too
soon. */ soon. */
if (hibernate != 0) if (hibernate != 0)
hibernate++; hibernate++;
// Add in the current time value. // Add in the current time value.
hibernate += TCR_4(__kmp_global.g.g_time.dt.t_value); hibernate += TCR_4(__kmp_global.g.g_time.dt.t_value);
KF_TRACE(20, ("__kmp_wait_sleep: T#%d now=%d, hibernate=%d, intervals=%d\n", KF_TRACE(20, ("__kmp_wait_sleep: T#%d now=%d, hibernate=%d, intervals=%d\n",
th_gtid, __kmp_global.g.g_time.dt.t_value, hibernate, th_gtid, __kmp_global.g.g_time.dt.t_value, hibernate,
hibernate - __kmp_global.g.g_time.dt.t_value)); hibernate - __kmp_global.g.g_time.dt.t_value));
#else #else
#if OMP_50_ENABLED
if (__kmp_pause_status == kmp_soft_paused) { if (__kmp_pause_status == kmp_soft_paused) {
// Force immediate suspend // Force immediate suspend
hibernate_goal = KMP_NOW(); hibernate_goal = KMP_NOW();
} else } else
#endif
hibernate_goal = KMP_NOW() + this_thr->th.th_team_bt_intervals; hibernate_goal = KMP_NOW() + this_thr->th.th_team_bt_intervals;
poll_count = 0; poll_count = 0;
#endif // KMP_USE_MONITOR #endif // KMP_USE_MONITOR
} }
oversubscribed = (TCR_4(__kmp_nth) > __kmp_avail_proc); oversubscribed = (TCR_4(__kmp_nth) > __kmp_avail_proc);
KMP_MB(); KMP_MB();
▲ Show 20 Lines • Show All 55 Lines • ▼ Show 20 Lines#endif
// Check if the barrier surrounding this wait loop has been cancelled // Check if the barrier surrounding this wait loop has been cancelled
if (cancellable) { if (cancellable) {
kmp_team_t *team = this_thr->th.th_team; kmp_team_t *team = this_thr->th.th_team;
if (team && team->t.t_cancel_request == cancel_parallel) if (team && team->t.t_cancel_request == cancel_parallel)
break; break;
} }
// Don't suspend if KMP_BLOCKTIME is set to "infinite" // Don't suspend if KMP_BLOCKTIME is set to "infinite"
if (__kmp_dflt_blocktime == KMP_MAX_BLOCKTIME if (__kmp_dflt_blocktime == KMP_MAX_BLOCKTIME &&
#if OMP_50_ENABLED __kmp_pause_status != kmp_soft_paused)
&& __kmp_pause_status != kmp_soft_paused
#endif
)
continue; continue;
// Don't suspend if there is a likelihood of new tasks being spawned. // Don't suspend if there is a likelihood of new tasks being spawned.
if ((task_team != NULL) && TCR_4(task_team->tt.tt_found_tasks)) if ((task_team != NULL) && TCR_4(task_team->tt.tt_found_tasks))
continue; continue;
#if KMP_USE_MONITOR #if KMP_USE_MONITOR
// If we have waited a bit more, fall asleep // If we have waited a bit more, fall asleep
if (TCR_4(__kmp_global.g.g_time.dt.t_value) < hibernate) if (TCR_4(__kmp_global.g.g_time.dt.t_value) < hibernate)
continue; continue;
#else #else
if (KMP_BLOCKING(hibernate_goal, poll_count++)) if (KMP_BLOCKING(hibernate_goal, poll_count++))
continue; continue;
#endif #endif
// Don't suspend if wait loop designated non-sleepable // Don't suspend if wait loop designated non-sleepable
// in template parameters // in template parameters
if (!sleepable) if (!sleepable)
continue; continue;
#if OMP_50_ENABLED
if (__kmp_dflt_blocktime == KMP_MAX_BLOCKTIME && if (__kmp_dflt_blocktime == KMP_MAX_BLOCKTIME &&
__kmp_pause_status != kmp_soft_paused) __kmp_pause_status != kmp_soft_paused)
continue; continue;
#endif
KF_TRACE(50, ("__kmp_wait_sleep: T#%d suspend time reached\n", th_gtid)); KF_TRACE(50, ("__kmp_wait_sleep: T#%d suspend time reached\n", th_gtid));
#if KMP_OS_UNIX #if KMP_OS_UNIX
if (final_spin) if (final_spin)
KMP_ATOMIC_ST_REL(&this_thr->th.th_blocking, false); KMP_ATOMIC_ST_REL(&this_thr->th.th_blocking, false);
#endif #endif
flag->suspend(th_gtid); flag->suspend(th_gtid);
▲ Show 20 Lines • Show All 519 Lines • Show Last 20 Lines

runtime/src/ompt-event-specific.h

Show First 20 Lines • Show All 70 Lines • ▼ Show 20 Lines
| Optional Events | Optional Events
+--------------------------------------------------------------------------*/ +--------------------------------------------------------------------------*/
#define ompt_callback_sync_region_wait_implemented \ #define ompt_callback_sync_region_wait_implemented \
ompt_event_MAY_ALWAYS_OPTIONAL ompt_event_MAY_ALWAYS_OPTIONAL
#define ompt_callback_mutex_released_implemented ompt_event_MAY_ALWAYS_OPTIONAL #define ompt_callback_mutex_released_implemented ompt_event_MAY_ALWAYS_OPTIONAL
#if OMP_40_ENABLED
#define ompt_callback_dependences_implemented \ #define ompt_callback_dependences_implemented \
ompt_event_MAY_ALWAYS_OPTIONAL ompt_event_MAY_ALWAYS_OPTIONAL
#define ompt_callback_task_dependence_implemented ompt_event_MAY_ALWAYS_OPTIONAL #define ompt_callback_task_dependence_implemented ompt_event_MAY_ALWAYS_OPTIONAL
#else
#define ompt_callback_dependences_implemented ompt_event_UNIMPLEMENTED
#define ompt_callback_task_dependence_implemented ompt_event_UNIMPLEMENTED
#endif /* OMP_40_ENABLED */
#define ompt_callback_work_implemented ompt_event_MAY_ALWAYS_OPTIONAL #define ompt_callback_work_implemented ompt_event_MAY_ALWAYS_OPTIONAL
#define ompt_callback_master_implemented ompt_event_MAY_ALWAYS_OPTIONAL #define ompt_callback_master_implemented ompt_event_MAY_ALWAYS_OPTIONAL
#define ompt_callback_target_map_implemented ompt_event_UNIMPLEMENTED #define ompt_callback_target_map_implemented ompt_event_UNIMPLEMENTED
#define ompt_callback_sync_region_implemented ompt_event_MAY_ALWAYS_OPTIONAL #define ompt_callback_sync_region_implemented ompt_event_MAY_ALWAYS_OPTIONAL
Show All 17 Lines

runtime/src/ompt-internal.h

Show First 20 Lines • Show All 51 Lines • ▼ Show 20 Lines ((info->td_flags.task_serial || info->td_flags.tasking_ser) \
(info->td_flags.final ? ompt_task_final : 0x0) | \ (info->td_flags.final ? ompt_task_final : 0x0) | \
(info->td_flags.merged_if0 ? ompt_task_mergeable : 0x0) (info->td_flags.merged_if0 ? ompt_task_mergeable : 0x0)
typedef struct { typedef struct {
ompt_frame_t frame; ompt_frame_t frame;
ompt_data_t task_data; ompt_data_t task_data;
struct kmp_taskdata *scheduling_parent; struct kmp_taskdata *scheduling_parent;
int thread_num; int thread_num;
#if OMP_40_ENABLED
int ndeps; int ndeps;
ompt_dependence_t *deps; ompt_dependence_t *deps;
#endif /* OMP_40_ENABLED */
} ompt_task_info_t; } ompt_task_info_t;
typedef struct { typedef struct {
ompt_data_t parallel_data; ompt_data_t parallel_data;
void *master_return_address; void *master_return_address;
} ompt_team_info_t; } ompt_team_info_t;
typedef struct ompt_lw_taskteam_s { typedef struct ompt_lw_taskteam_s {
Show All 11 Linestypedef struct {
ompt_state_t state; ompt_state_t state;
ompt_wait_id_t wait_id; ompt_wait_id_t wait_id;
int ompt_task_yielded; int ompt_task_yielded;
void *idle_frame; void *idle_frame;
} ompt_thread_info_t; } ompt_thread_info_t;
extern ompt_callbacks_internal_t ompt_callbacks; extern ompt_callbacks_internal_t ompt_callbacks;
#if OMP_40_ENABLED && OMPT_SUPPORT && OMPT_OPTIONAL #if OMPT_SUPPORT && OMPT_OPTIONAL
#if USE_FAST_MEMORY #if USE_FAST_MEMORY
#define KMP_OMPT_DEPS_ALLOC __kmp_fast_allocate #define KMP_OMPT_DEPS_ALLOC __kmp_fast_allocate
#define KMP_OMPT_DEPS_FREE __kmp_fast_free #define KMP_OMPT_DEPS_FREE __kmp_fast_free
#else #else
#define KMP_OMPT_DEPS_ALLOC __kmp_thread_malloc #define KMP_OMPT_DEPS_ALLOC __kmp_thread_malloc
#define KMP_OMPT_DEPS_FREE __kmp_thread_free #define KMP_OMPT_DEPS_FREE __kmp_thread_free
#endif #endif
#endif /* OMP_40_ENABLED && OMPT_SUPPORT && OMPT_OPTIONAL */ #endif /* OMPT_SUPPORT && OMPT_OPTIONAL */
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
#endif #endif
void ompt_pre_init(void); void ompt_pre_init(void);
void ompt_post_init(void); void ompt_post_init(void);
void ompt_fini(void); void ompt_fini(void);
Show All 21 Lines

runtime/src/z_Linux_util.cpp

Show First 20 Lines • Show All 1,258 Lines • ▼ Show 20 Lines#if KMP_OS_LINUX
// reset the affinity in the child to the initial thread // reset the affinity in the child to the initial thread
// affinity in the parent // affinity in the parent
kmp_set_thread_affinity_mask_initial(); kmp_set_thread_affinity_mask_initial();
#endif #endif
// Set default not to bind threads tightly in the child (we’re expecting // Set default not to bind threads tightly in the child (we’re expecting
// over-subscription after the fork and this can improve things for // over-subscription after the fork and this can improve things for
// scripting languages that use OpenMP inside process-parallel code). // scripting languages that use OpenMP inside process-parallel code).
__kmp_affinity_type = affinity_none; __kmp_affinity_type = affinity_none;
#if OMP_40_ENABLED
if (__kmp_nested_proc_bind.bind_types != NULL) { if (__kmp_nested_proc_bind.bind_types != NULL) {
__kmp_nested_proc_bind.bind_types[0] = proc_bind_false; __kmp_nested_proc_bind.bind_types[0] = proc_bind_false;
} }
#endif // OMP_40_ENABLED
#endif // KMP_AFFINITY_SUPPORTED #endif // KMP_AFFINITY_SUPPORTED
__kmp_init_runtime = FALSE; __kmp_init_runtime = FALSE;
#if KMP_USE_MONITOR #if KMP_USE_MONITOR
__kmp_init_monitor = 0; __kmp_init_monitor = 0;
#endif #endif
__kmp_init_parallel = FALSE; __kmp_init_parallel = FALSE;
__kmp_init_middle = FALSE; __kmp_init_middle = FALSE;
▲ Show 20 Lines • Show All 153 Lines • ▼ Show 20 Linesstatic inline void __kmp_suspend_template(int th_gtid, C *flag) {
KMP_CHECK_SYSFAIL("pthread_mutex_lock", status); KMP_CHECK_SYSFAIL("pthread_mutex_lock", status);
KF_TRACE(10, ("__kmp_suspend_template: T#%d setting sleep bit for spin(%p)\n", KF_TRACE(10, ("__kmp_suspend_template: T#%d setting sleep bit for spin(%p)\n",
th_gtid, flag->get())); th_gtid, flag->get()));
/* TODO: shouldn't this use release semantics to ensure that /* TODO: shouldn't this use release semantics to ensure that
__kmp_suspend_initialize_thread gets called first? */ __kmp_suspend_initialize_thread gets called first? */
old_spin = flag->set_sleeping(); old_spin = flag->set_sleeping();
#if OMP_50_ENABLED
if (__kmp_dflt_blocktime == KMP_MAX_BLOCKTIME && if (__kmp_dflt_blocktime == KMP_MAX_BLOCKTIME &&
__kmp_pause_status != kmp_soft_paused) { __kmp_pause_status != kmp_soft_paused) {
flag->unset_sleeping(); flag->unset_sleeping();
status = pthread_mutex_unlock(&th->th.th_suspend_mx.m_mutex); status = pthread_mutex_unlock(&th->th.th_suspend_mx.m_mutex);
KMP_CHECK_SYSFAIL("pthread_mutex_unlock", status); KMP_CHECK_SYSFAIL("pthread_mutex_unlock", status);
return; return;
} }
#endif
KF_TRACE(5, ("__kmp_suspend_template: T#%d set sleep bit for spin(%p)==%x," KF_TRACE(5, ("__kmp_suspend_template: T#%d set sleep bit for spin(%p)==%x,"
" was %x\n", " was %x\n",
th_gtid, flag->get(), flag->load(), old_spin)); th_gtid, flag->get(), flag->load(), old_spin));
if (flag->done_check_val(old_spin)) { if (flag->done_check_val(old_spin)) {
old_spin = flag->unset_sleeping(); old_spin = flag->unset_sleeping();
KF_TRACE(5, ("__kmp_suspend_template: T#%d false alarm, reset sleep bit " KF_TRACE(5, ("__kmp_suspend_template: T#%d false alarm, reset sleep bit "
"for spin(%p)\n", "for spin(%p)\n",
▲ Show 20 Lines • Show All 974 Lines • Show Last 20 Lines

runtime/src/z_Windows_NT_util.cpp

Show First 20 Lines • Show All 366 Lines • ▼ Show 20 Linesstatic inline void __kmp_suspend_template(int th_gtid, C *flag) {
KF_TRACE(10, ("__kmp_suspend_template: T#%d setting sleep bit for flag's" KF_TRACE(10, ("__kmp_suspend_template: T#%d setting sleep bit for flag's"
" loc(%p)\n", " loc(%p)\n",
th_gtid, flag->get())); th_gtid, flag->get()));
/* TODO: shouldn't this use release semantics to ensure that /* TODO: shouldn't this use release semantics to ensure that
__kmp_suspend_initialize_thread gets called first? */ __kmp_suspend_initialize_thread gets called first? */
old_spin = flag->set_sleeping(); old_spin = flag->set_sleeping();
#if OMP_50_ENABLED
if (__kmp_dflt_blocktime == KMP_MAX_BLOCKTIME && if (__kmp_dflt_blocktime == KMP_MAX_BLOCKTIME &&
__kmp_pause_status != kmp_soft_paused) { __kmp_pause_status != kmp_soft_paused) {
flag->unset_sleeping(); flag->unset_sleeping();
__kmp_win32_mutex_unlock(&th->th.th_suspend_mx); __kmp_win32_mutex_unlock(&th->th.th_suspend_mx);
return; return;
} }
#endif
KF_TRACE(5, ("__kmp_suspend_template: T#%d set sleep bit for flag's" KF_TRACE(5, ("__kmp_suspend_template: T#%d set sleep bit for flag's"
" loc(%p)==%d\n", " loc(%p)==%d\n",
th_gtid, flag->get(), *(flag->get()))); th_gtid, flag->get(), *(flag->get())));
if (flag->done_check_val(old_spin)) { if (flag->done_check_val(old_spin)) {
old_spin = flag->unset_sleeping(); old_spin = flag->unset_sleeping();
KF_TRACE(5, ("__kmp_suspend_template: T#%d false alarm, reset sleep bit " KF_TRACE(5, ("__kmp_suspend_template: T#%d false alarm, reset sleep bit "
▲ Show 20 Lines • Show All 1,233 Lines • Show Last 20 Lines

runtime/test/affinity/format/lit.local.cfg

if 'openmp-5.0' not in config.available_features:
config.unsupported = True

runtime/test/lit.cfg

Show First 20 Lines • Show All 85 Lines • ▼ Show 20 Linesif config.has_ompt and config.test_filecheck == "":
lit_config.note("Not testing OMPT because FileCheck was not found") lit_config.note("Not testing OMPT because FileCheck was not found")
config.has_ompt = False config.has_ompt = False
if config.has_ompt: if config.has_ompt:
config.available_features.add("ompt") config.available_features.add("ompt")
# for callback.h # for callback.h
config.test_flags += " -I " + config.test_source_root + "/ompt" config.test_flags += " -I " + config.test_source_root + "/ompt"
if config.libomp_omp_version >= 50:
config.available_features.add("openmp-5.0")
if config.libomp_omp_version >= 45:
config.available_features.add("openmp-4.5")
if config.libomp_omp_version >= 40:
config.available_features.add("openmp-4.0")
if 'Linux' in config.operating_system: if 'Linux' in config.operating_system:
config.available_features.add("linux") config.available_features.add("linux")
if config.operating_system == 'NetBSD': if config.operating_system == 'NetBSD':
config.available_features.add("netbsd") config.available_features.add("netbsd")
if config.operating_system in ['Linux', 'Windows']: if config.operating_system in ['Linux', 'Windows']:
config.available_features.add('affinity') config.available_features.add('affinity')
Show All 36 Lines

runtime/test/lit.site.cfg.in

@AUTO_GEN_COMMENT@ @AUTO_GEN_COMMENT@
config.test_c_compiler = "@OPENMP_TEST_C_COMPILER@" config.test_c_compiler = "@OPENMP_TEST_C_COMPILER@"
config.test_cxx_compiler = "@OPENMP_TEST_CXX_COMPILER@" config.test_cxx_compiler = "@OPENMP_TEST_CXX_COMPILER@"
config.test_compiler_features = @OPENMP_TEST_COMPILER_FEATURES@ config.test_compiler_features = @OPENMP_TEST_COMPILER_FEATURES@
config.test_filecheck = "@OPENMP_FILECHECK_EXECUTABLE@" config.test_filecheck = "@OPENMP_FILECHECK_EXECUTABLE@"
config.test_openmp_flags = "@OPENMP_TEST_OPENMP_FLAGS@" config.test_openmp_flags = "@OPENMP_TEST_OPENMP_FLAGS@"
config.test_extra_flags = "@OPENMP_TEST_FLAGS@" config.test_extra_flags = "@OPENMP_TEST_FLAGS@"
config.libomp_omp_version = @LIBOMP_OMP_VERSION@
config.libomp_obj_root = "@CMAKE_CURRENT_BINARY_DIR@" config.libomp_obj_root = "@CMAKE_CURRENT_BINARY_DIR@"
config.library_dir = "@LIBOMP_LIBRARY_DIR@" config.library_dir = "@LIBOMP_LIBRARY_DIR@"
config.omp_header_directory = "@LIBOMP_BINARY_DIR@/src" config.omp_header_directory = "@LIBOMP_BINARY_DIR@/src"
config.operating_system = "@CMAKE_SYSTEM_NAME@" config.operating_system = "@CMAKE_SYSTEM_NAME@"
config.hwloc_library_dir = "@LIBOMP_HWLOC_LIBRARY_DIR@" config.hwloc_library_dir = "@LIBOMP_HWLOC_LIBRARY_DIR@"
config.using_hwloc = @LIBOMP_USE_HWLOC@ config.using_hwloc = @LIBOMP_USE_HWLOC@
config.has_ompt = @LIBOMP_OMPT_SUPPORT@ and @LIBOMP_OMPT_OPTIONAL@ config.has_ompt = @LIBOMP_OMPT_SUPPORT@ and @LIBOMP_OMPT_OPTIONAL@
config.has_libm = @LIBOMP_HAVE_LIBM@ config.has_libm = @LIBOMP_HAVE_LIBM@
config.has_libatomic = @LIBOMP_HAVE_LIBATOMIC@ config.has_libatomic = @LIBOMP_HAVE_LIBATOMIC@
# Let the main config do the real work. # Let the main config do the real work.
lit_config.load_config(config, "@LIBOMP_BASE_DIR@/test/lit.cfg") lit_config.load_config(config, "@LIBOMP_BASE_DIR@/test/lit.cfg")

runtime/test/ompt/misc/control_tool_no_ompt_support.c

// RUN: %libomp-compile-and-run // RUN: %libomp-compile-and-run
// REQUIRES: openmp-5.0
#include <omp.h> #include <omp.h>
int main() int main()
{ {
#pragma omp parallel num_threads(1) #pragma omp parallel num_threads(1)
{ {
omp_control_tool(omp_control_tool_flush, 1, NULL); omp_control_tool(omp_control_tool_flush, 1, NULL);
} }
return 0; return 0;
} }

runtime/test/tasking/kmp_task_reduction_nest.cpp

// RUN: %libomp-cxx-compile-and-run // RUN: %libomp-cxx-compile-and-run
// RUN: %libomp-cxx-compile -DFLG=1 && %libomp-run // RUN: %libomp-cxx-compile -DFLG=1 && %libomp-run
// REQUIRES: openmp-5.0
// GCC-5 is needed for OpenMP 4.0 support (taskgroup) // GCC-5 is needed for OpenMP 4.0 support (taskgroup)
// XFAIL: gcc-4 // XFAIL: gcc-4
#include <cstdio> #include <cstdio>
#include <cmath> #include <cmath>
#include <cassert> #include <cassert>
#include <omp.h> #include <omp.h>
// Total number of loop iterations, should be multiple of T for this test // Total number of loop iterations, should be multiple of T for this test
▲ Show 20 Lines • Show All 366 Lines • Show Last 20 Lines
runtime/src/z_Windows_NT_util.cpp