diff --git a/.github/workflows/call-workflows.yml b/.github/workflows/call-workflows.yml index 370c147f169..705e7c86dc9 100644 --- a/.github/workflows/call-workflows.yml +++ b/.github/workflows/call-workflows.yml @@ -84,6 +84,12 @@ jobs: thread_safety: "" build_mode: "Debug" + call-release-cross: + name: "Release Cross Compile Workflows" + uses: ./.github/workflows/cross-compile.yml + with: + build_mode: "Release" + call-release-cmake: name: "Release Workflows" uses: ./.github/workflows/main.yml diff --git a/.github/workflows/cross-compile.yml b/.github/workflows/cross-compile.yml new file mode 100644 index 00000000000..5acf6c9cbaf --- /dev/null +++ b/.github/workflows/cross-compile.yml @@ -0,0 +1,104 @@ +name: hdf5 dev CMake CI + +# Triggers the workflow on a call from another workflow +on: + workflow_call: + inputs: + build_mode: + description: "release vs. debug build" + required: true + type: string + +permissions: + contents: read + +jobs: + build_and_test_linux: + name: "Ubuntu mingw64-${{ inputs.build_mode }}" + runs-on: ubuntu-24.04 + steps: + - name: Install CMake Dependencies (Linux) + run: | + sudo apt-get update + sudo apt-get install ninja-build graphviz + sudo apt install libssl3 libssl-dev libcurl4 libcurl4-openssl-dev + + - name: Install Wine64 and dependencies + run: | + sudo apt update + sudo apt install -y wine64 winbind + +# - name: Verify Wine64 installation +# run: wine64 --version + + - name: Install MinGW64 Cross-Compiler + run: | + sudo apt update + sudo apt-get install -y mingw-w64 + sudo apt-get install gfortran-mingw-w64-x86-64-win32 + + - name: Install Dependencies + uses: ssciwr/doxygen-install@v1 + with: + version: "1.13.2" + + # Checks-out your repository under $GITHUB_WORKSPACE, so your job can access it + - name: Get Sources + uses: actions/checkout@v4.1.7 + + # CMAKE CONFIGURE + - name: CMake Configure + run: | + mkdir "${{ runner.workspace }}/build" + cd "${{ runner.workspace }}/build" + cmake -C $GITHUB_WORKSPACE/config/cmake/cacheinit.cmake \ + -G Ninja \ + --log-level=VERBOSE \ + -DCMAKE_TOOLCHAIN_FILE:STRING=config/toolchain/mingw64.cmake \ + -DCMAKE_BUILD_TYPE=${{ inputs.build_mode }} \ + -DHDF5_ENABLE_DOXY_WARNINGS:BOOL=ON \ + -DHDF5_BUILD_DOC:BOOL=ON \ + -DHDF5_BUILD_JAVA:BOOL=OFF \ + -DHDF5_ENABLE_PLUGIN_SUPPORT:BOOL=OFF \ + -DHDF5_ENABLE_ZLIB_SUPPORT:BOOL=ON \ + -DHDF5_ENABLE_SZIP_SUPPORT:BOOL=ON \ + -DLIBAEC_USE_LOCALCONTENT:BOOL=OFF \ + -DZLIB_USE_LOCALCONTENT:BOOL=OFF \ + -DHDF5_PACK_EXAMPLES:BOOL=ON \ + -DHDF5_PACKAGE_EXTLIBS:BOOL=ON \ + -DHDF5_TEST_API:BOOL=OFF \ + -DHDF5_USE_PREGEN:BOOL=ON \ + $GITHUB_WORKSPACE + shell: bash + + # BUILD + - name: CMake Build + run: cmake --build . --parallel 3 --config ${{ inputs.build_mode }} + working-directory: ${{ runner.workspace }}/build + + # RUN TESTS +# - name: CMake Run Tests +# run: ctest . --parallel 2 -C ${{ inputs.build_mode }} -V -E "err_compat|filenotclosed|swmr|cache_api" +# working-directory: ${{ runner.workspace }}/build + + # RUN Failing TESTS +# - name: CMake Run Tests +# run: ctest . --parallel 2 -C ${{ inputs.build_mode }} -V -R "err_compat|filenotclosed|swmr|cache_api" +# working-directory: ${{ runner.workspace }}/build +# continue-on-error: true + + - name: CMake Run Package + run: cpack -C ${{ inputs.build_mode }} -V + working-directory: ${{ runner.workspace }}/build + + - name: List files in the space + run: | + ls -l ${{ runner.workspace }}/build + + - name: Save published binary (linux) + uses: actions/upload-artifact@v4 + with: + name: tgz-ubuntu-2404_mingw64-${{ inputs.build_mode }}-binary + path: ${{ runner.workspace }}/build/HDF5-*-win64.zip + if-no-files-found: error # 'warn' or 'ignore' are also available, defaults to `warn` + if: ${{ inputs.build_mode != 'Debug' }} diff --git a/CMakeLists.txt b/CMakeLists.txt index 422d20f80d1..793a7aa7263 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -325,6 +325,12 @@ set (HDF5_DOXYGEN_DIR ${HDF5_SOURCE_DIR}/doxygen) set (HDF5_SRC_INCLUDE_DIRS ${HDF5_SRC_DIR}) +if (HDF5_USE_PREGEN) + set (HDF5_GENERATED_SOURCE_DIR ${HDF5_USE_PREGEN_DIR}) +else () + set (HDF5_GENERATED_SOURCE_DIR ${HDF5_F90_SRC_BINARY_DIR}) +endif () + #----------------------------------------------------------------------------- # parse the full version number from H5public.h and include in H5_VERS_INFO #----------------------------------------------------------------------------- diff --git a/HDF5Examples/C/H5D/CMakeLists.txt b/HDF5Examples/C/H5D/CMakeLists.txt index 9303658e877..dddd4d23514 100644 --- a/HDF5Examples/C/H5D/CMakeLists.txt +++ b/HDF5Examples/C/H5D/CMakeLists.txt @@ -12,7 +12,7 @@ foreach (example_name ${common_examples}) else () add_executable (${EXAMPLE_VARNAME}_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.c) endif () - target_compile_options(${EXAMPLE_VARNAME}_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -38,7 +38,7 @@ endforeach () if (HDF5_VERSION_MAJOR VERSION_GREATER_EQUAL "1.8") foreach (example_name ${1_8_examples}) add_executable (${EXAMPLE_VARNAME}_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.c) - target_compile_options(${EXAMPLE_VARNAME}_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -217,18 +217,18 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -238,12 +238,14 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (HDF5_PROVIDES_TOOLS) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -253,7 +255,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () endmacro () diff --git a/HDF5Examples/C/H5FLT/CMakeLists.txt b/HDF5Examples/C/H5FLT/CMakeLists.txt index b4b41fcbb77..fe186eee5a2 100644 --- a/HDF5Examples/C/H5FLT/CMakeLists.txt +++ b/HDF5Examples/C/H5FLT/CMakeLists.txt @@ -174,7 +174,7 @@ endif () foreach (example ${dyn_examples}) add_executable (${EXAMPLE_VARNAME}_${example} ${PROJECT_SOURCE_DIR}/${example}.c) TARGET_C_PROPERTIES (${EXAMPLE_VARNAME}_${example} ${LIB_TYPE}) - target_compile_options(${EXAMPLE_VARNAME}_${example} + target_compile_options (${EXAMPLE_VARNAME}_${example} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -196,8 +196,7 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.out ${testname}.out.err ${testname}.ddl.out @@ -212,7 +211,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-ERR COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -228,7 +226,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname}-ERR PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname}-ERR PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" @@ -240,7 +241,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -252,7 +252,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () set (last_test "${EXAMPLE_VARNAME}_${testname}") if (HDF5_PROVIDES_TOOLS) @@ -260,7 +263,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=--enable-error-stack;-p;${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -278,7 +280,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=--enable-error-stack;-pH;${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -296,7 +297,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=--enable-error-stack;-p;${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -311,7 +311,10 @@ if (H5EXAMPLE_BUILD_TESTING) -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) endif () - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) set (last_test "${EXAMPLE_VARNAME}_H5DUMP-${testname}") endif () endmacro () @@ -320,17 +323,17 @@ if (H5EXAMPLE_BUILD_TESTING) # Copy all the HDF5 files from the source directory into the test directory # -------------------------------------------------------------------- foreach (h5_file ${dyn_examples}) - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/tfiles/${h5_file}.tst" "${PROJECT_BINARY_DIR}/${h5_file}.tst" "example_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/tfiles/${h5_file}.tst" "${PROJECT_BINARY_DIR}/${h5_file}.tst" "example_files") if (WIN32 AND MSVC_VERSION LESS 1900 AND ${h5_file} MATCHES "h5ex_d_zfp") - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/tfiles/h5ex_d_zfp.wddl" "${PROJECT_BINARY_DIR}/h5ex_d_zfp.ddl" "example_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/tfiles/h5ex_d_zfp.wddl" "${PROJECT_BINARY_DIR}/h5ex_d_zfp.ddl" "example_files") else () - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/tfiles/${h5_file}.ddl" "${PROJECT_BINARY_DIR}/${h5_file}.ddl" "example_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/tfiles/${h5_file}.ddl" "${PROJECT_BINARY_DIR}/${h5_file}.ddl" "example_files") endif() endforeach () foreach (h5_file ${LIST_HDF5_TEST_FILES} ${LIST_OTHER_TEST_FILES}) - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/tfiles/${h5_file}" "${PROJECT_BINARY_DIR}/${h5_file}" "example_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/tfiles/${h5_file}" "${PROJECT_BINARY_DIR}/${h5_file}" "example_files") endforeach () - add_custom_target(${EXAMPLE_VARNAME}_example_files ALL COMMENT "Copying files needed by example tests" DEPENDS ${example_files_list}) + add_custom_target (${EXAMPLE_VARNAME}_example_files ALL COMMENT "Copying files needed by example tests" DEPENDS ${example_files_list}) foreach (h5_file ${dyn_examples}) if (NOT HDF5_ENABLE_USING_MEMCHECKER) diff --git a/HDF5Examples/C/H5G/CMakeLists.txt b/HDF5Examples/C/H5G/CMakeLists.txt index f53b3da210b..e596286888b 100644 --- a/HDF5Examples/C/H5G/CMakeLists.txt +++ b/HDF5Examples/C/H5G/CMakeLists.txt @@ -12,7 +12,7 @@ foreach (example_name ${common_examples}) else () add_executable (${EXAMPLE_VARNAME}_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.c) endif () - target_compile_options(${EXAMPLE_VARNAME}_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -229,18 +229,15 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_DUMP_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -250,12 +247,14 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (HDF5_PROVIDES_TOOLS) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -265,20 +264,22 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () endmacro () macro (ADD_H5_DUMP_TEST testname) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -292,7 +293,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -302,7 +302,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () endmacro () @@ -310,19 +313,17 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_DUMP2_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove + COMMAND ${CMAKE_COMMAND} -E remove ${testname}1.h5 ${testname}2.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -332,12 +333,14 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (HDF5_PROVIDES_TOOLS) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname}1 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${testname}1.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -347,11 +350,13 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname}1 PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname}1 PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname}2 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${testname}2.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -361,7 +366,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname}2 PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_H5DUMP-${testname}1) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname}2 PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_H5DUMP-${testname}1 + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () endmacro () @@ -369,18 +377,15 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_CMP_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.out.tmp + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.out.tmp ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -390,7 +395,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endmacro () diff --git a/HDF5Examples/C/H5T/CMakeLists.txt b/HDF5Examples/C/H5T/CMakeLists.txt index d672460acf1..3b315d0bfef 100644 --- a/HDF5Examples/C/H5T/CMakeLists.txt +++ b/HDF5Examples/C/H5T/CMakeLists.txt @@ -12,7 +12,7 @@ foreach (example_name ${common_examples}) else () add_executable (${EXAMPLE_VARNAME}_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.c) endif () - target_compile_options(${EXAMPLE_VARNAME}_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -350,18 +350,15 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -371,12 +368,14 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (HDF5_PROVIDES_TOOLS) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -386,7 +385,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () endmacro () @@ -394,18 +396,15 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_CMP_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -415,7 +414,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endmacro () diff --git a/HDF5Examples/C/H5VDS/CMakeLists.txt b/HDF5Examples/C/H5VDS/CMakeLists.txt index 2e5ee8252a6..b433871e292 100644 --- a/HDF5Examples/C/H5VDS/CMakeLists.txt +++ b/HDF5Examples/C/H5VDS/CMakeLists.txt @@ -12,7 +12,7 @@ include (C_sourcefiles.cmake) if (HDF5_VERSION_MAJOR VERSION_GREATER_EQUAL "1.10") foreach (example_name ${1_10_examples}) add_executable (${EXAMPLE_VARNAME}_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.c) - target_compile_options(${EXAMPLE_VARNAME}_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -124,18 +124,15 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}*.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}*.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -145,12 +142,14 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (HDF5_PROVIDES_TOOLS) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -160,7 +159,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () endmacro () diff --git a/HDF5Examples/C/HL/CMakeLists.txt b/HDF5Examples/C/HL/CMakeLists.txt index 4baba37f108..d725e0edcfa 100644 --- a/HDF5Examples/C/HL/CMakeLists.txt +++ b/HDF5Examples/C/HL/CMakeLists.txt @@ -8,7 +8,7 @@ include (C_sourcefiles.cmake) foreach (example_name ${common_examples}) add_executable (${EXAMPLE_VARNAME}_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.c) - target_compile_options(${EXAMPLE_VARNAME}_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -121,7 +121,7 @@ if (HDF5_PROVIDES_TOOLS) ) foreach (example_name ${common_examples}) if (NOT ${example_name} STREQUAL "h5ex_lite1" AND NOT ${example_name} STREQUAL "h5ex_lite2") - if (H5EX_WORDS_BIGENDIAN) + if (H5EXAMPLE_WORDS_BIGENDIAN) add_custom_command ( TARGET ${EXAMPLE_VARNAME}_${example_name} POST_BUILD @@ -195,18 +195,15 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -216,12 +213,14 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (HDF5_PROVIDES_TOOLS) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -231,7 +230,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () endmacro () @@ -239,18 +241,15 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_NOCMP_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -260,12 +259,14 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (HDF5_PROVIDES_TOOLS) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -276,7 +277,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () endmacro () @@ -292,20 +296,23 @@ if (H5EXAMPLE_BUILD_TESTING) # special test for h5ex_lite1 and h5ex_lite2 add_test ( NAME ${EXAMPLE_VARNAME}_h5ex_lite-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - h5ex_lite1.h5 + COMMAND ${CMAKE_COMMAND} -E remove h5ex_lite1.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_h5ex_lite1 COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) - set_tests_properties (${EXAMPLE_VARNAME}_h5ex_lite1 PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_h5ex_lite-clearall) - add_test (NAME ${EXAMPLE_VARNAME}_h5ex_lite2 COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) - set_tests_properties (${EXAMPLE_VARNAME}_h5ex_lite2 PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_h5ex_lite1) + add_test (NAME ${EXAMPLE_VARNAME}_h5ex_lite1 COMMAND $) + set_tests_properties (${EXAMPLE_VARNAME}_h5ex_lite1 PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_h5ex_lite-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) + add_test (NAME ${EXAMPLE_VARNAME}_h5ex_lite2 COMMAND $) + set_tests_properties (${EXAMPLE_VARNAME}_h5ex_lite2 PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_h5ex_lite1 + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) else () add_test ( NAME ${EXAMPLE_VARNAME}_h5ex_lite1 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -315,11 +322,13 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_h5ex_lite1 PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_h5ex_lite-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_h5ex_lite1 PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_h5ex_lite-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) add_test ( NAME ${EXAMPLE_VARNAME}_h5ex_lite2 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -329,6 +338,9 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_h5ex_lite2 PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_h5ex_lite1) + set_tests_properties (${EXAMPLE_VARNAME}_h5ex_lite2 PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_h5ex_lite1 + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () diff --git a/HDF5Examples/C/TUTR/CMakeLists.txt b/HDF5Examples/C/TUTR/CMakeLists.txt index e5b388b8d34..8e4f3da9015 100644 --- a/HDF5Examples/C/TUTR/CMakeLists.txt +++ b/HDF5Examples/C/TUTR/CMakeLists.txt @@ -8,7 +8,7 @@ include (C_sourcefiles.cmake) foreach (example_name ${examples}) add_executable (${EXAMPLE_VARNAME}_tutr_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.c) - target_compile_options(${EXAMPLE_VARNAME}_tutr_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_tutr_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -67,7 +67,7 @@ if (H5EXAMPLE_BUILD_TESTING) # Remove any output file left over from previous test run add_test ( NAME ${EXAMPLE_VARNAME}_tutr-clear-objects - COMMAND ${CMAKE_COMMAND} -E remove ${${EXAMPLE_VARNAME}_tutr_CLEANFILES} + COMMAND ${CMAKE_COMMAND} -E remove ${${EXAMPLE_VARNAME}_tutr_CLEANFILES} ) set_tests_properties (${EXAMPLE_VARNAME}_tutr-clear-objects PROPERTIES FIXTURES_SETUP clear_${EXAMPLE_VARNAME}_tutr @@ -75,7 +75,7 @@ if (H5EXAMPLE_BUILD_TESTING) ) add_test ( NAME ${EXAMPLE_VARNAME}_tutr-clean-objects - COMMAND ${CMAKE_COMMAND} -E remove ${${EXAMPLE_VARNAME}_tutr_CLEANFILES} + COMMAND ${CMAKE_COMMAND} -E remove ${${EXAMPLE_VARNAME}_tutr_CLEANFILES} ) set_tests_properties (${EXAMPLE_VARNAME}_tutr-clean-objects PROPERTIES FIXTURES_CLEANUP clear_${EXAMPLE_VARNAME}_tutr @@ -84,12 +84,11 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) if (HDF5_USING_ANALYSIS_TOOL) - add_test (NAME ${EXAMPLE_VARNAME}_tutr_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_tutr_${testname} COMMAND $) else () add_test ( NAME ${EXAMPLE_VARNAME}_tutr_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -100,7 +99,10 @@ if (H5EXAMPLE_BUILD_TESTING) -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) endif () - set_tests_properties (${EXAMPLE_VARNAME}_tutr_${testname} PROPERTIES FIXTURES_REQUIRED clear_${EXAMPLE_VARNAME}_tutr) + set_tests_properties (${EXAMPLE_VARNAME}_tutr_${testname} PROPERTIES + FIXTURES_REQUIRED clear_${EXAMPLE_VARNAME}_tutr + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (last_test) set_tests_properties (${EXAMPLE_VARNAME}_tutr_${testname} PROPERTIES DEPENDS ${last_test}) endif () diff --git a/HDF5Examples/CXX/H5D/CMakeLists.txt b/HDF5Examples/CXX/H5D/CMakeLists.txt index 45cfbdffbc3..143b056afaf 100644 --- a/HDF5Examples/CXX/H5D/CMakeLists.txt +++ b/HDF5Examples/CXX/H5D/CMakeLists.txt @@ -9,7 +9,7 @@ include (C_sourcefiles.cmake) if (HDF5_VERSION_MAJOR VERSION_GREATER_EQUAL "1.8") foreach (example_name ${examples}) add_executable (${EXAMPLE_VARNAME}_cpp_ex_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.cpp) - target_compile_options(${EXAMPLE_VARNAME}_cpp_ex_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_cpp_ex_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -35,8 +35,7 @@ if (H5EXAMPLE_BUILD_TESTING) ) add_test ( NAME ${EXAMPLE_VARNAME}_cpp_ex-clear-objects - COMMAND ${CMAKE_COMMAND} - -E remove ${${EXAMPLE_VARNAME}_cpp_ex_CLEANFILES} + COMMAND ${CMAKE_COMMAND} -E remove ${${EXAMPLE_VARNAME}_cpp_ex_CLEANFILES} ) set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex-clear-objects PROPERTIES FIXTURES_SETUP clear_${EXAMPLE_VARNAME}_cpp_ex @@ -44,8 +43,7 @@ if (H5EXAMPLE_BUILD_TESTING) ) add_test ( NAME ${EXAMPLE_VARNAME}_cpp_ex-clean-objects - COMMAND ${CMAKE_COMMAND} - -E remove ${${EXAMPLE_VARNAME}_cpp_ex_CLEANFILES} + COMMAND ${CMAKE_COMMAND} -E remove ${${EXAMPLE_VARNAME}_cpp_ex_CLEANFILES} ) set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex-clean-objects PROPERTIES FIXTURES_CLEANUP clear_${EXAMPLE_VARNAME}_cpp_ex @@ -54,12 +52,11 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname} COMMAND $) else () add_test ( NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -70,7 +67,10 @@ if (H5EXAMPLE_BUILD_TESTING) -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) endif () - set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES FIXTURES_REQUIRED clear_${EXAMPLE_VARNAME}_cpp_ex) + set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES + FIXTURES_REQUIRED clear_${EXAMPLE_VARNAME}_cpp_ex + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (last_test) set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES DEPENDS ${last_test}) endif () diff --git a/HDF5Examples/CXX/HL/CMakeLists.txt b/HDF5Examples/CXX/HL/CMakeLists.txt index a197e4d6147..fa4566f85f9 100644 --- a/HDF5Examples/CXX/HL/CMakeLists.txt +++ b/HDF5Examples/CXX/HL/CMakeLists.txt @@ -9,7 +9,7 @@ include (C_sourcefiles.cmake) if (HDF5_VERSION_MAJOR VERSION_GREATER_EQUAL "1.8") foreach (example_name ${common_examples}) add_executable (${EXAMPLE_VARNAME}_cpp_ex_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.cpp) - target_compile_options(${EXAMPLE_VARNAME}_cpp_ex_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_cpp_ex_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -31,8 +31,7 @@ if (H5EXAMPLE_BUILD_TESTING) ) add_test ( NAME ${EXAMPLE_VARNAME}_cpp_ex-clear-objects - COMMAND ${CMAKE_COMMAND} - -E remove ${${EXAMPLE_VARNAME}_cpp_ex_CLEANFILES} + COMMAND ${CMAKE_COMMAND} -E remove ${${EXAMPLE_VARNAME}_cpp_ex_CLEANFILES} ) set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex-clear-objects PROPERTIES FIXTURES_SETUP clear_${EXAMPLE_VARNAME}_cpp_ex @@ -40,8 +39,7 @@ if (H5EXAMPLE_BUILD_TESTING) ) add_test ( NAME ${EXAMPLE_VARNAME}_cpp_ex-clean-objects - COMMAND ${CMAKE_COMMAND} - -E remove ${${EXAMPLE_VARNAME}_cpp_ex_CLEANFILES} + COMMAND ${CMAKE_COMMAND} -E remove ${${EXAMPLE_VARNAME}_cpp_ex_CLEANFILES} ) set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex-clean-objects PROPERTIES FIXTURES_CLEANUP clear_${EXAMPLE_VARNAME}_cpp_ex @@ -50,12 +48,11 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname} COMMAND $) else () add_test ( NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -66,7 +63,10 @@ if (H5EXAMPLE_BUILD_TESTING) -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) endif () - set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES FIXTURES_REQUIRED clear_${EXAMPLE_VARNAME}_cpp_ex) + set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES + FIXTURES_REQUIRED clear_${EXAMPLE_VARNAME}_cpp_ex + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (last_test) set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES DEPENDS ${last_test}) endif () diff --git a/HDF5Examples/CXX/TUTR/CMakeLists.txt b/HDF5Examples/CXX/TUTR/CMakeLists.txt index b623f968336..f2cd8277504 100644 --- a/HDF5Examples/CXX/TUTR/CMakeLists.txt +++ b/HDF5Examples/CXX/TUTR/CMakeLists.txt @@ -9,7 +9,7 @@ include (C_sourcefiles.cmake) if (HDF5_VERSION_MAJOR VERSION_GREATER_EQUAL "1.8") foreach (example_name ${examples}) add_executable (${EXAMPLE_VARNAME}_cpp_ex_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.cpp) - target_compile_options(${EXAMPLE_VARNAME}_cpp_ex_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_cpp_ex_${example_name} PRIVATE "$<$:-DH5_USE_16_API>" "$<$:-DH5_USE_18_API>" @@ -29,18 +29,15 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_cpp_ex_${testname}-clearall) else () add_test ( NAME ${EXAMPLE_VARNAME}_cpp_ex_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -50,7 +47,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_cpp_ex_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_cpp_ex_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () if (last_test) set_tests_properties (${EXAMPLE_VARNAME}_cpp_ex_${testname} PROPERTIES DEPENDS ${last_test}) diff --git a/HDF5Examples/FORTRAN/H5D/CMakeLists.txt b/HDF5Examples/FORTRAN/H5D/CMakeLists.txt index a73796a909f..79f22a2f154 100644 --- a/HDF5Examples/FORTRAN/H5D/CMakeLists.txt +++ b/HDF5Examples/FORTRAN/H5D/CMakeLists.txt @@ -9,8 +9,8 @@ project (HDF5Examples_FORTRAN_H5D Fortran) #----------------------------------------------------------------------------- # Setup include Directories #----------------------------------------------------------------------------- -set_directory_properties(PROPERTIES INCLUDE_DIRECTORIES - "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" +set_directory_properties (PROPERTIES INCLUDE_DIRECTORIES + "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" ) #----------------------------------------------------------------------------- @@ -20,7 +20,7 @@ include (Fortran_sourcefiles.cmake) foreach (example_name ${common_examples}) add_executable (${EXAMPLE_VARNAME}_f90_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.F90) - target_compile_options(${EXAMPLE_VARNAME}_f90_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_f90_${example_name} PRIVATE "-DH5_LIBVER_DIR=${H5_LIBVER_DIR}" "$<$:-DH5_USE_16_API>" @@ -240,25 +240,20 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_USING_ANALYSIS_TOOL) - add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}) else () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -268,15 +263,19 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (last_test) - set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${last_test}) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES + DEPENDS ${last_test} + ) endif () set (last_test "${EXAMPLE_VARNAME}_f90_${testname}") if (HDF5_PROVIDES_TOOLS) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -286,14 +285,15 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES DEPENDS ${last_test}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES + DEPENDS ${last_test} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) set (last_test "${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}") endif () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${last_test}) endif () diff --git a/HDF5Examples/FORTRAN/H5G/CMakeLists.txt b/HDF5Examples/FORTRAN/H5G/CMakeLists.txt index d2005801c38..d27a585b932 100644 --- a/HDF5Examples/FORTRAN/H5G/CMakeLists.txt +++ b/HDF5Examples/FORTRAN/H5G/CMakeLists.txt @@ -9,8 +9,8 @@ project (HDF5Examples_FORTRAN_H5G Fortran) #----------------------------------------------------------------------------- # Setup include Directories #----------------------------------------------------------------------------- -set_directory_properties(PROPERTIES INCLUDE_DIRECTORIES - "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" +set_directory_properties (PROPERTIES INCLUDE_DIRECTORIES + "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" ) #----------------------------------------------------------------------------- @@ -20,7 +20,7 @@ include (Fortran_sourcefiles.cmake) foreach (example_name ${common_examples}) add_executable (${EXAMPLE_VARNAME}_f90_${example_name} ${PROJECT_SOURCE_DIR}/${example_name}.F90) - target_compile_options(${EXAMPLE_VARNAME}_f90_${example_name} + target_compile_options (${EXAMPLE_VARNAME}_f90_${example_name} PRIVATE "-DH5_LIBVER_DIR=${H5_LIBVER_DIR}" "$<$:-DH5_USE_16_API>" @@ -187,25 +187,23 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_DUMP_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_USING_ANALYSIS_TOOL) - add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 + ) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_f90_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) - set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}) else () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -215,6 +213,9 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (last_test) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${last_test}) endif () @@ -223,7 +224,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -233,14 +233,15 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES DEPENDS ${last_test}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES + DEPENDS ${last_test} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) set (last_test "${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}") endif () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${last_test}) endif () @@ -248,20 +249,17 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_DUMP_TEST testname) if (HDF5_USING_ANALYSIS_TOOL) - add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}) else () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -271,6 +269,9 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (last_test) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${last_test}) endif () @@ -279,7 +280,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -289,14 +289,15 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES DEPENDS ${last_test}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES + DEPENDS ${last_test} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) set (last_test "${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}") endif () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${last_test}) endif () @@ -305,20 +306,20 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_DUMP2_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ${testname}1.h5 ${testname}2.h5 ) if (HDF5_USING_ANALYSIS_TOOL) - add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) - set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall) + add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND $) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}) else () @@ -326,7 +327,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -340,7 +340,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -351,12 +350,14 @@ if (H5EXAMPLE_BUILD_TESTING) -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) endif () - set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (HDF5_PROVIDES_TOOLS) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}1 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${testname}1.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -366,11 +367,13 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}1 PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}1 PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_f90_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}2 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${testname}2.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -380,7 +383,10 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}2 PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}1) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}2 PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}1 + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) endif () endif () endmacro () @@ -388,17 +394,14 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_CMP_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.out.tmp + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.out.tmp ) if (HDF5_USING_ANALYSIS_TOOL) - add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND $) else () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -409,12 +412,13 @@ if (H5EXAMPLE_BUILD_TESTING) -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) endif () - set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.out.tmp + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.out.tmp ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}) endmacro () diff --git a/HDF5Examples/FORTRAN/H5T/CMakeLists.txt b/HDF5Examples/FORTRAN/H5T/CMakeLists.txt index adcc2d49f95..cf0f86940a1 100644 --- a/HDF5Examples/FORTRAN/H5T/CMakeLists.txt +++ b/HDF5Examples/FORTRAN/H5T/CMakeLists.txt @@ -4,8 +4,8 @@ project (HDF5Examples_FORTRAN_H5T Fortran) #----------------------------------------------------------------------------- # Setup include Directories #----------------------------------------------------------------------------- -set_directory_properties(PROPERTIES INCLUDE_DIRECTORIES - "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" +set_directory_properties (PROPERTIES INCLUDE_DIRECTORIES + "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" ) #----------------------------------------------------------------------------- @@ -301,25 +301,23 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_USING_ANALYSIS_TOOL) - add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 + ) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_f90_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) - set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}) else () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -329,6 +327,9 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (last_test) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${last_test}) endif () @@ -337,7 +338,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -347,14 +347,15 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES DEPENDS ${last_test}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES + DEPENDS ${last_test} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) set (last_test "${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}") endif () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${last_test}) endif () @@ -363,17 +364,14 @@ if (H5EXAMPLE_BUILD_TESTING) macro (ADD_H5_CMP_TEST testname) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clearall - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) if (HDF5_USING_ANALYSIS_TOOL) - add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND $) else () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -384,12 +382,13 @@ if (H5EXAMPLE_BUILD_TESTING) -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) endif () - set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}) endmacro () diff --git a/HDF5Examples/FORTRAN/HL/CMakeLists.txt b/HDF5Examples/FORTRAN/HL/CMakeLists.txt index 4decd76f9b9..db4e2a8b44a 100644 --- a/HDF5Examples/FORTRAN/HL/CMakeLists.txt +++ b/HDF5Examples/FORTRAN/HL/CMakeLists.txt @@ -9,8 +9,8 @@ project (HDF5Examples_FORTRAN_HL Fortran) #----------------------------------------------------------------------------- # Setup include Directories #----------------------------------------------------------------------------- -set_directory_properties(PROPERTIES INCLUDE_DIRECTORIES - "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" +set_directory_properties (PROPERTIES INCLUDE_DIRECTORIES + "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" ) #----------------------------------------------------------------------------- @@ -161,7 +161,7 @@ if (H5EXAMPLE_BUILD_TESTING) ${testname}.h5 ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND $) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}-clearall) add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean @@ -169,12 +169,14 @@ if (H5EXAMPLE_BUILD_TESTING) -E remove ${testname}.h5 ) - set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${EXAMPLE_VARNAME}_f90_${testname}) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES + DEPENDS ${EXAMPLE_VARNAME}_f90_${testname} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) else () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -184,6 +186,9 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) + set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (last_test) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname} PROPERTIES DEPENDS ${last_test}) endif () @@ -192,7 +197,6 @@ if (H5EXAMPLE_BUILD_TESTING) add_test ( NAME ${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=${H5EXAMPLE_HDF5_DUMP_EXECUTABLE}" -D "TEST_ARGS:STRING=${ARGN};${testname}.h5" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -203,14 +207,15 @@ if (H5EXAMPLE_BUILD_TESTING) -D "TEST_LIBRARY_DIRECTORY=${CMAKE_TEST_LIB_DIRECTORY}" -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) - set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES DEPENDS ${last_test}) + set_tests_properties (${EXAMPLE_VARNAME}_H5DUMP-f90_${testname} PROPERTIES + DEPENDS ${last_test} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) set (last_test "${EXAMPLE_VARNAME}_H5DUMP-f90_${testname}") endif () add_test ( NAME ${EXAMPLE_VARNAME}_f90_${testname}-clean - COMMAND ${CMAKE_COMMAND} - -E remove - ${testname}.h5 + COMMAND ${CMAKE_COMMAND} -E remove ${testname}.h5 ) set_tests_properties (${EXAMPLE_VARNAME}_f90_${testname}-clean PROPERTIES DEPENDS ${last_test}) endif () diff --git a/HDF5Examples/FORTRAN/TUTR/CMakeLists.txt b/HDF5Examples/FORTRAN/TUTR/CMakeLists.txt index 28a075eda63..c2dfe541003 100644 --- a/HDF5Examples/FORTRAN/TUTR/CMakeLists.txt +++ b/HDF5Examples/FORTRAN/TUTR/CMakeLists.txt @@ -5,7 +5,7 @@ project (HDF5Examples_FORTRAN_TUTR Fortran) # Setup include Directories #----------------------------------------------------------------------------- set_directory_properties(PROPERTIES INCLUDE_DIRECTORIES - "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" + "${CMAKE_Fortran_MODULE_DIRECTORY}${H5EXAMPLE_MOD_EXT};${HDF5_F90_BINARY_DIR};${PROJECT_BINARY_DIR};${CMAKE_LIBRARY_OUTPUT_DIRECTORY}" ) #----------------------------------------------------------------------------- @@ -89,12 +89,11 @@ if (H5EXAMPLE_BUILD_TESTING) ) macro (ADD_H5_TEST testname) if (HDF5_USING_ANALYSIS_TOOL) - add_test (NAME ${EXAMPLE_VARNAME}_f90_tutr_${testname} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME ${EXAMPLE_VARNAME}_f90_tutr_${testname} COMMAND $) else () add_test ( NAME ${EXAMPLE_VARNAME}_f90_tutr_${testname} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}" @@ -105,7 +104,10 @@ if (H5EXAMPLE_BUILD_TESTING) -P "${H5EXAMPLE_RESOURCES_DIR}/runTest.cmake" ) endif () - set_tests_properties (${EXAMPLE_VARNAME}_f90_tutr_${testname} PROPERTIES FIXTURES_REQUIRED clear_${EXAMPLE_VARNAME}_f90_tutr) + set_tests_properties (${EXAMPLE_VARNAME}_f90_tutr_${testname} PROPERTIES + FIXTURES_REQUIRED clear_${EXAMPLE_VARNAME}_f90_tutr + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if (last_test) set_tests_properties (${EXAMPLE_VARNAME}_f90_tutr_${testname} PROPERTIES DEPENDS ${last_test}) endif () diff --git a/HDF5Examples/PYTHON/CMakeLists.txt b/HDF5Examples/PYTHON/CMakeLists.txt index 2f5f58369e1..3fb0632ed5f 100644 --- a/HDF5Examples/PYTHON/CMakeLists.txt +++ b/HDF5Examples/PYTHON/CMakeLists.txt @@ -32,7 +32,7 @@ if (H5EXAMPLE_BUILD_TESTING) WORKING_DIRECTORY ${PROJECT_BINARY_DIR} ) - add_custom_target(${EXAMPLE_VARNAME}_PY-copy-objects ALL COMMENT "Copying Python source files") + add_custom_target (${EXAMPLE_VARNAME}_PY-copy-objects ALL COMMENT "Copying Python source files") foreach (example_name ${examples}) add_custom_command ( TARGET ${EXAMPLE_VARNAME}_PY-copy-objects diff --git a/HDF5Examples/config/toolchain/aarch64.cmake b/HDF5Examples/config/toolchain/aarch64.cmake index 03f4e5e9f58..fd216a99bb2 100644 --- a/HDF5Examples/config/toolchain/aarch64.cmake +++ b/HDF5Examples/config/toolchain/aarch64.cmake @@ -1,7 +1,7 @@ set(TOOLCHAIN_PREFIX aarch64-linux-gnu) -set(ANDROID_NDK /opt/android-ndk-linux) -set (CMAKE_SYSTEM_NAME Android) -set (CMAKE_ANDROID_ARCH_ABI x86_64) +set(CMAKE_SYSTEM_NAME Linux) +set(CMAKE_SYSTEM_PROCESSOR aarch64) +#set (CMAKE_ANDROID_ARCH_ABI x86_64) #set (CMAKE_ANDROID_STANDALONE_TOOLCHAIN ${ANDROID_NDK}/build/cmake/android.toolchain.cmake) set (CMAKE_C_COMPILER ${TOOLCHAIN_PREFIX}-gcc) set (CMAKE_CXX_COMPILER ${TOOLCHAIN_PREFIX}-g++) @@ -11,7 +11,8 @@ set (CMAKE_FIND_ROOT_PATH /usr/${TOOLCHAIN_PREFIX}) set (CMAKE_FIND_ROOT_PATH_MODE_PROGRAM NEVER) set (CMAKE_FIND_ROOT_PATH_MODE_LIBRARY ONLY) set (CMAKE_FIND_ROOT_PATH_MODE_INCLUDE ONLY) -set (CMAKE_CROSSCOMPILING_EMULATOR qemu-aarch64) +set (CMAKE_FIND_ROOT_PATH_MODE_PACKAGE ONLY) +set(CMAKE_CROSSCOMPILING_EMULATOR "qemu-aarch64-static;-L;/usr/aarch64-linux-gnu/" CACHE FILEPATH "Path to the emulator for the target system.") include_directories(/usr/${TOOLCHAIN_PREFIX}/include) diff --git a/HDF5Examples/config/toolchain/clang.cmake b/HDF5Examples/config/toolchain/clang.cmake index 2d35641a14c..bad6bef16b4 100644 --- a/HDF5Examples/config/toolchain/clang.cmake +++ b/HDF5Examples/config/toolchain/clang.cmake @@ -9,6 +9,7 @@ if(WIN32) else() set (CMAKE_C_COMPILER clang) set (CMAKE_CXX_COMPILER clang++) + #set (CMAKE_Fortran_COMPILER flang) endif() set (CMAKE_EXPORT_COMPILE_COMMANDS ON) diff --git a/HDF5Examples/config/toolchain/crosscompile-readme.cmake b/HDF5Examples/config/toolchain/crosscompile-readme.cmake new file mode 100644 index 00000000000..0a62f107f83 --- /dev/null +++ b/HDF5Examples/config/toolchain/crosscompile-readme.cmake @@ -0,0 +1,43 @@ +# This CMake toolchain file configures cross-compilation settings for building HDF5 on non-native platforms. +# Copy this file and rename it (e.g., to crosscompile-myplatform.cmake). +# Replace the placeholder values with actual values for your target system and compilers. +# Then use this file with CMake by specifying it with the -DCMAKE_TOOLCHAIN_FILE option. + +# Set the target system name for cross-compiling +set (CMAKE_SYSTEM_NAME system_name) + +# Specify the compiler vendor and compilers for C, C++, and Fortran +set (CMAKE_COMPILER_VENDOR "compiler_name") +set (CMAKE_C_COMPILER compiler_cc) +set (CMAKE_CXX_COMPILER compiler_c++) +set (CMAKE_Fortran_COMPILER compiler_fortran) + +# Optional: Specify an emulator for running binaries during cross-compilation +set (CMAKE_CROSSCOMPILING_EMULATOR "") + +# Fortran kind and precision settings for cross-compiling +set (PAC_FC_ALL_INTEGER_KINDS "\{x,y,z\}" CACHE INTERNAL "Find available INTEGER KINDs for Fortran") +set (PAC_FC_ALL_REAL_KINDS "\{x,y,z\}" CACHE INTERNAL "Find available REAL KINDs for Fortran") +set (${HDF_PREFIX}_PAC_FC_MAX_REAL_PRECISION X CACHE INTERNAL "Maximum decimal precision for REALs in Fortran") +set (PAC_FORTRAN_NUM_INTEGER_KINDS "Y" CACHE INTERNAL "Number of valid integer kinds for Fortran") +set (PAC_FORTRAN_NUM_REAL_KINDS "Z" CACHE INTERNAL "Number of valid real kinds for Fortran") + +# Fortran configuration variables for HDF5 +set (${HDF_PREFIX}_H5CONFIG_F_NUM_IKIND "INTEGER, PARAMETER :: num_ikinds = Y") +set (${HDF_PREFIX}_H5CONFIG_F_IKIND "INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/x,y,z/)") + +# If using ISO_FORTRAN_ENV, set logical kind variables +if (${PAC_USE_ISO_FORTRAN_ENV}) + set (PAC_FORTRAN_NUM_LOGICAL_KINDS "W" CACHE INTERNAL "Find available LOGICAL KINDs for Fortran") + set (PAC_FC_ALL_LOGICAL_KINDS "\{x,y,z\}" CACHE INTERNAL "LOGICAL KINDS FOUND for Fortran") +endif () + +# Native kind and sizeof settings for Fortran types +set (PAC_FC_ALL_INTEGER_KINDS_SIZEOF "\{x,y,z\}" CACHE INTERNAL "Find available INTEGER KINDs for Fortran") +set (PAC_FC_ALL_REAL_KINDS_SIZEOF "\{x,y,z\}" CACHE INTERNAL "Find available REAL KINDs for Fortran") +set (PAC_FORTRAN_NATIVE_INTEGER_SIZEOF i CACHE INTERNAL "Find sizeof of native kinds sizeof INTEGER") +set (PAC_FORTRAN_NATIVE_INTEGER_KIND j CACHE INTERNAL "Find sizeof of native kinds kind of INTEGER") +set (PAC_FORTRAN_NATIVE_REAL_SIZEOF k CACHE INTERNAL "Find sizeof of native kinds sizeof REAL") +set (PAC_FORTRAN_NATIVE_REAL_KIND m CACHE INTERNAL "Find sizeof of native kinds kind of REAL") +set (PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF n CACHE INTERNAL "Find sizeof of native kinds sizeof DOUBLE PRECISION") +set (PAC_FORTRAN_NATIVE_DOUBLE_KIND o CACHE INTERNAL "Find sizeof of native kinds kind of DOUBLE PRECISION") diff --git a/HDF5Examples/config/toolchain/intel.cmake b/HDF5Examples/config/toolchain/intel.cmake index f8f60b28b46..f5b227ba2a0 100644 --- a/HDF5Examples/config/toolchain/intel.cmake +++ b/HDF5Examples/config/toolchain/intel.cmake @@ -4,7 +4,11 @@ set(CMAKE_COMPILER_VENDOR "intel") set(CMAKE_C_COMPILER icx) -set(CMAKE_CXX_COMPILER icpx) +if(WIN32) + set(CMAKE_CXX_COMPILER icx) +else() + set(CMAKE_CXX_COMPILER icpx) +endif() set(CMAKE_Fortran_COMPILER ifx) # the following is used if cross-compiling diff --git a/HDF5Examples/config/toolchain/mingw64.cmake b/HDF5Examples/config/toolchain/mingw64.cmake index 1b138919087..24b173d7bbe 100644 --- a/HDF5Examples/config/toolchain/mingw64.cmake +++ b/HDF5Examples/config/toolchain/mingw64.cmake @@ -1,14 +1,34 @@ -set(TOOLCHAIN_PREFIX x86_64-w64-mingw32) +set (TOOLCHAIN_PREFIX x86_64-w64-mingw32) set (CMAKE_SYSTEM_NAME Windows) -set (CMAKE_C_COMPILER ${TOOLCHAIN_PREFIX}-gcc) -set (CMAKE_CXX_COMPILER ${TOOLCHAIN_PREFIX}-g++) -set (CMAKE_RC_COMPILER ${TOOLCHAIN_PREFIX}-windres) -set (CMAKE_Fortran_COMPILER ${TOOLCHAIN_PREFIX}-gfortran) -set (CMAKE_FIND_ROOT_PATH /usr/${TOOLCHAIN_PREFIX}) +set (CMAKE_SYSTEM_PROCESSOR x86_64) + +# specify the cross compiler +if (NOT DEFINED ENV{CC}) + set (CMAKE_C_COMPILER /usr/bin/${TOOLCHAIN_PREFIX}-gcc) +endif () +if (NOT DEFINED ENV{CXX}) +set (CMAKE_CXX_COMPILER /usr/bin/${TOOLCHAIN_PREFIX}-g++) +endif () +if (NOT DEFINED ENV{FC}) +set (CMAKE_Fortran_COMPILER /usr/bin/${TOOLCHAIN_PREFIX}-gfortran) +# set the resource compiler (RHBZ #652435) +endif () +if (NOT DEFINED ENV{RC}) +set (CMAKE_RC_COMPILER /usr/bin/${TOOLCHAIN_PREFIX}-windres) +endif () + +set (CMAKE_FIND_ROOT_PATH /usr/${TOOLCHAIN_PREFIX}/sys-root/mingw) + +# search for programs in the build host directories set (CMAKE_FIND_ROOT_PATH_MODE_PROGRAM NEVER) +# for libraries, headers and packages in the target directories set (CMAKE_FIND_ROOT_PATH_MODE_LIBRARY ONLY) set (CMAKE_FIND_ROOT_PATH_MODE_INCLUDE ONLY) +set (CMAKE_FIND_ROOT_PATH_MODE_PACKAGE ONLY) set (CMAKE_CROSSCOMPILING_EMULATOR wine64) +set (CROSSCOMPILING_PATH "WINEPATH=/usr/${TOOLCHAIN_PREFIX}/sys-root/mingw/bin/") -include_directories(/usr/${TOOLCHAIN_PREFIX}/include) set (CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS On CACHE BOOL "Export windows symbols") + +set (CMAKE_AR:FILEPATH /usr/bin/${TOOLCHAIN_PREFIX}-ar) +set (CMAKE_RANLIB:FILEPATH /usr/bin/${TOOLCHAIN_PREFIX}-ranlib) diff --git a/c++/test/CMakeTests.cmake b/c++/test/CMakeTests.cmake index ce82c6cbd2a..e1113248998 100644 --- a/c++/test/CMakeTests.cmake +++ b/c++/test/CMakeTests.cmake @@ -9,8 +9,8 @@ # If you do not have access to either file, you may request a copy from # help@hdfgroup.org. # -HDFTEST_COPY_FILE("${HDF5_CPP_TEST_SOURCE_DIR}/th5s.h5" "${PROJECT_BINARY_DIR}/th5s.h5" "cpp_testhdf5_files") -add_custom_target(cpp_testhdf5_files ALL COMMENT "Copying files needed by cpp_testhdf5 tests" DEPENDS ${cpp_testhdf5_files_list}) +HDFTEST_COPY_FILE ("${HDF5_CPP_TEST_SOURCE_DIR}/th5s.h5" "${PROJECT_BINARY_DIR}/th5s.h5" "cpp_testhdf5_files") +add_custom_target (cpp_testhdf5_files ALL COMMENT "Copying files needed by cpp_testhdf5 tests" DEPENDS ${cpp_testhdf5_files_list}) ############################################################################## ############################################################################## @@ -18,10 +18,9 @@ add_custom_target(cpp_testhdf5_files ALL COMMENT "Copying files needed by cpp_te ############################################################################## ############################################################################## if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME CPP_testhdf5 COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME CPP_testhdf5 COMMAND $) else () add_test (NAME CPP_testhdf5 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_EXPECT=0" @@ -34,6 +33,7 @@ else () endif () set_tests_properties (CPP_testhdf5 PROPERTIES WORKING_DIRECTORY ${PROJECT_BINARY_DIR} + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("CPP_testhdf5" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (CPP_testhdf5 PROPERTIES DISABLED true) diff --git a/c++/test/CMakeVFDTests.cmake b/c++/test/CMakeVFDTests.cmake index 8fd75c693f4..72010ae1e68 100644 --- a/c++/test/CMakeVFDTests.cmake +++ b/c++/test/CMakeVFDTests.cmake @@ -15,7 +15,7 @@ ### T E S T I N G ### ############################################################################## ############################################################################## -H5_CREATE_VFD_DIR() +H5_CREATE_VFD_DIR () ############################################################################## ############################################################################## @@ -27,7 +27,6 @@ macro (ADD_VFD_TEST vfdname resultcode) add_test ( NAME CPP_VFD-${vfdname}-cpp_testhdf5 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_VFD:STRING=${vfdname}" @@ -36,7 +35,10 @@ macro (ADD_VFD_TEST vfdname resultcode) -D "TEST_FOLDER=${PROJECT_BINARY_DIR}/${vfdname}" -P "${HDF_RESOURCES_DIR}/vfdTest.cmake" ) - set_tests_properties (CPP_VFD-${vfdname}-cpp_testhdf5 PROPERTIES TIMEOUT ${CTEST_SHORT_TIMEOUT}) + set_tests_properties (CPP_VFD-${vfdname}-cpp_testhdf5 PROPERTIES + TIMEOUT ${CTEST_SHORT_TIMEOUT} + ENVIRONMENT "${CROSSCOMPILING_PATH}" + ) if ("CPP_VFD-${vfdname}-cpp_testhdf5" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (CPP_VFD-${vfdname}-cpp_testhdf5 PROPERTIES DISABLED true) endif () diff --git a/config/ConfigureChecks.cmake b/config/ConfigureChecks.cmake index 0227c84e7bd..72b9552f7a0 100644 --- a/config/ConfigureChecks.cmake +++ b/config/ConfigureChecks.cmake @@ -153,12 +153,12 @@ endif () # gcc puts symbols like FLT128_DIG in quadmath.h instead of float.h, so # check for that. This is only used by the build system and doesn't need # to be exported to H5pubconf.h. -CHECK_INCLUDE_FILES("quadmath.h" INCLUDE_QUADMATH_H) +CHECK_INCLUDE_FILES ("quadmath.h" INCLUDE_QUADMATH_H) # Convert TRUE/FALSE to 0/1 for preprocessor values in test code, below if (${INCLUDE_QUADMATH_H}) - set(C_INCLUDE_QUADMATH_H 1) + set (C_INCLUDE_QUADMATH_H 1) else () - set(C_INCLUDE_QUADMATH_H 0) + set (C_INCLUDE_QUADMATH_H 0) endif () if (MINGW OR CYGWIN) @@ -282,7 +282,7 @@ endif () # MinGW and Cygwin if (MINGW OR CYGWIN) set (CMAKE_REQUIRED_DEFINITIONS - "${CURRENT_TEST_DEFINITIONS} -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE" + "${CURRENT_TEST_DEFINITIONS} -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE" ) endif () @@ -350,7 +350,11 @@ if (MINGW OR NOT WINDOWS) HDF_CHECK_TYPE_SIZE (ptrdiff_t ${HDF_PREFIX}_SIZEOF_PTRDIFF_T) endif () -HDF_CHECK_TYPE_SIZE (off_t ${HDF_PREFIX}_SIZEOF_OFF_T) +if (NOT MINGW) + HDF_CHECK_TYPE_SIZE (off_t ${HDF_PREFIX}_SIZEOF_OFF_T) +else () + set (${HDF_PREFIX}_SIZEOF_OFF_T 4) +endif () HDF_CHECK_TYPE_SIZE (time_t ${HDF_PREFIX}_SIZEOF_TIME_T) #----------------------------------------------------------------------------- @@ -371,12 +375,12 @@ if (MINGW OR NOT WINDOWS) #----------------------------------------------------------------------------- # Check a bunch of time functions #----------------------------------------------------------------------------- - CHECK_STRUCT_HAS_MEMBER("struct tm" tm_gmtoff "time.h" ${HDF_PREFIX}_HAVE_TM_GMTOFF) - CHECK_STRUCT_HAS_MEMBER("struct tm" __tm_gmtoff "time.h" ${HDF_PREFIX}_HAVE___TM_GMTOFF) + CHECK_STRUCT_HAS_MEMBER ("struct tm" tm_gmtoff "time.h" ${HDF_PREFIX}_HAVE_TM_GMTOFF) + CHECK_STRUCT_HAS_MEMBER ("struct tm" __tm_gmtoff "time.h" ${HDF_PREFIX}_HAVE___TM_GMTOFF) if (${HDF_PREFIX}_HAVE_SYS_TIME_H) - CHECK_STRUCT_HAS_MEMBER("struct tm" tz_minuteswest "sys/types.h;sys/time.h;time.h" ${HDF_PREFIX}_HAVE_STRUCT_TIMEZONE) + CHECK_STRUCT_HAS_MEMBER ("struct tm" tz_minuteswest "sys/types.h;sys/time.h;time.h" ${HDF_PREFIX}_HAVE_STRUCT_TIMEZONE) else () - CHECK_STRUCT_HAS_MEMBER("struct tm" tz_minuteswest "sys/types.h;time.h" ${HDF_PREFIX}_HAVE_STRUCT_TIMEZONE) + CHECK_STRUCT_HAS_MEMBER ("struct tm" tz_minuteswest "sys/types.h;time.h" ${HDF_PREFIX}_HAVE_STRUCT_TIMEZONE) endif () CHECK_FUNCTION_EXISTS (gettimeofday ${HDF_PREFIX}_HAVE_GETTIMEOFDAY) foreach (time_test @@ -457,7 +461,7 @@ foreach (other_test HAVE_BUILTIN_EXPECT PTHREAD_BARRIER HAVE_SOCKLEN_T - ) +) HDF_FUNCTION_TEST (${other_test}) endforeach () @@ -675,17 +679,17 @@ endif () # ---------------------------------------------------------------------- option (HDF5_ENABLE_MIRROR_VFD "Build the Mirror Virtual File Driver" OFF) if (HDF5_ENABLE_MIRROR_VFD) - if ( ${HDF_PREFIX}_HAVE_NETINET_IN_H AND - ${HDF_PREFIX}_HAVE_NETDB_H AND - ${HDF_PREFIX}_HAVE_ARPA_INET_H AND - ${HDF_PREFIX}_HAVE_SYS_SOCKET_H AND - ${HDF_PREFIX}_HAVE_FORK) - set (${HDF_PREFIX}_HAVE_MIRROR_VFD 1) - else() - set (HDF5_ENABLE_MIRROR_VFD OFF CACHE BOOL "Build the Mirror Virtual File Driver" FORCE) - message(WARNING "The socket-based Mirror VFD was requested but cannot be built. System prerequisites are not met.") - endif() -endif() + if (${HDF_PREFIX}_HAVE_NETINET_IN_H AND + ${HDF_PREFIX}_HAVE_NETDB_H AND + ${HDF_PREFIX}_HAVE_ARPA_INET_H AND + ${HDF_PREFIX}_HAVE_SYS_SOCKET_H AND + ${HDF_PREFIX}_HAVE_FORK) + set (${HDF_PREFIX}_HAVE_MIRROR_VFD 1) + else () + set (HDF5_ENABLE_MIRROR_VFD OFF CACHE BOOL "Build the Mirror Virtual File Driver" FORCE) + message (WARNING "The socket-based Mirror VFD was requested but cannot be built. System prerequisites are not met.") + endif () +endif () #----------------------------------------------------------------------------- # Check if C has __float128 extension (used for Fortran only) @@ -740,7 +744,7 @@ if (HDF5_BUILD_FORTRAN) set (_RUN_OUTPUT_VARIABLE "RUN_OUTPUT_VARIABLE") else () set (_RUN_OUTPUT_VARIABLE "RUN_OUTPUT_STDOUT_VARIABLE") - endif() + endif () TRY_RUN (RUN_RESULT_VAR COMPILE_RESULT_VAR ${CMAKE_BINARY_DIR} ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeTmp/testCCompiler1.c @@ -893,12 +897,12 @@ if (${HDF_PREFIX}_HAVE_COMPLEX_H) # If using MSVC, the _Complex types (if available) are _Fcomplex, _Dcomplex and _Lcomplex. # The standard types are checked for first in case MSVC uses them in the future or in case # the compiler used is simulating MSVC and uses the standard types. - cmake_push_check_state() + cmake_push_check_state () list (APPEND CMAKE_EXTRA_INCLUDE_FILES complex.h) HDF_CHECK_TYPE_SIZE ("_Fcomplex" ${HDF_PREFIX}_SIZEOF__FCOMPLEX) HDF_CHECK_TYPE_SIZE ("_Dcomplex" ${HDF_PREFIX}_SIZEOF__DCOMPLEX) HDF_CHECK_TYPE_SIZE ("_Lcomplex" ${HDF_PREFIX}_SIZEOF__LCOMPLEX) - cmake_pop_check_state() + cmake_pop_check_state () if (${HDF_PREFIX}_SIZEOF__FCOMPLEX AND ${HDF_PREFIX}_SIZEOF__DCOMPLEX AND ${HDF_PREFIX}_SIZEOF__FCOMPLEX) set (${HDF_PREFIX}_SIZEOF_FLOAT_COMPLEX ${${HDF_PREFIX}_SIZEOF__FCOMPLEX} @@ -1119,7 +1123,7 @@ endif () #----------------------------------------------------------------------------- # Check if the platform has pkg-config support -find_package(PkgConfig) +find_package (PkgConfig) if (PKG_CONFIG_FOUND) set (${HDF_PREFIX}_HAVE_PKGCONFIG 1) else () diff --git a/config/HDF5UseFortran.cmake b/config/HDF5UseFortran.cmake index 9826a535ed4..3afe606e37e 100644 --- a/config/HDF5UseFortran.cmake +++ b/config/HDF5UseFortran.cmake @@ -38,7 +38,7 @@ include (CheckFortranFunctionExists) # Force lowercase Fortran module file names if (CMAKE_Fortran_COMPILER_ID STREQUAL "Cray") - set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -ef") + set (CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -ef") endif () set (RUN_OUTPUT_PATH_DEFAULT ${CMAKE_BINARY_DIR}) @@ -55,11 +55,11 @@ macro (FORTRAN_RUN FUNCTION_NAME SOURCE_CODE RUN_RESULT_VAR1 COMPILE_RESULT_VAR1 set (_RUN_OUTPUT_VARIABLE "RUN_OUTPUT_VARIABLE") else () set (_RUN_OUTPUT_VARIABLE "RUN_OUTPUT_STDOUT_VARIABLE") - endif() + endif () if (${FUNCTION_NAME} STREQUAL "SIZEOF NATIVE KINDs") - set(TMP_CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS}") + set (TMP_CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS}") else () - set(TMP_CMAKE_Fortran_FLAGS "") + set (TMP_CMAKE_Fortran_FLAGS "") endif () TRY_RUN (RUN_RESULT_VAR COMPILE_RESULT_VAR ${CMAKE_BINARY_DIR} @@ -71,7 +71,7 @@ macro (FORTRAN_RUN FUNCTION_NAME SOURCE_CODE RUN_RESULT_VAR1 COMPILE_RESULT_VAR1 set (${RETURN_OUTPUT_VAR} ${OUTPUT_VAR}) if (${COMPILE_RESULT_VAR}) - set(${RETURN_VAR} ${RUN_RESULT_VAR}) + set (${RETURN_VAR} ${RUN_RESULT_VAR}) if (${RUN_RESULT_VAR} MATCHES 0) message (VERBOSE "Testing Fortran ${FUNCTION_NAME} - OK") file (APPEND ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeOutput.log @@ -88,13 +88,13 @@ macro (FORTRAN_RUN FUNCTION_NAME SOURCE_CODE RUN_RESULT_VAR1 COMPILE_RESULT_VAR1 file (APPEND ${CMAKE_BINARY_DIR}${CMAKE_FILES_DIRECTORY}/CMakeError.log "Determining if the Fortran ${FUNCTION_NAME} compiles failed: ${COMPILE_RESULT_VAR}\n" ) - set(${RETURN_VAR} ${COMPILE_RESULT_VAR}) + set (${RETURN_VAR} ${COMPILE_RESULT_VAR}) endif () endmacro () #----------------------------------------------------------------------------- # Check to see C_LONG_DOUBLE is available -READ_SOURCE("PROGRAM PROG_FC_HAVE_C_LONG_DOUBLE" "END PROGRAM PROG_FC_HAVE_C_LONG_DOUBLE" SOURCE_CODE) +READ_SOURCE ("PROGRAM PROG_FC_HAVE_C_LONG_DOUBLE" "END PROGRAM PROG_FC_HAVE_C_LONG_DOUBLE" SOURCE_CODE) check_fortran_source_compiles (${SOURCE_CODE} FORTRAN_HAVE_C_LONG_DOUBLE SRC_EXT f90) if (${FORTRAN_HAVE_C_LONG_DOUBLE}) @@ -158,92 +158,112 @@ endif () #----------------------------------------------------------------------------- # Determine the available KINDs for REALs and INTEGERs #----------------------------------------------------------------------------- -if (${HAVE_ISO_FORTRAN_ENV}) - READ_SOURCE ("PROGRAM FC08_AVAIL_KINDS" "END PROGRAM FC08_AVAIL_KINDS" SOURCE_CODE) -else () - READ_SOURCE ("PROGRAM FC_AVAIL_KINDS" "END PROGRAM FC_AVAIL_KINDS" SOURCE_CODE) -endif () - -FORTRAN_RUN ("REAL and INTEGER KINDs" - "${SOURCE_CODE}" - XX - YY - FC_AVAIL_KINDS_RESULT - PROG_OUTPUT -) -# dnl The output from the above program will be: -# dnl -- LINE 1 -- valid integer kinds (comma separated list) -# dnl -- LINE 2 -- valid real kinds (comma separated list) -# dnl -- LINE 3 -- max decimal precision for reals -# dnl -- LINE 4 -- number of valid integer kinds -# dnl -- LINE 5 -- number of valid real kinds -# dnl -- LINE 6 -- number of valid logical kinds -# dnl -- LINE 7 -- valid logical kinds (comma separated list) - -# -# Convert the string to a list of strings by replacing the carriage return with a semicolon -string (REGEX REPLACE "[\r\n]+" ";" PROG_OUTPUT "${PROG_OUTPUT}") - -list (GET PROG_OUTPUT 0 pac_validIntKinds) -list (GET PROG_OUTPUT 1 pac_validRealKinds) -list (GET PROG_OUTPUT 2 pac_fc_max_real_precision) +if (NOT CMAKE_CROSSCOMPILING) + if (${HAVE_ISO_FORTRAN_ENV}) + READ_SOURCE ("PROGRAM FC08_AVAIL_KINDS" "END PROGRAM FC08_AVAIL_KINDS" SOURCE_CODE) + else () + READ_SOURCE ("PROGRAM FC_AVAIL_KINDS" "END PROGRAM FC_AVAIL_KINDS" SOURCE_CODE) + endif () -# If the lists are empty then something went wrong. -if (NOT pac_validIntKinds) + FORTRAN_RUN ("REAL and INTEGER KINDs" + "${SOURCE_CODE}" + XX + YY + FC_AVAIL_KINDS_RESULT + PROG_OUTPUT + ) + # dnl The output from the above program will be: + # dnl -- LINE 1 -- valid integer kinds (comma separated list) + # dnl -- LINE 2 -- valid real kinds (comma separated list) + # dnl -- LINE 3 -- max decimal precision for reals + # dnl -- LINE 4 -- number of valid integer kinds + # dnl -- LINE 5 -- number of valid real kinds + # dnl -- LINE 6 -- number of valid logical kinds + # dnl -- LINE 7 -- valid logical kinds (comma separated list) + + # + # Convert the string to a list of strings by replacing the carriage return with a semicolon + string (REGEX REPLACE "[\r\n]+" ";" PROG_OUTPUT "${PROG_OUTPUT}") + + list (GET PROG_OUTPUT 0 pac_validIntKinds) + list (GET PROG_OUTPUT 1 pac_validRealKinds) + list (GET PROG_OUTPUT 2 pac_fc_max_real_precision) + + # If the lists are empty then something went wrong. + if (NOT pac_validIntKinds) message (FATAL_ERROR "Failed to find available INTEGER KINDs for Fortran") -endif () -if (NOT pac_validRealKinds) + endif () + if (NOT pac_validRealKinds) message (FATAL_ERROR "Failed to find available REAL KINDs for Fortran") -endif () -if (NOT pac_fc_max_real_precision) + endif () + if (NOT pac_fc_max_real_precision) message (FATAL_ERROR "No output from Fortran decimal precision program") -endif () -set (${HDF_PREFIX}_PAC_FC_MAX_REAL_PRECISION ${pac_fc_max_real_precision} CACHE INTERNAL "Maximum decimal precision for REALs in Fortran") - -set (PAC_FC_ALL_INTEGER_KINDS "\{${pac_validIntKinds}\}") -set (PAC_FC_ALL_REAL_KINDS "\{${pac_validRealKinds}\}") - -list (GET PROG_OUTPUT 3 NUM_IKIND) -list (GET PROG_OUTPUT 4 NUM_RKIND) + endif () + set (${HDF_PREFIX}_PAC_FC_MAX_REAL_PRECISION ${pac_fc_max_real_precision} CACHE INTERNAL "Maximum decimal precision for REALs in Fortran") -set (PAC_FORTRAN_NUM_INTEGER_KINDS "${NUM_IKIND}") + set (PAC_FC_ALL_INTEGER_KINDS "\{${pac_validIntKinds}\}") + set (PAC_FC_ALL_REAL_KINDS "\{${pac_validRealKinds}\}") -set (${HDF_PREFIX}_H5CONFIG_F_NUM_IKIND "INTEGER, PARAMETER :: num_ikinds = ${NUM_IKIND}") -set (${HDF_PREFIX}_H5CONFIG_F_IKIND "INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/${pac_validIntKinds}/)") + list (GET PROG_OUTPUT 3 NUM_IKIND) + list (GET PROG_OUTPUT 4 NUM_RKIND) -message (STATUS "....NUMBER OF INTEGER KINDS FOUND ${PAC_FORTRAN_NUM_INTEGER_KINDS}") -message (STATUS "....REAL KINDS FOUND ${PAC_FC_ALL_REAL_KINDS}") -message (STATUS "....INTEGER KINDS FOUND ${PAC_FC_ALL_INTEGER_KINDS}") -message (STATUS "....MAX DECIMAL PRECISION ${pac_fc_max_real_precision}") + set (PAC_FORTRAN_NUM_INTEGER_KINDS "${NUM_IKIND}") + set (PAC_FORTRAN_NUM_REAL_KINDS "${NUM_RKIND}") -if (${HAVE_ISO_FORTRAN_ENV}) + set (${HDF_PREFIX}_H5CONFIG_F_NUM_IKIND "INTEGER, PARAMETER :: num_ikinds = ${NUM_IKIND}") + set (${HDF_PREFIX}_H5CONFIG_F_IKIND "INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/${pac_validIntKinds}/)") - list (GET PROG_OUTPUT 5 NUM_LKIND) - set (PAC_FORTRAN_NUM_LOGICAL_KINDS "${NUM_LKIND}") + if (${HAVE_ISO_FORTRAN_ENV}) + list (GET PROG_OUTPUT 5 NUM_LKIND) + set (PAC_FORTRAN_NUM_LOGICAL_KINDS "${NUM_LKIND}") - list (GET PROG_OUTPUT 6 pac_validLogicalKinds) - # If the list is empty then something went wrong. - if (NOT pac_validLogicalKinds) + list (GET PROG_OUTPUT 6 pac_validLogicalKinds) + # If the list is empty then something went wrong. + if (NOT pac_validLogicalKinds) message (FATAL_ERROR "Failed to find available LOGICAL KINDs for Fortran") + endif () + + set (PAC_FC_ALL_LOGICAL_KINDS "\{${pac_validLogicalKinds}\}") + message (STATUS "....LOGICAL KINDS FOUND ${PAC_FC_ALL_LOGICAL_KINDS}") + endif () +else () + # Use the default if there's no cache variable and cross-compiling + message (VERBOSE "Find available INTEGER KINDs for Fortran... yes (cross-compile gfortran default)") + set (PAC_FC_ALL_INTEGER_KINDS "\{1,2,4,8,16\}" CACHE INTERNAL "Find available INTEGER KINDs for Fortran") + set (PAC_FC_ALL_REAL_KINDS "\{4,8,10,16\}" CACHE INTERNAL "Find available REAL KINDs for Fortran") + set (${HDF_PREFIX}_PAC_FC_MAX_REAL_PRECISION 33 CACHE INTERNAL "Maximum decimal precision for REALs in Fortran") + set (PAC_FORTRAN_NUM_INTEGER_KINDS "5" CACHE INTERNAL "Number of valid integer kinds for Fortran") + set (PAC_FORTRAN_NUM_REAL_KINDS "4" CACHE INTERNAL "Number of valid real kinds for Fortran") + + set (${HDF_PREFIX}_H5CONFIG_F_NUM_IKIND "INTEGER, PARAMETER :: num_ikinds = 5") + set (${HDF_PREFIX}_H5CONFIG_F_IKIND "INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)") + + if (${HAVE_ISO_FORTRAN_ENV}) + set (PAC_FORTRAN_NUM_LOGICAL_KINDS "5" CACHE INTERNAL "Find available LOGICAL KINDs for Fortran") + set (PAC_FC_ALL_LOGICAL_KINDS "\{1,2,4,8,16\}" CACHE INTERNAL "LOGICAL KINDS FOUND for Fortran") endif () +endif () - set (PAC_FC_ALL_LOGICAL_KINDS "\{${pac_validLogicalKinds}\}") - message (STATUS "....LOGICAL KINDS FOUND ${PAC_FC_ALL_LOGICAL_KINDS}") +message (STATUS "....NUMBER OF INTEGER KINDS FOUND ${PAC_FORTRAN_NUM_INTEGER_KINDS}") +message (STATUS "....REAL KINDS FOUND ${PAC_FC_ALL_REAL_KINDS}") +message (STATUS "....INTEGER KINDS FOUND ${PAC_FC_ALL_INTEGER_KINDS}") +message (STATUS "....MAX DECIMAL PRECISION ${${HDF_PREFIX}_PAC_FC_MAX_REAL_PRECISION}") +if (${HAVE_ISO_FORTRAN_ENV}) # ******************** # LOGICAL KIND FOR MPI # ******************** if (HDF5_ENABLE_PARALLEL AND BUILD_TESTING) - string (REGEX REPLACE "," ";" VAR "${pac_validLogicalKinds}") + string (REGEX REPLACE "," ";" VAR "${PAC_FC_ALL_LOGICAL_KINDS}") - set(CMAKE_REQUIRED_QUIET TRUE) - set(save_CMAKE_Fortran_FLAGS ${CMAKE_Fortran_FLAGS}) + set (CMAKE_REQUIRED_QUIET TRUE) + set (save_CMAKE_Fortran_FLAGS ${CMAKE_Fortran_FLAGS}) if (CMAKE_Fortran_COMPILER_ID MATCHES "Intel") - set(CMAKE_Fortran_FLAGS "-warn error") + set (CMAKE_Fortran_FLAGS "-warn error") endif () foreach (KIND ${VAR}) - unset(MPI_LOGICAL_KIND CACHE) + unset (MPI_LOGICAL_KIND CACHE) set (PROG_SRC " PROGRAM main @@ -266,10 +286,10 @@ if (${HAVE_ISO_FORTRAN_ENV}) if (${HDF_PREFIX}_MPI_LOGICAL_KIND STREQUAL "") message (FATAL_ERROR "Failed to determine LOGICAL KIND for MPI") endif () - set(CMAKE_REQUIRED_QUIET FALSE) - set(CMAKE_Fortran_FLAGS ${save_CMAKE_Fortran_FLAGS}) - endif() -endif() + set (CMAKE_REQUIRED_QUIET FALSE) + set (CMAKE_Fortran_FLAGS ${save_CMAKE_Fortran_FLAGS}) + endif () +endif () #----------------------------------------------------------------------------- # Determine the available KINDs for REALs and INTEGERs @@ -277,85 +297,104 @@ endif() # ********** # INTEGERS # ********** -string (REGEX REPLACE "," ";" VAR "${pac_validIntKinds}") - -foreach (KIND ${VAR}) - set (PROG_SRC_${KIND} - " - PROGRAM main - USE ISO_C_BINDING - USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : stdout=>OUTPUT_UNIT - IMPLICIT NONE - INTEGER (KIND=${KIND}) a - WRITE(stdout,'(I0)') ${FC_SIZEOF_A} - END - " - ) - FORTRAN_RUN("INTEGER KIND SIZEOF" ${PROG_SRC_${KIND}} XX YY VALIDINTKINDS_RESULT_${KIND} PROG_OUTPUT1) - string (REGEX REPLACE "[\r\n]+" "" PROG_OUTPUT1 "${PROG_OUTPUT1}") - set (pack_int_sizeof "${pack_int_sizeof} ${PROG_OUTPUT1},") -endforeach () +if (NOT CMAKE_CROSSCOMPILING) + string (REGEX REPLACE "," ";" VAR "${pac_validIntKinds}") + + foreach (KIND ${VAR}) + set (PROG_SRC_${KIND} + " + PROGRAM main + USE ISO_C_BINDING + USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : stdout=>OUTPUT_UNIT + IMPLICIT NONE + INTEGER (KIND=${KIND}) a + WRITE(stdout,'(I0)') ${FC_SIZEOF_A} + END + " + ) + FORTRAN_RUN("INTEGER KIND SIZEOF" ${PROG_SRC_${KIND}} XX YY VALIDINTKINDS_RESULT_${KIND} PROG_OUTPUT1) + string (REGEX REPLACE "[\r\n]+" "" PROG_OUTPUT1 "${PROG_OUTPUT1}") + set (pack_int_sizeof "${pack_int_sizeof} ${PROG_OUTPUT1},") + endforeach () -if (pack_int_sizeof STREQUAL "") - message (FATAL_ERROR "Failed to find available INTEGER KINDs for Fortran") -endif () + if (pack_int_sizeof STREQUAL "") + message (FATAL_ERROR "Failed to find available INTEGER KINDs for Fortran") + endif () -string (STRIP ${pack_int_sizeof} pack_int_sizeof) + string (STRIP ${pack_int_sizeof} pack_int_sizeof) -#Remove trailing comma -string (REGEX REPLACE ",$" "" pack_int_sizeof "${pack_int_sizeof}") -#Remove spaces -string (REGEX REPLACE " " "" pack_int_sizeof "${pack_int_sizeof}") + #Remove trailing comma + string (REGEX REPLACE ",$" "" pack_int_sizeof "${pack_int_sizeof}") + #Remove spaces + string (REGEX REPLACE " " "" pack_int_sizeof "${pack_int_sizeof}") -set (PAC_FC_ALL_INTEGER_KINDS_SIZEOF "\{${pack_int_sizeof}\}") + set (PAC_FC_ALL_INTEGER_KINDS_SIZEOF "\{${pack_int_sizeof}\}") +else () + # Use the default if there's no cache variable and cross-compiling + message (VERBOSE "Find available INTEGER KINDs for Fortran... yes (cross-compile gfortran default)") + set (PAC_FC_ALL_INTEGER_KINDS_SIZEOF "\{1,2,4,8,16\}" CACHE INTERNAL "Find available INTEGER KINDs for Fortran") +endif () + +if (PAC_FC_ALL_INTEGER_KINDS_SIZEOF STREQUAL "") + message (FATAL_ERROR "Failed to find available INTEGER KINDs for Fortran") +endif () message (VERBOSE "....FOUND SIZEOF for INTEGER KINDs ${PAC_FC_ALL_INTEGER_KINDS_SIZEOF}") # ********** # REALS # ********** -string (REGEX REPLACE "," ";" VAR "${pac_validRealKinds}") - -#find the maximum kind of the real -list (LENGTH VAR LEN_VAR) -math (EXPR _LEN "${LEN_VAR}-1") -list (GET VAR ${_LEN} max_real_fortran_kind) - -foreach (KIND ${VAR} ) - set (PROG_SRC2_${KIND} - " - PROGRAM main - USE ISO_C_BINDING - USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : stdout=>OUTPUT_UNIT - IMPLICIT NONE - REAL (KIND=${KIND}) a - WRITE(stdout,'(I0)') ${FC_SIZEOF_A} - END - " - ) - FORTRAN_RUN ("REAL KIND SIZEOF" ${PROG_SRC2_${KIND}} XX YY VALIDREALKINDS_RESULT_${KIND} PROG_OUTPUT2) - string (REGEX REPLACE "[\r\n]+" "" PROG_OUTPUT2 "${PROG_OUTPUT2}") - set (pack_real_sizeof "${pack_real_sizeof} ${PROG_OUTPUT2},") -endforeach () +if (NOT CMAKE_CROSSCOMPILING) + string (REGEX REPLACE "," ";" VAR "${pac_validRealKinds}") + + #find the maximum kind of the real + list (LENGTH VAR LEN_VAR) + math (EXPR _LEN "${LEN_VAR}-1") + list (GET VAR ${_LEN} max_real_fortran_kind) + + foreach (KIND ${VAR} ) + set (PROG_SRC2_${KIND} + " + PROGRAM main + USE ISO_C_BINDING + USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : stdout=>OUTPUT_UNIT + IMPLICIT NONE + REAL (KIND=${KIND}) a + WRITE(stdout,'(I0)') ${FC_SIZEOF_A} + END + " + ) + FORTRAN_RUN ("REAL KIND SIZEOF" ${PROG_SRC2_${KIND}} XX YY VALIDREALKINDS_RESULT_${KIND} PROG_OUTPUT2) + string (REGEX REPLACE "[\r\n]+" "" PROG_OUTPUT2 "${PROG_OUTPUT2}") + set (pack_real_sizeof "${pack_real_sizeof} ${PROG_OUTPUT2},") + endforeach () -if (pack_real_sizeof STREQUAL "") - message (FATAL_ERROR "Failed to find available REAL KINDs for Fortran") -endif () + if (pack_real_sizeof STREQUAL "") + message (FATAL_ERROR "Failed to find available REAL KINDs for Fortran") + endif () -string(STRIP ${pack_real_sizeof} pack_real_sizeof) + string(STRIP ${pack_real_sizeof} pack_real_sizeof) -#Remove trailing comma -string (REGEX REPLACE ",$" "" pack_real_sizeof "${pack_real_sizeof}") -#Remove spaces -string (REGEX REPLACE " " "" pack_real_sizeof "${pack_real_sizeof}") + #Remove trailing comma + string (REGEX REPLACE ",$" "" pack_real_sizeof "${pack_real_sizeof}") + #Remove spaces + string (REGEX REPLACE " " "" pack_real_sizeof "${pack_real_sizeof}") -set (${HDF_PREFIX}_H5CONFIG_F_RKIND_SIZEOF "INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/${pack_real_sizeof}/)") + set (PAC_FC_ALL_REAL_KINDS_SIZEOF "\{${pack_real_sizeof}\}") +else () + # Use the default if there's no cache variable and cross-compiling + message (VERBOSE "Find available REAL KINDs for Fortran... yes (cross-compile gfortran default)") + set (PAC_FC_ALL_REAL_KINDS_SIZEOF "\{4,8,16,16\}" CACHE INTERNAL "Find available REAL KINDs for Fortran") +endif () -message (STATUS "....FOUND SIZEOF for REAL KINDs \{${pack_real_sizeof}\}") +if (PAC_FC_ALL_REAL_KINDS_SIZEOF STREQUAL "") + message (FATAL_ERROR "Failed to find available REAL KINDs for Fortran") +endif () -set (PAC_FC_ALL_REAL_KINDS_SIZEOF "\{${pack_real_sizeof}\}") +set (${HDF_PREFIX}_H5CONFIG_F_RKIND_SIZEOF "INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/${PAC_FC_ALL_REAL_KINDS_SIZEOF}/)") +message (STATUS "....FOUND SIZEOF for REAL KINDs \{${PAC_FC_ALL_REAL_KINDS_SIZEOF}\}") #find the maximum kind of the real -string (REGEX REPLACE "," ";" VAR "${pack_real_sizeof}") +string (REGEX REPLACE "," ";" VAR "${PAC_FC_ALL_REAL_KINDS_SIZEOF}") list (LENGTH VAR LEN_VAR) math (EXPR _LEN "${LEN_VAR}-1") list (GET VAR ${_LEN} max_real_fortran_sizeof) @@ -363,42 +402,58 @@ list (GET VAR ${_LEN} max_real_fortran_sizeof) #----------------------------------------------------------------------------- # Find sizeof of native kinds #----------------------------------------------------------------------------- -set (PROG_SRC3 - " - PROGRAM main - USE ISO_C_BINDING - USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : stdout=>OUTPUT_UNIT - IMPLICIT NONE - INTEGER a - REAL b - DOUBLE PRECISION c - WRITE(stdout,*) ${FC_SIZEOF_A} - WRITE(stdout,*) kind(a) - WRITE(stdout,*) ${FC_SIZEOF_B} - WRITE(stdout,*) kind(b) - WRITE(stdout,*) ${FC_SIZEOF_C} - WRITE(stdout,*) kind(c) - END - " -) -FORTRAN_RUN ("SIZEOF NATIVE KINDs" ${PROG_SRC3} XX YY PAC_SIZEOF_NATIVE_KINDS_RESULT PROG_OUTPUT3) -# The output from the above program will be: -# -- LINE 1 -- sizeof INTEGER -# -- LINE 2 -- kind of INTEGER -# -- LINE 3 -- sizeof REAL -# -- LINE 4 -- kind of REAL -# -- LINE 5 -- sizeof DOUBLE PRECISION -# -- LINE 6 -- kind of DOUBLE PRECISION -# -# Convert the string to a list of strings by replacing the carriage return with a semicolon -string (REGEX REPLACE "[\r\n]+" ";" PROG_OUTPUT3 "${PROG_OUTPUT3}") - -list (GET PROG_OUTPUT3 0 PAC_FORTRAN_NATIVE_INTEGER_SIZEOF) -list (GET PROG_OUTPUT3 1 PAC_FORTRAN_NATIVE_INTEGER_KIND) -list (GET PROG_OUTPUT3 2 PAC_FORTRAN_NATIVE_REAL_SIZEOF) -list (GET PROG_OUTPUT3 3 PAC_FORTRAN_NATIVE_REAL_KIND) -list (GET PROG_OUTPUT3 4 PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF) -list (GET PROG_OUTPUT3 5 PAC_FORTRAN_NATIVE_DOUBLE_KIND) +if (NOT CMAKE_CROSSCOMPILING) + set (PROG_SRC3 + " + PROGRAM main + USE ISO_C_BINDING + USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY : stdout=>OUTPUT_UNIT + IMPLICIT NONE + INTEGER a + REAL b + DOUBLE PRECISION c + WRITE(stdout,*) ${FC_SIZEOF_A} + WRITE(stdout,*) kind(a) + WRITE(stdout,*) ${FC_SIZEOF_B} + WRITE(stdout,*) kind(b) + WRITE(stdout,*) ${FC_SIZEOF_C} + WRITE(stdout,*) kind(c) + END + " + ) + FORTRAN_RUN ("SIZEOF NATIVE KINDs" ${PROG_SRC3} XX YY PAC_SIZEOF_NATIVE_KINDS_RESULT PROG_OUTPUT3) + # The output from the above program will be: + # -- LINE 1 -- sizeof INTEGER + # -- LINE 2 -- kind of INTEGER + # -- LINE 3 -- sizeof REAL + # -- LINE 4 -- kind of REAL + # -- LINE 5 -- sizeof DOUBLE PRECISION + # -- LINE 6 -- kind of DOUBLE PRECISION + # + # Convert the string to a list of strings by replacing the carriage return with a semicolon + string (REGEX REPLACE "[\r\n]+" ";" PROG_OUTPUT3 "${PROG_OUTPUT3}") + + list (GET PROG_OUTPUT3 0 PAC_FORTRAN_NATIVE_INTEGER_SIZEOF) + list (GET PROG_OUTPUT3 1 PAC_FORTRAN_NATIVE_INTEGER_KIND) + list (GET PROG_OUTPUT3 2 PAC_FORTRAN_NATIVE_REAL_SIZEOF) + list (GET PROG_OUTPUT3 3 PAC_FORTRAN_NATIVE_REAL_KIND) + list (GET PROG_OUTPUT3 4 PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF) + list (GET PROG_OUTPUT3 5 PAC_FORTRAN_NATIVE_DOUBLE_KIND) +else () + # Use the default if there's no cache variable and cross-compiling + message (VERBOSE "Find sizeof of native kinds sizeof INTEGER... yes (cross-compile gfortran default)") + set (PAC_FORTRAN_NATIVE_INTEGER_SIZEOF 4 CACHE INTERNAL "Find sizeof of native kinds sizeof INTEGER") + message (VERBOSE "Find sizeof of native kinds kind of INTEGER... yes (cross-compile gfortran default)") + set (PAC_FORTRAN_NATIVE_INTEGER_KIND 4 CACHE INTERNAL "Find sizeof of native kinds kind of INTEGER") + message (VERBOSE "Find sizeof of native kinds sizeof REAL... yes (cross-compile gfortran default)") + set (PAC_FORTRAN_NATIVE_REAL_SIZEOF 4 CACHE INTERNAL "Find sizeof of native kinds sizeof REAL") + message (VERBOSE "Find sizeof of native kinds kind of REAL... yes (cross-compile gfortran default)") + set (PAC_FORTRAN_NATIVE_REAL_KIND 4 CACHE INTERNAL "Find sizeof of native kinds kind of REAL") + message (VERBOSE "Find sizeof of native kinds sizeof DOUBLE PRECISION... yes (cross-compile gfortran default)") + set (PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF 8 CACHE INTERNAL "Find sizeof of native kinds sizeof DOUBLE PRECISION") + message (VERBOSE "Find sizeof of native kinds kind of DOUBLE PRECISION... yes (cross-compile gfortran default)") + set (PAC_FORTRAN_NATIVE_DOUBLE_KIND 8 CACHE INTERNAL "Find sizeof of native kinds kind of DOUBLE PRECISION") +endif () if (NOT PAC_FORTRAN_NATIVE_INTEGER_SIZEOF) message (FATAL_ERROR "Failed to find SIZEOF NATIVE INTEGER KINDs for Fortran") @@ -432,11 +487,11 @@ if (${${HDF_PREFIX}_HAVE_FLOAT128}) !!! Fortran interfaces will not be generated for REAL(KIND=${max_real_fortran_kind}) !!!") string (REGEX REPLACE ",[0-9]+}" "}" PAC_FC_ALL_REAL_KINDS ${PAC_FC_ALL_REAL_KINDS}) string (REGEX REPLACE ",[0-9]+}" "}" PAC_FC_ALL_REAL_KINDS_SIZEOF ${PAC_FC_ALL_REAL_KINDS_SIZEOF}) - math (EXPR NUM_RKIND "${NUM_RKIND} - 1") + math (EXPR PAC_FORTRAN_NUM_REAL_KINDS "${PAC_FORTRAN_NUM_REAL_KINDS} - 1") endif () endif () -set (${HDF_PREFIX}_H5CONFIG_F_NUM_RKIND "INTEGER, PARAMETER :: num_rkinds = ${NUM_RKIND}") +set (${HDF_PREFIX}_H5CONFIG_F_NUM_RKIND "INTEGER, PARAMETER :: num_rkinds = ${PAC_FORTRAN_NUM_REAL_KINDS}") string (REGEX REPLACE "{" "" OUT_VAR1 ${PAC_FC_ALL_REAL_KINDS}) string (REGEX REPLACE "}" "" OUT_VAR1 ${OUT_VAR1}) diff --git a/config/sanitizer/code-coverage.cmake b/config/sanitizer/code-coverage.cmake index 5249ed05af1..107d9f07a4f 100644 --- a/config/sanitizer/code-coverage.cmake +++ b/config/sanitizer/code-coverage.cmake @@ -141,14 +141,14 @@ if(CODE_COVERAGE AND NOT CODE_COVERAGE_ADDED) # Targets if(${CMAKE_VERSION} VERSION_LESS "3.17.0") - add_custom_target( + add_custom_target ( ccov-clean COMMAND ${CMAKE_COMMAND} -E remove -f ${CMAKE_COVERAGE_OUTPUT_DIRECTORY}/binaries.list COMMAND ${CMAKE_COMMAND} -E remove -f ${CMAKE_COVERAGE_OUTPUT_DIRECTORY}/profraw.list) else() - add_custom_target( + add_custom_target ( ccov-clean COMMAND ${CMAKE_COMMAND} -E rm -f ${CMAKE_COVERAGE_OUTPUT_DIRECTORY}/binaries.list @@ -158,7 +158,7 @@ if(CODE_COVERAGE AND NOT CODE_COVERAGE_ADDED) # Used to get the shared object file list before doing the main all- # processing - add_custom_target( + add_custom_target ( ccov-libs COMMAND ; COMMENT "libs ready for coverage report.") @@ -189,7 +189,7 @@ if(CODE_COVERAGE AND NOT CODE_COVERAGE_ADDED) endif() # Targets - add_custom_target(ccov-clean COMMAND ${LCOV_PATH} --directory + add_custom_target (ccov-clean COMMAND ${LCOV_PATH} --directory ${CMAKE_BINARY_DIR} --zerocounters) else() @@ -291,7 +291,7 @@ function(target_code_coverage TARGET_NAME) CMAKE_CXX_COMPILER_ID MATCHES "IntelLLVM" OR CMAKE_C_COMPILER_ID MATCHES "(Apple)?[Cc]lang" OR CMAKE_CXX_COMPILER_ID MATCHES "(Apple)?[Cc]lang") - add_custom_target( + add_custom_target ( ccov-run-${target_code_coverage_COVERAGE_TARGET_NAME} COMMAND ${CMAKE_COMMAND} -E echo "-object=$" >> @@ -332,10 +332,12 @@ function(target_code_coverage TARGET_NAME) # Run the executable, generating raw profile data Make the run data # available for further processing. Separated to allow Windows to run # this target serially. - add_custom_target( + add_custom_target ( ccov-run-${target_code_coverage_COVERAGE_TARGET_NAME} + COMMAND ${CMAKE_COMMAND} + ARGS -E env ${CROSSCOMPILING_PATH} COMMAND - ${CMAKE_COMMAND} -E env ${CMAKE_CROSSCOMPILING_EMULATOR} + ${CMAKE_COMMAND} -E env ${target_code_coverage_PRE_ARGS} LLVM_PROFILE_FILE=${target_code_coverage_COVERAGE_TARGET_NAME}.profraw $ ${target_code_coverage_ARGS} @@ -350,7 +352,7 @@ function(target_code_coverage TARGET_NAME) DEPENDS ccov-libs ${TARGET_NAME}) # Merge the generated profile data so llvm-cov can process it - add_custom_target( + add_custom_target ( ccov-processing-${target_code_coverage_COVERAGE_TARGET_NAME} COMMAND ${LLVM_PROFDATA_PATH} merge -sparse @@ -367,7 +369,7 @@ function(target_code_coverage TARGET_NAME) endif() # Print out details of the coverage information to the command line - add_custom_target( + add_custom_target ( ccov-show-${target_code_coverage_COVERAGE_TARGET_NAME} COMMAND ${LLVM_COV_PATH} show $ ${SO_OBJECTS} @@ -376,7 +378,7 @@ function(target_code_coverage TARGET_NAME) DEPENDS ccov-processing-${target_code_coverage_COVERAGE_TARGET_NAME}) # Print out a summary of the coverage information to the command line - add_custom_target( + add_custom_target ( ccov-report-${target_code_coverage_COVERAGE_TARGET_NAME} COMMAND ${LLVM_COV_PATH} report $ ${SO_OBJECTS} @@ -386,7 +388,7 @@ function(target_code_coverage TARGET_NAME) # Export coverage information so continuous integration tools (e.g. # Jenkins) can consume it - add_custom_target( + add_custom_target ( ccov-export-${target_code_coverage_COVERAGE_TARGET_NAME} COMMAND ${LLVM_COV_PATH} export $ ${SO_OBJECTS} @@ -396,7 +398,7 @@ function(target_code_coverage TARGET_NAME) DEPENDS ccov-processing-${target_code_coverage_COVERAGE_TARGET_NAME}) # Generates HTML output of the coverage information for perusal - add_custom_target( + add_custom_target ( ccov-${target_code_coverage_COVERAGE_TARGET_NAME} COMMAND ${LLVM_COV_PATH} show $ ${SO_OBJECTS} @@ -413,10 +415,12 @@ function(target_code_coverage TARGET_NAME) ) # Run the executable, generating coverage information - add_custom_target( + add_custom_target ( ccov-run-${target_code_coverage_COVERAGE_TARGET_NAME} + COMMAND ${CMAKE_COMMAND} + ARGS -E env ${CROSSCOMPILING_PATH} COMMAND - ${CMAKE_CROSSCOMPILING_EMULATOR} ${target_code_coverage_PRE_ARGS} + ${target_code_coverage_PRE_ARGS} $ ${target_code_coverage_ARGS} DEPENDS ${TARGET_NAME}) @@ -439,12 +443,14 @@ function(target_code_coverage TARGET_NAME) # Capture coverage data if(${CMAKE_VERSION} VERSION_LESS "3.17.0") - add_custom_target( + add_custom_target ( ccov-capture-${target_code_coverage_COVERAGE_TARGET_NAME} COMMAND ${CMAKE_COMMAND} -E remove -f ${COVERAGE_INFO} COMMAND ${LCOV_PATH} --directory ${CMAKE_BINARY_DIR} --zerocounters + COMMAND ${CMAKE_COMMAND} + ARGS -E env ${CROSSCOMPILING_PATH} COMMAND - ${CMAKE_CROSSCOMPILING_EMULATOR} ${target_code_coverage_PRE_ARGS} + ${target_code_coverage_PRE_ARGS} $ ${target_code_coverage_ARGS} COMMAND ${LCOV_PATH} --directory ${CMAKE_BINARY_DIR} --base-directory @@ -453,12 +459,14 @@ function(target_code_coverage TARGET_NAME) COMMAND ${EXCLUDE_COMMAND} DEPENDS ${TARGET_NAME}) else() - add_custom_target( + add_custom_target ( ccov-capture-${target_code_coverage_COVERAGE_TARGET_NAME} COMMAND ${CMAKE_COMMAND} -E rm -f ${COVERAGE_INFO} COMMAND ${LCOV_PATH} --directory ${CMAKE_BINARY_DIR} --zerocounters + COMMAND ${CMAKE_COMMAND} + ARGS -E env ${CROSSCOMPILING_PATH} COMMAND - ${CMAKE_CROSSCOMPILING_EMULATOR} ${target_code_coverage_PRE_ARGS} + ${target_code_coverage_PRE_ARGS} $ ${target_code_coverage_ARGS} COMMAND ${LCOV_PATH} --directory ${CMAKE_BINARY_DIR} --base-directory @@ -469,7 +477,7 @@ function(target_code_coverage TARGET_NAME) endif() # Generates HTML output of the coverage information for perusal - add_custom_target( + add_custom_target ( ccov-${target_code_coverage_COVERAGE_TARGET_NAME} COMMAND ${GENHTML_PATH} -o @@ -489,14 +497,14 @@ function(target_code_coverage TARGET_NAME) # AUTO if(target_code_coverage_AUTO) if(NOT TARGET ccov) - add_custom_target(ccov) + add_custom_target (ccov) endif() add_dependencies(ccov ccov-${target_code_coverage_COVERAGE_TARGET_NAME}) if(NOT CMAKE_C_COMPILER_ID MATCHES "GNU" AND NOT CMAKE_CXX_COMPILER_ID MATCHES "GNU") if(NOT TARGET ccov-report) - add_custom_target(ccov-report) + add_custom_target (ccov-report) endif() add_dependencies( ccov-report @@ -564,7 +572,7 @@ function(add_code_coverage_all_targets) # Merge the profile data for all of the run executables if(WIN32) - add_custom_target( + add_custom_target ( ccov-all-processing COMMAND powershell -Command $$FILELIST = Get-Content @@ -572,7 +580,7 @@ function(add_code_coverage_all_targets) merge -o ${CMAKE_COVERAGE_OUTPUT_DIRECTORY}/all-merged.profdata -sparse $$FILELIST) else() - add_custom_target( + add_custom_target ( ccov-all-processing COMMAND ${LLVM_PROFDATA_PATH} merge -o @@ -590,7 +598,7 @@ function(add_code_coverage_all_targets) # Print summary of the code coverage information to the command line if(WIN32) - add_custom_target( + add_custom_target ( ccov-all-report COMMAND powershell -Command $$FILELIST = Get-Content @@ -600,7 +608,7 @@ function(add_code_coverage_all_targets) ${EXCLUDE_REGEX} DEPENDS ccov-all-processing) else() - add_custom_target( + add_custom_target ( ccov-all-report COMMAND ${LLVM_COV_PATH} report `cat @@ -613,7 +621,7 @@ function(add_code_coverage_all_targets) # Export coverage information so continuous integration tools (e.g. # Jenkins) can consume it if(WIN32) - add_custom_target( + add_custom_target ( ccov-all-export COMMAND powershell -Command $$FILELIST = Get-Content @@ -624,7 +632,7 @@ function(add_code_coverage_all_targets) ${CMAKE_COVERAGE_OUTPUT_DIRECTORY}/coverage.json DEPENDS ccov-all-processing) else() - add_custom_target( + add_custom_target ( ccov-all-export COMMAND ${LLVM_COV_PATH} export `cat @@ -637,7 +645,7 @@ function(add_code_coverage_all_targets) # Generate HTML output of all added targets for perusal if(WIN32) - add_custom_target( + add_custom_target ( ccov-all COMMAND powershell -Command $$FILELIST = Get-Content @@ -649,7 +657,7 @@ function(add_code_coverage_all_targets) -format="html" ${EXCLUDE_REGEX} DEPENDS ccov-all-processing) else() - add_custom_target( + add_custom_target ( ccov-all COMMAND ${LLVM_COV_PATH} show `cat @@ -665,7 +673,7 @@ function(add_code_coverage_all_targets) set(COVERAGE_INFO "${CMAKE_COVERAGE_OUTPUT_DIRECTORY}/all-merged.info") # Nothing required for gcov - add_custom_target(ccov-all-processing COMMAND ;) + add_custom_target (ccov-all-processing COMMAND ;) # Exclusion regex string creation set(EXCLUDE_REGEX) @@ -683,7 +691,7 @@ function(add_code_coverage_all_targets) # Capture coverage data if(${CMAKE_VERSION} VERSION_LESS "3.17.0") - add_custom_target( + add_custom_target ( ccov-all-capture COMMAND ${CMAKE_COMMAND} -E remove -f ${COVERAGE_INFO} COMMAND ${LCOV_PATH} --directory ${CMAKE_BINARY_DIR} --capture @@ -691,7 +699,7 @@ function(add_code_coverage_all_targets) COMMAND ${EXCLUDE_COMMAND} DEPENDS ccov-all-processing) else() - add_custom_target( + add_custom_target ( ccov-all-capture COMMAND ${CMAKE_COMMAND} -E rm -f ${COVERAGE_INFO} COMMAND ${LCOV_PATH} --directory ${CMAKE_BINARY_DIR} --capture @@ -701,7 +709,7 @@ function(add_code_coverage_all_targets) endif() # Generates HTML output of all targets for perusal - add_custom_target( + add_custom_target ( ccov-all COMMAND ${GENHTML_PATH} -o ${CMAKE_COVERAGE_OUTPUT_DIRECTORY}/all-merged ${COVERAGE_INFO} -p ${CMAKE_SOURCE_DIR} diff --git a/config/sanitizer/dependency-graph.cmake b/config/sanitizer/dependency-graph.cmake index bc3446d0e4b..8b6dd253014 100644 --- a/config/sanitizer/dependency-graph.cmake +++ b/config/sanitizer/dependency-graph.cmake @@ -79,7 +79,7 @@ function(gen_dep_graph OUTPUT_TYPE) set(OUT_DIR ${CMAKE_CURRENT_BINARY_DIR}) endif() - add_custom_target( + add_custom_target ( ${TARGET_NAME} COMMAND ${CMAKE_COMMAND} ${CMAKE_SOURCE_DIR} --graphviz=${CMAKE_CURRENT_BINARY_DIR}/graphviz/${TARGET_NAME}.dot @@ -98,7 +98,7 @@ function(gen_dep_graph OUTPUT_TYPE) if(gen_dep_graph_ADD_TO_DEP_GRAPH) if(NOT TARGET dep-graph) - add_custom_target(dep-graph) + add_custom_target (dep-graph) endif() add_dependencies(dep-graph ${TARGET_NAME}) diff --git a/config/sanitizer/formatting.cmake b/config/sanitizer/formatting.cmake index 181351dd25b..5dbc92194f0 100644 --- a/config/sanitizer/formatting.cmake +++ b/config/sanitizer/formatting.cmake @@ -69,11 +69,11 @@ function(clang_format TARGET_NAME) # Make the target if(FORMAT_FILES) - add_custom_target(${TARGET_NAME} COMMAND ${CLANG_FORMAT_EXE} -i + add_custom_target (${TARGET_NAME} COMMAND ${CLANG_FORMAT_EXE} -i -style=file ${FORMAT_FILES}) if(NOT TARGET format) - add_custom_target(format) + add_custom_target (format) endif() add_dependencies(format ${TARGET_NAME}) @@ -123,11 +123,11 @@ function(cmake_format TARGET_NAME) ERROR "Cannot create cmake-format target '${TARGET_NAME}', already exists.") else() - add_custom_target(${TARGET_NAME} COMMAND ${CMAKE_FORMAT_EXE} -i + add_custom_target (${TARGET_NAME} COMMAND ${CMAKE_FORMAT_EXE} -i ${FORMAT_FILES}) if(NOT TARGET cmake-format) - add_custom_target(cmake-format) + add_custom_target (cmake-format) endif() add_dependencies(cmake-format ${TARGET_NAME}) endif() diff --git a/config/toolchain/aarch64.cmake b/config/toolchain/aarch64.cmake index fd216a99bb2..7b51ddc8de3 100644 --- a/config/toolchain/aarch64.cmake +++ b/config/toolchain/aarch64.cmake @@ -1,6 +1,6 @@ -set(TOOLCHAIN_PREFIX aarch64-linux-gnu) -set(CMAKE_SYSTEM_NAME Linux) -set(CMAKE_SYSTEM_PROCESSOR aarch64) +set (TOOLCHAIN_PREFIX aarch64-linux-gnu) +set (CMAKE_SYSTEM_NAME Linux) +set (CMAKE_SYSTEM_PROCESSOR aarch64) #set (CMAKE_ANDROID_ARCH_ABI x86_64) #set (CMAKE_ANDROID_STANDALONE_TOOLCHAIN ${ANDROID_NDK}/build/cmake/android.toolchain.cmake) set (CMAKE_C_COMPILER ${TOOLCHAIN_PREFIX}-gcc) @@ -12,7 +12,7 @@ set (CMAKE_FIND_ROOT_PATH_MODE_PROGRAM NEVER) set (CMAKE_FIND_ROOT_PATH_MODE_LIBRARY ONLY) set (CMAKE_FIND_ROOT_PATH_MODE_INCLUDE ONLY) set (CMAKE_FIND_ROOT_PATH_MODE_PACKAGE ONLY) -set(CMAKE_CROSSCOMPILING_EMULATOR "qemu-aarch64-static;-L;/usr/aarch64-linux-gnu/" CACHE FILEPATH "Path to the emulator for the target system.") +set (CMAKE_CROSSCOMPILING_EMULATOR "qemu-aarch64-static;-L;/usr/aarch64-linux-gnu/" CACHE FILEPATH "Path to the emulator for the target system.") -include_directories(/usr/${TOOLCHAIN_PREFIX}/include) +include_directories (/usr/${TOOLCHAIN_PREFIX}/include) diff --git a/config/toolchain/build32.cmake b/config/toolchain/build32.cmake index f636ea845fc..e5b788fe588 100644 --- a/config/toolchain/build32.cmake +++ b/config/toolchain/build32.cmake @@ -1,9 +1,9 @@ if (WIN32) set (CMAKE_SYSTEM_NAME Windows) set (CMAKE_GENERATOR_PLATFORM "x86") -elseif(APPLE) +elseif (APPLE) set (CMAKE_OSX_ARCHITECTURES "i386") -elseif(MINGW) +elseif (MINGW) set (CMAKE_SYSTEM_NAME Windows) set (TOOLCHAIN_PREFIX i686-w64-mingw32) set (CMAKE_C_COMPILER ${TOOLCHAIN_PREFIX}-gcc) diff --git a/config/toolchain/clang.cmake b/config/toolchain/clang.cmake index bad6bef16b4..378c4c505e9 100644 --- a/config/toolchain/clang.cmake +++ b/config/toolchain/clang.cmake @@ -10,7 +10,7 @@ else() set (CMAKE_C_COMPILER clang) set (CMAKE_CXX_COMPILER clang++) #set (CMAKE_Fortran_COMPILER flang) -endif() +endif () set (CMAKE_EXPORT_COMPILE_COMMANDS ON) # the following is used if cross-compiling diff --git a/config/toolchain/crosscompile-readme.cmake b/config/toolchain/crosscompile-readme.cmake new file mode 100644 index 00000000000..45692456e0b --- /dev/null +++ b/config/toolchain/crosscompile-readme.cmake @@ -0,0 +1,47 @@ +# This CMake toolchain file configures cross-compilation settings for building HDF5 on non-native platforms. +# Copy this file and rename it (e.g., to crosscompile-myplatform.cmake). +# Replace the placeholder values with actual values for your target system and compilers. +# Then use this file with CMake by specifying it with the -DCMAKE_TOOLCHAIN_FILE option. + +# Set the target system name for cross-compiling +set (CMAKE_SYSTEM_NAME system_name) + +# Specify the compiler vendor and compilers for C, C++, and Fortran +set (CMAKE_COMPILER_VENDOR "compiler_name") +set (CMAKE_C_COMPILER compiler_cc) +set (CMAKE_CXX_COMPILER compiler_c++) +set (CMAKE_Fortran_COMPILER compiler_fortran) + +# Optional: Specify an emulator for running binaries during cross-compilation +set (CMAKE_CROSSCOMPILING_EMULATOR "") + +# Fortran kind and precision settings for cross-compiling +set (PAC_FC_ALL_INTEGER_KINDS "\{x,y,z\}" CACHE INTERNAL "Find available INTEGER KINDs for Fortran") +set (PAC_FC_ALL_REAL_KINDS "\{x,y,z\}" CACHE INTERNAL "Find available REAL KINDs for Fortran") +set (${HDF_PREFIX}_PAC_FC_MAX_REAL_PRECISION X CACHE INTERNAL "Maximum decimal precision for REALs in Fortran") +set (PAC_FORTRAN_NUM_INTEGER_KINDS "Y" CACHE INTERNAL "Number of valid integer kinds for Fortran") +set (PAC_FORTRAN_NUM_REAL_KINDS "Z" CACHE INTERNAL "Number of valid real kinds for Fortran") + +# Fortran configuration variables for HDF5 +set (${HDF_PREFIX}_H5CONFIG_F_NUM_IKIND "INTEGER, PARAMETER :: num_ikinds = Y") +set (${HDF_PREFIX}_H5CONFIG_F_IKIND "INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/x,y,z/)") + +# If using ISO_FORTRAN_ENV, set logical kind variables +if (${PAC_USE_ISO_FORTRAN_ENV}) + set (PAC_FORTRAN_NUM_LOGICAL_KINDS "W" CACHE INTERNAL "Find available LOGICAL KINDs for Fortran") + set (PAC_FC_ALL_LOGICAL_KINDS "\{x,y,z\}" CACHE INTERNAL "LOGICAL KINDS FOUND for Fortran") +endif () + +# Native kind and sizeof settings for Fortran types +set (PAC_FC_ALL_INTEGER_KINDS_SIZEOF "\{x,y,z\}" CACHE INTERNAL "Find available INTEGER KINDs for Fortran") +set (PAC_FC_ALL_REAL_KINDS_SIZEOF "\{x,y,z\}" CACHE INTERNAL "Find available REAL KINDs for Fortran") +set (PAC_FORTRAN_NATIVE_INTEGER_SIZEOF i CACHE INTERNAL "Find sizeof of native kinds sizeof INTEGER") +set (PAC_FORTRAN_NATIVE_INTEGER_KIND j CACHE INTERNAL "Find sizeof of native kinds kind of INTEGER") +set (PAC_FORTRAN_NATIVE_REAL_SIZEOF k CACHE INTERNAL "Find sizeof of native kinds sizeof REAL") +set (PAC_FORTRAN_NATIVE_REAL_KIND m CACHE INTERNAL "Find sizeof of native kinds kind of REAL") +set (PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF n CACHE INTERNAL "Find sizeof of native kinds sizeof DOUBLE PRECISION") +set (PAC_FORTRAN_NATIVE_DOUBLE_KIND o CACHE INTERNAL "Find sizeof of native kinds kind of DOUBLE PRECISION") + +# Optional set the path to a pregenerated Fortran directory that contains pregenerated files +set (HDF5_USE_PREGEN_DIR "${CMAKE_CURRENT_LIST_DIR}/path/to/pregenerated/fortran/files" CACHE PATH "Path to pregenerated Fortran files") + diff --git a/config/toolchain/fortpregen/gfortran/H5LTff_gen.F90 b/config/toolchain/fortpregen/gfortran/H5LTff_gen.F90 new file mode 100644 index 00000000000..5f7aca790f3 --- /dev/null +++ b/config/toolchain/fortpregen/gfortran/H5LTff_gen.F90 @@ -0,0 +1,6515 @@ +!****h* ROBODoc/H5LTff_gen.F90 +! +! NAME +! H5LTff_gen +! +! PURPOSE +! This module is generated at build by H5HL_buildiface.F90 to handle all the +! detected REAL/INTEGER KINDs for APIs being passed those KINDs. Currently these +! are H5LT and H5TB APIs +! +! COPYRIGHT +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! Copyright by The HDF Group. * +! All rights reserved. * +! * +! This file is part of HDF5. The full HDF5 copyright notice, including * +! terms governing use, modification, and redistribution, is contained in * +! the LICENSE file, which can be found at the root of the source code * +! distribution tree, or in https://www.hdfgroup.org/licenses. * +! If you do not have access to either file, you may request a copy from * +! help@hdfgroup.org. * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! +! AUTHOR +! H5HL_buildiface.F90 +! +!***** + +MODULE H5LT + USE, INTRINSIC :: ISO_C_BINDING + USE h5fortran_types + USE H5LT_CONST + IMPLICIT NONE + INTERFACE h5ltmake_dataset_f + MODULE PROCEDURE h5ltmake_dataset_real_kind_4_rank_0 + MODULE PROCEDURE h5ltmake_dataset_real_kind_4_rank_1 + MODULE PROCEDURE h5ltmake_dataset_real_kind_4_rank_2 + MODULE PROCEDURE h5ltmake_dataset_real_kind_4_rank_3 + MODULE PROCEDURE h5ltmake_dataset_real_kind_4_rank_4 + MODULE PROCEDURE h5ltmake_dataset_real_kind_4_rank_5 + MODULE PROCEDURE h5ltmake_dataset_real_kind_4_rank_6 + MODULE PROCEDURE h5ltmake_dataset_real_kind_4_rank_7 + MODULE PROCEDURE h5ltmake_dataset_real_kind_8_rank_0 + MODULE PROCEDURE h5ltmake_dataset_real_kind_8_rank_1 + MODULE PROCEDURE h5ltmake_dataset_real_kind_8_rank_2 + MODULE PROCEDURE h5ltmake_dataset_real_kind_8_rank_3 + MODULE PROCEDURE h5ltmake_dataset_real_kind_8_rank_4 + MODULE PROCEDURE h5ltmake_dataset_real_kind_8_rank_5 + MODULE PROCEDURE h5ltmake_dataset_real_kind_8_rank_6 + MODULE PROCEDURE h5ltmake_dataset_real_kind_8_rank_7 + MODULE PROCEDURE h5ltmake_dataset_real_kind_10_rank_0 + MODULE PROCEDURE h5ltmake_dataset_real_kind_10_rank_1 + MODULE PROCEDURE h5ltmake_dataset_real_kind_10_rank_2 + MODULE PROCEDURE h5ltmake_dataset_real_kind_10_rank_3 + MODULE PROCEDURE h5ltmake_dataset_real_kind_10_rank_4 + MODULE PROCEDURE h5ltmake_dataset_real_kind_10_rank_5 + MODULE PROCEDURE h5ltmake_dataset_real_kind_10_rank_6 + MODULE PROCEDURE h5ltmake_dataset_real_kind_10_rank_7 + MODULE PROCEDURE h5ltmake_dataset_real_kind_16_rank_0 + MODULE PROCEDURE h5ltmake_dataset_real_kind_16_rank_1 + MODULE PROCEDURE h5ltmake_dataset_real_kind_16_rank_2 + MODULE PROCEDURE h5ltmake_dataset_real_kind_16_rank_3 + MODULE PROCEDURE h5ltmake_dataset_real_kind_16_rank_4 + MODULE PROCEDURE h5ltmake_dataset_real_kind_16_rank_5 + MODULE PROCEDURE h5ltmake_dataset_real_kind_16_rank_6 + MODULE PROCEDURE h5ltmake_dataset_real_kind_16_rank_7 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_1_rank_0 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_1_rank_1 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_1_rank_2 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_1_rank_3 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_1_rank_4 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_1_rank_5 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_1_rank_6 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_1_rank_7 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_2_rank_0 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_2_rank_1 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_2_rank_2 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_2_rank_3 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_2_rank_4 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_2_rank_5 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_2_rank_6 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_2_rank_7 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_4_rank_0 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_4_rank_1 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_4_rank_2 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_4_rank_3 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_4_rank_4 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_4_rank_5 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_4_rank_6 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_4_rank_7 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_8_rank_0 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_8_rank_1 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_8_rank_2 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_8_rank_3 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_8_rank_4 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_8_rank_5 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_8_rank_6 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_8_rank_7 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_16_rank_0 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_16_rank_1 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_16_rank_2 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_16_rank_3 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_16_rank_4 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_16_rank_5 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_16_rank_6 + MODULE PROCEDURE h5ltmake_dataset_integer_kind_16_rank_7 + END INTERFACE + INTERFACE h5ltread_dataset_f + MODULE PROCEDURE h5ltread_dataset_real_kind_4_rank_0 + MODULE PROCEDURE h5ltread_dataset_real_kind_4_rank_1 + MODULE PROCEDURE h5ltread_dataset_real_kind_4_rank_2 + MODULE PROCEDURE h5ltread_dataset_real_kind_4_rank_3 + MODULE PROCEDURE h5ltread_dataset_real_kind_4_rank_4 + MODULE PROCEDURE h5ltread_dataset_real_kind_4_rank_5 + MODULE PROCEDURE h5ltread_dataset_real_kind_4_rank_6 + MODULE PROCEDURE h5ltread_dataset_real_kind_4_rank_7 + MODULE PROCEDURE h5ltread_dataset_real_kind_8_rank_0 + MODULE PROCEDURE h5ltread_dataset_real_kind_8_rank_1 + MODULE PROCEDURE h5ltread_dataset_real_kind_8_rank_2 + MODULE PROCEDURE h5ltread_dataset_real_kind_8_rank_3 + MODULE PROCEDURE h5ltread_dataset_real_kind_8_rank_4 + MODULE PROCEDURE h5ltread_dataset_real_kind_8_rank_5 + MODULE PROCEDURE h5ltread_dataset_real_kind_8_rank_6 + MODULE PROCEDURE h5ltread_dataset_real_kind_8_rank_7 + MODULE PROCEDURE h5ltread_dataset_real_kind_10_rank_0 + MODULE PROCEDURE h5ltread_dataset_real_kind_10_rank_1 + MODULE PROCEDURE h5ltread_dataset_real_kind_10_rank_2 + MODULE PROCEDURE h5ltread_dataset_real_kind_10_rank_3 + MODULE PROCEDURE h5ltread_dataset_real_kind_10_rank_4 + MODULE PROCEDURE h5ltread_dataset_real_kind_10_rank_5 + MODULE PROCEDURE h5ltread_dataset_real_kind_10_rank_6 + MODULE PROCEDURE h5ltread_dataset_real_kind_10_rank_7 + MODULE PROCEDURE h5ltread_dataset_real_kind_16_rank_0 + MODULE PROCEDURE h5ltread_dataset_real_kind_16_rank_1 + MODULE PROCEDURE h5ltread_dataset_real_kind_16_rank_2 + MODULE PROCEDURE h5ltread_dataset_real_kind_16_rank_3 + MODULE PROCEDURE h5ltread_dataset_real_kind_16_rank_4 + MODULE PROCEDURE h5ltread_dataset_real_kind_16_rank_5 + MODULE PROCEDURE h5ltread_dataset_real_kind_16_rank_6 + MODULE PROCEDURE h5ltread_dataset_real_kind_16_rank_7 + MODULE PROCEDURE h5ltread_dataset_integer_kind_1_rank_0 + MODULE PROCEDURE h5ltread_dataset_integer_kind_1_rank_1 + MODULE PROCEDURE h5ltread_dataset_integer_kind_1_rank_2 + MODULE PROCEDURE h5ltread_dataset_integer_kind_1_rank_3 + MODULE PROCEDURE h5ltread_dataset_integer_kind_1_rank_4 + MODULE PROCEDURE h5ltread_dataset_integer_kind_1_rank_5 + MODULE PROCEDURE h5ltread_dataset_integer_kind_1_rank_6 + MODULE PROCEDURE h5ltread_dataset_integer_kind_1_rank_7 + MODULE PROCEDURE h5ltread_dataset_integer_kind_2_rank_0 + MODULE PROCEDURE h5ltread_dataset_integer_kind_2_rank_1 + MODULE PROCEDURE h5ltread_dataset_integer_kind_2_rank_2 + MODULE PROCEDURE h5ltread_dataset_integer_kind_2_rank_3 + MODULE PROCEDURE h5ltread_dataset_integer_kind_2_rank_4 + MODULE PROCEDURE h5ltread_dataset_integer_kind_2_rank_5 + MODULE PROCEDURE h5ltread_dataset_integer_kind_2_rank_6 + MODULE PROCEDURE h5ltread_dataset_integer_kind_2_rank_7 + MODULE PROCEDURE h5ltread_dataset_integer_kind_4_rank_0 + MODULE PROCEDURE h5ltread_dataset_integer_kind_4_rank_1 + MODULE PROCEDURE h5ltread_dataset_integer_kind_4_rank_2 + MODULE PROCEDURE h5ltread_dataset_integer_kind_4_rank_3 + MODULE PROCEDURE h5ltread_dataset_integer_kind_4_rank_4 + MODULE PROCEDURE h5ltread_dataset_integer_kind_4_rank_5 + MODULE PROCEDURE h5ltread_dataset_integer_kind_4_rank_6 + MODULE PROCEDURE h5ltread_dataset_integer_kind_4_rank_7 + MODULE PROCEDURE h5ltread_dataset_integer_kind_8_rank_0 + MODULE PROCEDURE h5ltread_dataset_integer_kind_8_rank_1 + MODULE PROCEDURE h5ltread_dataset_integer_kind_8_rank_2 + MODULE PROCEDURE h5ltread_dataset_integer_kind_8_rank_3 + MODULE PROCEDURE h5ltread_dataset_integer_kind_8_rank_4 + MODULE PROCEDURE h5ltread_dataset_integer_kind_8_rank_5 + MODULE PROCEDURE h5ltread_dataset_integer_kind_8_rank_6 + MODULE PROCEDURE h5ltread_dataset_integer_kind_8_rank_7 + MODULE PROCEDURE h5ltread_dataset_integer_kind_16_rank_0 + MODULE PROCEDURE h5ltread_dataset_integer_kind_16_rank_1 + MODULE PROCEDURE h5ltread_dataset_integer_kind_16_rank_2 + MODULE PROCEDURE h5ltread_dataset_integer_kind_16_rank_3 + MODULE PROCEDURE h5ltread_dataset_integer_kind_16_rank_4 + MODULE PROCEDURE h5ltread_dataset_integer_kind_16_rank_5 + MODULE PROCEDURE h5ltread_dataset_integer_kind_16_rank_6 + MODULE PROCEDURE h5ltread_dataset_integer_kind_16_rank_7 + END INTERFACE + INTERFACE h5ltread_dataset_int_f + MODULE PROCEDURE h5ltread_dataset_int_kind_1_rank_0 + MODULE PROCEDURE h5ltread_dataset_int_kind_1_rank_1 + MODULE PROCEDURE h5ltread_dataset_int_kind_1_rank_2 + MODULE PROCEDURE h5ltread_dataset_int_kind_1_rank_3 + MODULE PROCEDURE h5ltread_dataset_int_kind_1_rank_4 + MODULE PROCEDURE h5ltread_dataset_int_kind_1_rank_5 + MODULE PROCEDURE h5ltread_dataset_int_kind_1_rank_6 + MODULE PROCEDURE h5ltread_dataset_int_kind_1_rank_7 + MODULE PROCEDURE h5ltread_dataset_int_kind_2_rank_0 + MODULE PROCEDURE h5ltread_dataset_int_kind_2_rank_1 + MODULE PROCEDURE h5ltread_dataset_int_kind_2_rank_2 + MODULE PROCEDURE h5ltread_dataset_int_kind_2_rank_3 + MODULE PROCEDURE h5ltread_dataset_int_kind_2_rank_4 + MODULE PROCEDURE h5ltread_dataset_int_kind_2_rank_5 + MODULE PROCEDURE h5ltread_dataset_int_kind_2_rank_6 + MODULE PROCEDURE h5ltread_dataset_int_kind_2_rank_7 + MODULE PROCEDURE h5ltread_dataset_int_kind_4_rank_0 + MODULE PROCEDURE h5ltread_dataset_int_kind_4_rank_1 + MODULE PROCEDURE h5ltread_dataset_int_kind_4_rank_2 + MODULE PROCEDURE h5ltread_dataset_int_kind_4_rank_3 + MODULE PROCEDURE h5ltread_dataset_int_kind_4_rank_4 + MODULE PROCEDURE h5ltread_dataset_int_kind_4_rank_5 + MODULE PROCEDURE h5ltread_dataset_int_kind_4_rank_6 + MODULE PROCEDURE h5ltread_dataset_int_kind_4_rank_7 + MODULE PROCEDURE h5ltread_dataset_int_kind_8_rank_0 + MODULE PROCEDURE h5ltread_dataset_int_kind_8_rank_1 + MODULE PROCEDURE h5ltread_dataset_int_kind_8_rank_2 + MODULE PROCEDURE h5ltread_dataset_int_kind_8_rank_3 + MODULE PROCEDURE h5ltread_dataset_int_kind_8_rank_4 + MODULE PROCEDURE h5ltread_dataset_int_kind_8_rank_5 + MODULE PROCEDURE h5ltread_dataset_int_kind_8_rank_6 + MODULE PROCEDURE h5ltread_dataset_int_kind_8_rank_7 + MODULE PROCEDURE h5ltread_dataset_int_kind_16_rank_0 + MODULE PROCEDURE h5ltread_dataset_int_kind_16_rank_1 + MODULE PROCEDURE h5ltread_dataset_int_kind_16_rank_2 + MODULE PROCEDURE h5ltread_dataset_int_kind_16_rank_3 + MODULE PROCEDURE h5ltread_dataset_int_kind_16_rank_4 + MODULE PROCEDURE h5ltread_dataset_int_kind_16_rank_5 + MODULE PROCEDURE h5ltread_dataset_int_kind_16_rank_6 + MODULE PROCEDURE h5ltread_dataset_int_kind_16_rank_7 + END INTERFACE + INTERFACE h5ltmake_dataset_int_f + MODULE PROCEDURE h5ltmake_dataset_int_kind_1_rank_0 + MODULE PROCEDURE h5ltmake_dataset_int_kind_1_rank_1 + MODULE PROCEDURE h5ltmake_dataset_int_kind_1_rank_2 + MODULE PROCEDURE h5ltmake_dataset_int_kind_1_rank_3 + MODULE PROCEDURE h5ltmake_dataset_int_kind_1_rank_4 + MODULE PROCEDURE h5ltmake_dataset_int_kind_1_rank_5 + MODULE PROCEDURE h5ltmake_dataset_int_kind_1_rank_6 + MODULE PROCEDURE h5ltmake_dataset_int_kind_1_rank_7 + MODULE PROCEDURE h5ltmake_dataset_int_kind_2_rank_0 + MODULE PROCEDURE h5ltmake_dataset_int_kind_2_rank_1 + MODULE PROCEDURE h5ltmake_dataset_int_kind_2_rank_2 + MODULE PROCEDURE h5ltmake_dataset_int_kind_2_rank_3 + MODULE PROCEDURE h5ltmake_dataset_int_kind_2_rank_4 + MODULE PROCEDURE h5ltmake_dataset_int_kind_2_rank_5 + MODULE PROCEDURE h5ltmake_dataset_int_kind_2_rank_6 + MODULE PROCEDURE h5ltmake_dataset_int_kind_2_rank_7 + MODULE PROCEDURE h5ltmake_dataset_int_kind_4_rank_0 + MODULE PROCEDURE h5ltmake_dataset_int_kind_4_rank_1 + MODULE PROCEDURE h5ltmake_dataset_int_kind_4_rank_2 + MODULE PROCEDURE h5ltmake_dataset_int_kind_4_rank_3 + MODULE PROCEDURE h5ltmake_dataset_int_kind_4_rank_4 + MODULE PROCEDURE h5ltmake_dataset_int_kind_4_rank_5 + MODULE PROCEDURE h5ltmake_dataset_int_kind_4_rank_6 + MODULE PROCEDURE h5ltmake_dataset_int_kind_4_rank_7 + MODULE PROCEDURE h5ltmake_dataset_int_kind_8_rank_0 + MODULE PROCEDURE h5ltmake_dataset_int_kind_8_rank_1 + MODULE PROCEDURE h5ltmake_dataset_int_kind_8_rank_2 + MODULE PROCEDURE h5ltmake_dataset_int_kind_8_rank_3 + MODULE PROCEDURE h5ltmake_dataset_int_kind_8_rank_4 + MODULE PROCEDURE h5ltmake_dataset_int_kind_8_rank_5 + MODULE PROCEDURE h5ltmake_dataset_int_kind_8_rank_6 + MODULE PROCEDURE h5ltmake_dataset_int_kind_8_rank_7 + MODULE PROCEDURE h5ltmake_dataset_int_kind_16_rank_0 + MODULE PROCEDURE h5ltmake_dataset_int_kind_16_rank_1 + MODULE PROCEDURE h5ltmake_dataset_int_kind_16_rank_2 + MODULE PROCEDURE h5ltmake_dataset_int_kind_16_rank_3 + MODULE PROCEDURE h5ltmake_dataset_int_kind_16_rank_4 + MODULE PROCEDURE h5ltmake_dataset_int_kind_16_rank_5 + MODULE PROCEDURE h5ltmake_dataset_int_kind_16_rank_6 + MODULE PROCEDURE h5ltmake_dataset_int_kind_16_rank_7 + END INTERFACE + INTERFACE h5ltmake_dataset_float_f + MODULE PROCEDURE h5ltmake_dataset_float_kind_4_rank_0 + MODULE PROCEDURE h5ltmake_dataset_float_kind_4_rank_1 + MODULE PROCEDURE h5ltmake_dataset_float_kind_4_rank_2 + MODULE PROCEDURE h5ltmake_dataset_float_kind_4_rank_3 + MODULE PROCEDURE h5ltmake_dataset_float_kind_4_rank_4 + MODULE PROCEDURE h5ltmake_dataset_float_kind_4_rank_5 + MODULE PROCEDURE h5ltmake_dataset_float_kind_4_rank_6 + MODULE PROCEDURE h5ltmake_dataset_float_kind_4_rank_7 + MODULE PROCEDURE h5ltmake_dataset_float_kind_8_rank_0 + MODULE PROCEDURE h5ltmake_dataset_float_kind_8_rank_1 + MODULE PROCEDURE h5ltmake_dataset_float_kind_8_rank_2 + MODULE PROCEDURE h5ltmake_dataset_float_kind_8_rank_3 + MODULE PROCEDURE h5ltmake_dataset_float_kind_8_rank_4 + MODULE PROCEDURE h5ltmake_dataset_float_kind_8_rank_5 + MODULE PROCEDURE h5ltmake_dataset_float_kind_8_rank_6 + MODULE PROCEDURE h5ltmake_dataset_float_kind_8_rank_7 + MODULE PROCEDURE h5ltmake_dataset_float_kind_10_rank_0 + MODULE PROCEDURE h5ltmake_dataset_float_kind_10_rank_1 + MODULE PROCEDURE h5ltmake_dataset_float_kind_10_rank_2 + MODULE PROCEDURE h5ltmake_dataset_float_kind_10_rank_3 + MODULE PROCEDURE h5ltmake_dataset_float_kind_10_rank_4 + MODULE PROCEDURE h5ltmake_dataset_float_kind_10_rank_5 + MODULE PROCEDURE h5ltmake_dataset_float_kind_10_rank_6 + MODULE PROCEDURE h5ltmake_dataset_float_kind_10_rank_7 + MODULE PROCEDURE h5ltmake_dataset_float_kind_16_rank_0 + MODULE PROCEDURE h5ltmake_dataset_float_kind_16_rank_1 + MODULE PROCEDURE h5ltmake_dataset_float_kind_16_rank_2 + MODULE PROCEDURE h5ltmake_dataset_float_kind_16_rank_3 + MODULE PROCEDURE h5ltmake_dataset_float_kind_16_rank_4 + MODULE PROCEDURE h5ltmake_dataset_float_kind_16_rank_5 + MODULE PROCEDURE h5ltmake_dataset_float_kind_16_rank_6 + MODULE PROCEDURE h5ltmake_dataset_float_kind_16_rank_7 + END INTERFACE + INTERFACE h5ltmake_dataset_double_f + MODULE PROCEDURE h5ltmake_dataset_double_kind_4_rank_0 + MODULE PROCEDURE h5ltmake_dataset_double_kind_4_rank_1 + MODULE PROCEDURE h5ltmake_dataset_double_kind_4_rank_2 + MODULE PROCEDURE h5ltmake_dataset_double_kind_4_rank_3 + MODULE PROCEDURE h5ltmake_dataset_double_kind_4_rank_4 + MODULE PROCEDURE h5ltmake_dataset_double_kind_4_rank_5 + MODULE PROCEDURE h5ltmake_dataset_double_kind_4_rank_6 + MODULE PROCEDURE h5ltmake_dataset_double_kind_4_rank_7 + MODULE PROCEDURE h5ltmake_dataset_double_kind_8_rank_0 + MODULE PROCEDURE h5ltmake_dataset_double_kind_8_rank_1 + MODULE PROCEDURE h5ltmake_dataset_double_kind_8_rank_2 + MODULE PROCEDURE h5ltmake_dataset_double_kind_8_rank_3 + MODULE PROCEDURE h5ltmake_dataset_double_kind_8_rank_4 + MODULE PROCEDURE h5ltmake_dataset_double_kind_8_rank_5 + MODULE PROCEDURE h5ltmake_dataset_double_kind_8_rank_6 + MODULE PROCEDURE h5ltmake_dataset_double_kind_8_rank_7 + MODULE PROCEDURE h5ltmake_dataset_double_kind_10_rank_0 + MODULE PROCEDURE h5ltmake_dataset_double_kind_10_rank_1 + MODULE PROCEDURE h5ltmake_dataset_double_kind_10_rank_2 + MODULE PROCEDURE h5ltmake_dataset_double_kind_10_rank_3 + MODULE PROCEDURE h5ltmake_dataset_double_kind_10_rank_4 + MODULE PROCEDURE h5ltmake_dataset_double_kind_10_rank_5 + MODULE PROCEDURE h5ltmake_dataset_double_kind_10_rank_6 + MODULE PROCEDURE h5ltmake_dataset_double_kind_10_rank_7 + MODULE PROCEDURE h5ltmake_dataset_double_kind_16_rank_0 + MODULE PROCEDURE h5ltmake_dataset_double_kind_16_rank_1 + MODULE PROCEDURE h5ltmake_dataset_double_kind_16_rank_2 + MODULE PROCEDURE h5ltmake_dataset_double_kind_16_rank_3 + MODULE PROCEDURE h5ltmake_dataset_double_kind_16_rank_4 + MODULE PROCEDURE h5ltmake_dataset_double_kind_16_rank_5 + MODULE PROCEDURE h5ltmake_dataset_double_kind_16_rank_6 + MODULE PROCEDURE h5ltmake_dataset_double_kind_16_rank_7 + END INTERFACE + INTERFACE h5ltread_dataset_float_f + MODULE PROCEDURE h5ltread_dataset_float_kind_4_rank_0 + MODULE PROCEDURE h5ltread_dataset_float_kind_4_rank_1 + MODULE PROCEDURE h5ltread_dataset_float_kind_4_rank_2 + MODULE PROCEDURE h5ltread_dataset_float_kind_4_rank_3 + MODULE PROCEDURE h5ltread_dataset_float_kind_4_rank_4 + MODULE PROCEDURE h5ltread_dataset_float_kind_4_rank_5 + MODULE PROCEDURE h5ltread_dataset_float_kind_4_rank_6 + MODULE PROCEDURE h5ltread_dataset_float_kind_4_rank_7 + MODULE PROCEDURE h5ltread_dataset_float_kind_8_rank_0 + MODULE PROCEDURE h5ltread_dataset_float_kind_8_rank_1 + MODULE PROCEDURE h5ltread_dataset_float_kind_8_rank_2 + MODULE PROCEDURE h5ltread_dataset_float_kind_8_rank_3 + MODULE PROCEDURE h5ltread_dataset_float_kind_8_rank_4 + MODULE PROCEDURE h5ltread_dataset_float_kind_8_rank_5 + MODULE PROCEDURE h5ltread_dataset_float_kind_8_rank_6 + MODULE PROCEDURE h5ltread_dataset_float_kind_8_rank_7 + MODULE PROCEDURE h5ltread_dataset_float_kind_10_rank_0 + MODULE PROCEDURE h5ltread_dataset_float_kind_10_rank_1 + MODULE PROCEDURE h5ltread_dataset_float_kind_10_rank_2 + MODULE PROCEDURE h5ltread_dataset_float_kind_10_rank_3 + MODULE PROCEDURE h5ltread_dataset_float_kind_10_rank_4 + MODULE PROCEDURE h5ltread_dataset_float_kind_10_rank_5 + MODULE PROCEDURE h5ltread_dataset_float_kind_10_rank_6 + MODULE PROCEDURE h5ltread_dataset_float_kind_10_rank_7 + MODULE PROCEDURE h5ltread_dataset_float_kind_16_rank_0 + MODULE PROCEDURE h5ltread_dataset_float_kind_16_rank_1 + MODULE PROCEDURE h5ltread_dataset_float_kind_16_rank_2 + MODULE PROCEDURE h5ltread_dataset_float_kind_16_rank_3 + MODULE PROCEDURE h5ltread_dataset_float_kind_16_rank_4 + MODULE PROCEDURE h5ltread_dataset_float_kind_16_rank_5 + MODULE PROCEDURE h5ltread_dataset_float_kind_16_rank_6 + MODULE PROCEDURE h5ltread_dataset_float_kind_16_rank_7 + END INTERFACE + INTERFACE h5ltread_dataset_double_f + MODULE PROCEDURE h5ltread_dataset_double_kind_4_rank_0 + MODULE PROCEDURE h5ltread_dataset_double_kind_4_rank_1 + MODULE PROCEDURE h5ltread_dataset_double_kind_4_rank_2 + MODULE PROCEDURE h5ltread_dataset_double_kind_4_rank_3 + MODULE PROCEDURE h5ltread_dataset_double_kind_4_rank_4 + MODULE PROCEDURE h5ltread_dataset_double_kind_4_rank_5 + MODULE PROCEDURE h5ltread_dataset_double_kind_4_rank_6 + MODULE PROCEDURE h5ltread_dataset_double_kind_4_rank_7 + MODULE PROCEDURE h5ltread_dataset_double_kind_8_rank_0 + MODULE PROCEDURE h5ltread_dataset_double_kind_8_rank_1 + MODULE PROCEDURE h5ltread_dataset_double_kind_8_rank_2 + MODULE PROCEDURE h5ltread_dataset_double_kind_8_rank_3 + MODULE PROCEDURE h5ltread_dataset_double_kind_8_rank_4 + MODULE PROCEDURE h5ltread_dataset_double_kind_8_rank_5 + MODULE PROCEDURE h5ltread_dataset_double_kind_8_rank_6 + MODULE PROCEDURE h5ltread_dataset_double_kind_8_rank_7 + MODULE PROCEDURE h5ltread_dataset_double_kind_10_rank_0 + MODULE PROCEDURE h5ltread_dataset_double_kind_10_rank_1 + MODULE PROCEDURE h5ltread_dataset_double_kind_10_rank_2 + MODULE PROCEDURE h5ltread_dataset_double_kind_10_rank_3 + MODULE PROCEDURE h5ltread_dataset_double_kind_10_rank_4 + MODULE PROCEDURE h5ltread_dataset_double_kind_10_rank_5 + MODULE PROCEDURE h5ltread_dataset_double_kind_10_rank_6 + MODULE PROCEDURE h5ltread_dataset_double_kind_10_rank_7 + MODULE PROCEDURE h5ltread_dataset_double_kind_16_rank_0 + MODULE PROCEDURE h5ltread_dataset_double_kind_16_rank_1 + MODULE PROCEDURE h5ltread_dataset_double_kind_16_rank_2 + MODULE PROCEDURE h5ltread_dataset_double_kind_16_rank_3 + MODULE PROCEDURE h5ltread_dataset_double_kind_16_rank_4 + MODULE PROCEDURE h5ltread_dataset_double_kind_16_rank_5 + MODULE PROCEDURE h5ltread_dataset_double_kind_16_rank_6 + MODULE PROCEDURE h5ltread_dataset_double_kind_16_rank_7 + END INTERFACE +CONTAINS +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_4_rank_0(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=4),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_4_rank_1(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_4_rank_2(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_4_rank_3(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_4_rank_4(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_4_rank_5(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_4_rank_6(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_4_rank_7(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_8_rank_0(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=8),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_8_rank_1(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_8_rank_2(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_8_rank_3(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_8_rank_4(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_8_rank_5(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_8_rank_6(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_8_rank_7(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_10_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_10_rank_0(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=10),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_10_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_10_rank_1(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_10_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_10_rank_2(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_10_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_10_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_10_rank_3(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_10_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_10_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_10_rank_4(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_10_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_10_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_10_rank_5(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_10_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_10_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_10_rank_6(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_10_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_10_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_10_rank_7(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_10_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_16_rank_0(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=16),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_16_rank_1(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_16_rank_2(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_16_rank_3(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_16_rank_4(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_16_rank_5(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_16_rank_6(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_real_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_real_kind_16_rank_7(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,type_id,f_ptr) + END SUBROUTINE h5ltmake_dataset_real_kind_16_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_4_rank_0(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_4_rank_1(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_4_rank_2(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_4_rank_3(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_4_rank_4(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_4_rank_5(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_4_rank_6(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_4_rank_7(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_8_rank_0(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_8_rank_1(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_8_rank_2(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_8_rank_3(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_8_rank_4(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_8_rank_5(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_8_rank_6(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_8_rank_7(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_10_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_10_rank_0(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_10_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_10_rank_1(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_10_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_10_rank_2(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_10_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_10_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_10_rank_3(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_10_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_10_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_10_rank_4(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_10_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_10_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_10_rank_5(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_10_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_10_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_10_rank_6(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_10_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_10_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_10_rank_7(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_10_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_16_rank_0(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_16_rank_1(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_16_rank_2(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_16_rank_3(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_16_rank_4(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_16_rank_5(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_16_rank_6(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_real_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_real_kind_16_rank_7(loc_id,dset_name,type_id,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,type_id,f_ptr) + END SUBROUTINE h5ltread_dataset_real_kind_16_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_4_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_4_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_4_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_4_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_4_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_4_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_4_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_4_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_8_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_8_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_8_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_8_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_8_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_8_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_8_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_8_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_10_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_10_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_10_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_10_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_10_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_10_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_10_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_10_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_10_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_10_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_10_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_10_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_10_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_10_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_10_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_16_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_16_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_16_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_16_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_16_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_16_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_16_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_float_kind_16_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_4_rank_0(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_4_rank_1(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_4_rank_2(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_4_rank_3(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_4_rank_4(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_4_rank_5(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_4_rank_6(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_4_rank_7(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_8_rank_0(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_8_rank_1(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_8_rank_2(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_8_rank_3(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_8_rank_4(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_8_rank_5(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_8_rank_6(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_8_rank_7(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_10_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_10_rank_0(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_10_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_10_rank_1(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_10_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_10_rank_2(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_10_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_10_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_10_rank_3(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_10_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_10_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_10_rank_4(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_10_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_10_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_10_rank_5(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_10_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_10_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_10_rank_6(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_10_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_10_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_10_rank_7(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_10_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_16_rank_0(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_16_rank_1(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_16_rank_2(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_16_rank_3(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_16_rank_4(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_16_rank_5(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_16_rank_6(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_float_kind_16_rank_7(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,f_ptr) + END SUBROUTINE h5ltread_dataset_float_kind_16_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_4_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_4_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_4_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_4_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_4_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_4_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_4_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_4_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_8_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_8_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_8_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_8_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_8_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_8_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_8_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_8_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_10_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_10_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_10_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_10_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_10_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_10_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_10_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_10_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_10_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_10_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_10_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_10_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_10_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_10_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_10_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_10_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_10_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_10_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_10_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_10_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_10_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_10_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_16_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_16_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_16_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_16_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_16_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_16_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_16_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_double_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_double_kind_16_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltmake_dataset_double_kind_16_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_4_rank_0(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_4_rank_1(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_4_rank_2(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_4_rank_3(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_4_rank_4(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_4_rank_5(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_4_rank_6(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_4_rank_7(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_8_rank_0(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_8_rank_1(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_8_rank_2(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_8_rank_3(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_8_rank_4(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_8_rank_5(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_8_rank_6(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_8_rank_7(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_10_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_10_rank_0(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_10_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_10_rank_1(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_10_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_10_rank_2(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_10_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_10_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_10_rank_3(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_10_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_10_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_10_rank_4(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_10_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_10_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_10_rank_5(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_10_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_10_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_10_rank_6(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_10_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_10_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_10_rank_7(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_10_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_16_rank_0(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_16_rank_1(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_16_rank_2(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_16_rank_3(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_16_rank_4(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_16_rank_5(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_16_rank_6(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_double_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_double_kind_16_rank_7(loc_id,dset_name,buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,f_ptr) + END SUBROUTINE h5ltread_dataset_double_kind_16_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_1_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_0(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_1_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_1(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_1_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_2(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_1_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_3(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_1_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_4(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_1_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_5(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_1_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_6(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_1_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_7(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_1_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_2_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_0(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_2_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_1(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_2_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_2(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_2_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_3(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_2_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_4(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_2_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_5(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_2_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_6(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_2_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_7(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_2_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_0(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_1(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_2(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_3(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_4(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_5(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_6(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_7(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_0(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_1(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_2(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_3(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_4(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_5(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_6(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_7(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_0(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_1(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_2(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_3(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_4(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_5(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_6(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_integer_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_7(loc_id,dset_name,rank,dims,type_id,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_integer_kind_16_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_1_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_1_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_1_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_1_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_1_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_1_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_1_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_1_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_1_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_1_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_1_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_1_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_1_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_1_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_1_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_1_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_1_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_1_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_1_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_1_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_1_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_1_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_1_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_1_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_2_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_2_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_2_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_2_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_2_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_2_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_2_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_2_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_2_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_2_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_2_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_2_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_2_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_2_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_2_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_2_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_2_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_2_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_2_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_2_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_2_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_2_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_2_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_2_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_4_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_4_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_4_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_4_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_4_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_4_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_4_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_4_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_8_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_8_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_8_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_8_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_8_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_8_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_8_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_8_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_16_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(IN), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_16_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_16_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_16_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_16_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_16_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_16_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltmake_dataset_int_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltmake_dataset_int_kind_16_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(IN) :: rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltmake_dataset_c(loc_id, namelen, dset_name, rank, dims, type_id, f_ptr) + END SUBROUTINE h5ltmake_dataset_int_kind_16_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_1_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_1_rank_0(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_1_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_1_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_1_rank_1(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_1_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_1_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_1_rank_2(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_1_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_1_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_1_rank_3(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_1_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_1_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_1_rank_4(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_1_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_1_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_1_rank_5(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_1_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_1_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_1_rank_6(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_1_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_1_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_1_rank_7(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_1_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_2_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_2_rank_0(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_2_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_2_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_2_rank_1(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_2_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_2_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_2_rank_2(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_2_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_2_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_2_rank_3(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_2_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_2_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_2_rank_4(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_2_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_2_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_2_rank_5(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_2_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_2_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_2_rank_6(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_2_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_2_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_2_rank_7(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_2_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_4_rank_0(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_4_rank_1(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_4_rank_2(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_4_rank_3(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_4_rank_4(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_4_rank_5(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_4_rank_6(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_4_rank_7(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_8_rank_0(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_8_rank_1(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_8_rank_2(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_8_rank_3(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_8_rank_4(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_8_rank_5(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_8_rank_6(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_8_rank_7(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_16_rank_0(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_16_rank_1(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_16_rank_2(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_16_rank_3(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_16_rank_4(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_16_rank_5(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_16_rank_6(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_integer_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_integer_kind_16_rank_7(loc_id,dset_name, type_id, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(hid_t), INTENT(in) :: type_id + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_integer_kind_16_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_1_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_1_rank_0(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_1_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_1_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_1_rank_1(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_1_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_1_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_1_rank_2(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_1_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_1_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_1_rank_3(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_1_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_1_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_1_rank_4(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_1_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_1_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_1_rank_5(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_1_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_1_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_1_rank_6(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_1_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_1_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_1_rank_7(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_1_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_2_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_2_rank_0(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_2_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_2_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_2_rank_1(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_2_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_2_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_2_rank_2(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_2_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_2_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_2_rank_3(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_2_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_2_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_2_rank_4(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_2_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_2_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_2_rank_5(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_2_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_2_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_2_rank_6(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_2_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_2_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_2_rank_7(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_2_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_4_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_4_rank_0(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_4_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_4_rank_1(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_4_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_4_rank_2(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_4_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_4_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_4_rank_3(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_4_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_4_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_4_rank_4(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_4_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_4_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_4_rank_5(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_4_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_4_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_4_rank_6(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_4_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_4_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_4_rank_7(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_4_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_8_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_8_rank_0(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_8_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_8_rank_1(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_8_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_8_rank_2(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_8_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_8_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_8_rank_3(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_8_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_8_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_8_rank_4(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_8_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_8_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_8_rank_5(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_8_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_8_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_8_rank_6(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_8_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_8_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_8_rank_7(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_8_rank_7 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_16_rank_0 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_16_rank_0(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(INOUT), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_16_rank_0 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_16_rank_1(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_16_rank_2 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_16_rank_2(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_16_rank_2 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_16_rank_3 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_16_rank_3(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_16_rank_3 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_16_rank_4 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_16_rank_4(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_16_rank_4 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_16_rank_5 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_16_rank_5(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_16_rank_5 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_16_rank_6 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_16_rank_6(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1) ) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1) ), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_16_rank_6 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5ltread_dataset_int_kind_16_rank_7 +!DEC$endif + SUBROUTINE h5ltread_dataset_int_kind_16_rank_7(loc_id,dset_name, buf,dims,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + INTEGER(size_t) :: namelen + INTEGER(hid_t) :: type_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + namelen = LEN(dset_name) + type_id = h5kind_to_type(KIND(buf(1,1,1,1,1,1,1)), H5_INTEGER_KIND) + errcode = h5ltread_dataset_c(loc_id, namelen, dset_name, type_id, f_ptr) + END SUBROUTINE h5ltread_dataset_int_kind_16_rank_7 +END MODULE H5LT diff --git a/config/toolchain/fortpregen/gfortran/H5TBff_gen.F90 b/config/toolchain/fortpregen/gfortran/H5TBff_gen.F90 new file mode 100644 index 00000000000..f650e53f637 --- /dev/null +++ b/config/toolchain/fortpregen/gfortran/H5TBff_gen.F90 @@ -0,0 +1,465 @@ +!****h* ROBODoc/H5TBff_gen.F90 +! +! NAME +! H5TBff_gen +! +! PURPOSE +! This module is generated at build by H5HL_buildiface.F90 to handle all the +! detected REAL/INTEGER KINDs for APIs being passed those KINDs. Currently these +! are H5LT and H5TB APIs +! +! COPYRIGHT +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! Copyright by The HDF Group. * +! All rights reserved. * +! * +! This file is part of HDF5. The full HDF5 copyright notice, including * +! terms governing use, modification, and redistribution, is contained in * +! the LICENSE file, which can be found at the root of the source code * +! distribution tree, or in https://www.hdfgroup.org/licenses. * +! If you do not have access to either file, you may request a copy from * +! help@hdfgroup.org. * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! +! AUTHOR +! H5HL_buildiface.F90 +! +!***** + +MODULE H5TB + USE, INTRINSIC :: ISO_C_BINDING + USE h5fortran_types + USE H5TB_CONST + IMPLICIT NONE + INTERFACE h5tbwrite_field_name_f + MODULE PROCEDURE h5tbwrite_field_name_kind_4_rank_1 + MODULE PROCEDURE h5tbwrite_field_name_kind_8_rank_1 + MODULE PROCEDURE h5tbwrite_field_name_kind_10_rank_1 + MODULE PROCEDURE h5tbwrite_field_name_kind_16_rank_1 + END INTERFACE + INTERFACE h5tbread_field_name_f + MODULE PROCEDURE h5tbread_field_name_kind_4_rank_1 + MODULE PROCEDURE h5tbread_field_name_kind_8_rank_1 + MODULE PROCEDURE h5tbread_field_name_kind_10_rank_1 + MODULE PROCEDURE h5tbread_field_name_kind_16_rank_1 + END INTERFACE + INTERFACE h5tbwrite_field_index_f + MODULE PROCEDURE h5tbwrite_field_index_kind_4_rank_1 + MODULE PROCEDURE h5tbwrite_field_index_kind_8_rank_1 + MODULE PROCEDURE h5tbwrite_field_index_kind_10_rank_1 + MODULE PROCEDURE h5tbwrite_field_index_kind_16_rank_1 + END INTERFACE + INTERFACE h5tbread_field_index_f + MODULE PROCEDURE h5tbread_field_index_kind_4_rank_1 + MODULE PROCEDURE h5tbread_field_index_kind_8_rank_1 + MODULE PROCEDURE h5tbread_field_index_kind_10_rank_1 + MODULE PROCEDURE h5tbread_field_index_kind_16_rank_1 + END INTERFACE + INTERFACE h5tbinsert_field_f + MODULE PROCEDURE h5tbinsert_field_kind_4_rank_1 + MODULE PROCEDURE h5tbinsert_field_kind_8_rank_1 + MODULE PROCEDURE h5tbinsert_field_kind_10_rank_1 + MODULE PROCEDURE h5tbinsert_field_kind_16_rank_1 + END INTERFACE +CONTAINS +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbwrite_field_name_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5tbwrite_field_name_kind_4_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=4),INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbwrite_field_name_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbwrite_field_name_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5tbwrite_field_name_kind_8_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=8),INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbwrite_field_name_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbwrite_field_name_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5tbwrite_field_name_kind_10_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=10),INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbwrite_field_name_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbwrite_field_name_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5tbwrite_field_name_kind_16_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=16),INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbwrite_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbwrite_field_name_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbread_field_name_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5tbread_field_name_kind_4_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=4),INTENT(INOUT), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbread_field_name_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbread_field_name_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5tbread_field_name_kind_8_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=8),INTENT(INOUT), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbread_field_name_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbread_field_name_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5tbread_field_name_kind_10_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=10),INTENT(INOUT), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbread_field_name_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbread_field_name_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5tbread_field_name_kind_16_rank_1(loc_id,dset_name,field_name,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=16),INTENT(INOUT), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbread_field_name_c(loc_id,namelen,dset_name,namelen1,field_name,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbread_field_name_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbwrite_field_index_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5tbwrite_field_index_kind_4_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(in) :: field_index + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=4),INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbwrite_field_index_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbwrite_field_index_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5tbwrite_field_index_kind_8_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(in) :: field_index + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=8),INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbwrite_field_index_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbwrite_field_index_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5tbwrite_field_index_kind_10_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(in) :: field_index + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=10),INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbwrite_field_index_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbwrite_field_index_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5tbwrite_field_index_kind_16_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(in) :: field_index + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=16),INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5tbwrite_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbwrite_field_index_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbread_field_index_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5tbread_field_index_kind_4_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(in) :: field_index + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=4),INTENT(INOUT), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbread_field_index_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbread_field_index_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5tbread_field_index_kind_8_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(in) :: field_index + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=8),INTENT(INOUT), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbread_field_index_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbread_field_index_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5tbread_field_index_kind_10_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(in) :: field_index + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=10),INTENT(INOUT), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbread_field_index_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbread_field_index_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5tbread_field_index_kind_16_rank_1(loc_id,dset_name,field_index,start, nrecords,type_size,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t) , INTENT(IN) :: loc_id + CHARACTER(LEN=*), INTENT(IN) :: dset_name + INTEGER, INTENT(in) :: field_index + INTEGER(hsize_t), INTENT(in) :: start + INTEGER(hsize_t), INTENT(in) :: nrecords + INTEGER(size_t), INTENT(in) :: type_size + REAL(KIND=16),INTENT(INOUT), DIMENSION(*), TARGET :: buf + INTEGER :: errcode + INTEGER(size_t) :: namelen + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + errcode = h5tbread_field_index_c(loc_id,namelen,dset_name,field_index,start,nrecords,type_size,f_ptr) + END SUBROUTINE h5tbread_field_index_kind_16_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbinsert_field_kind_4_rank_1 +!DEC$endif + SUBROUTINE h5tbinsert_field_kind_4_rank_1(loc_id,dset_name,field_name,field_type,field_index,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id + CHARACTER(LEN=*), INTENT(in) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hid_t), INTENT(in) :: field_type + INTEGER, INTENT(in) :: field_index + REAL(KIND=4), INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,field_type,field_index,f_ptr) + END SUBROUTINE h5tbinsert_field_kind_4_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbinsert_field_kind_8_rank_1 +!DEC$endif + SUBROUTINE h5tbinsert_field_kind_8_rank_1(loc_id,dset_name,field_name,field_type,field_index,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id + CHARACTER(LEN=*), INTENT(in) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hid_t), INTENT(in) :: field_type + INTEGER, INTENT(in) :: field_index + REAL(KIND=8), INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,field_type,field_index,f_ptr) + END SUBROUTINE h5tbinsert_field_kind_8_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbinsert_field_kind_10_rank_1 +!DEC$endif + SUBROUTINE h5tbinsert_field_kind_10_rank_1(loc_id,dset_name,field_name,field_type,field_index,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id + CHARACTER(LEN=*), INTENT(in) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hid_t), INTENT(in) :: field_type + INTEGER, INTENT(in) :: field_index + REAL(KIND=10), INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,field_type,field_index,f_ptr) + END SUBROUTINE h5tbinsert_field_kind_10_rank_1 +!DEC$if defined(BUILD_HDF5_HL_DLL) +!DEC$attributes dllexport :: h5tbinsert_field_kind_16_rank_1 +!DEC$endif + SUBROUTINE h5tbinsert_field_kind_16_rank_1(loc_id,dset_name,field_name,field_type,field_index,buf,errcode) + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id + CHARACTER(LEN=*), INTENT(in) :: dset_name + CHARACTER(LEN=*), INTENT(in) :: field_name + INTEGER(hid_t), INTENT(in) :: field_type + INTEGER, INTENT(in) :: field_index + REAL(KIND=16), INTENT(IN), DIMENSION(*), TARGET :: buf + INTEGER(size_t) :: namelen + INTEGER(size_t) :: namelen1 + INTEGER :: errcode + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1) ) + namelen = LEN(dset_name) + namelen1 = LEN(field_name) + errcode = h5tbinsert_field_c(loc_id,namelen,dset_name,namelen1,field_name,field_type,field_index,f_ptr) + END SUBROUTINE h5tbinsert_field_kind_16_rank_1 +END MODULE H5TB diff --git a/config/toolchain/fortpregen/gfortran/H5_gen.F90 b/config/toolchain/fortpregen/gfortran/H5_gen.F90 new file mode 100644 index 00000000000..e090fc755e3 --- /dev/null +++ b/config/toolchain/fortpregen/gfortran/H5_gen.F90 @@ -0,0 +1,7725 @@ +!****h* ROBODoc/H5_gen.F90 +! +! NAME +! H5_gen +! +! PURPOSE +! This module is generated at build by H5_buildiface.F90 to handle all the +! detected KINDs for APIs being passed INTEGERs, REALs and CHARACTERs. Currently +! these are H5A, H5D and H5P APIs +! +! COPYRIGHT +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! Copyright by The HDF Group. * +! All rights reserved. * +! * +! This file is part of HDF5. The full HDF5 copyright notice, including * +! terms governing use, modification, and redistribution, is contained in * +! the LICENSE file, which can be found at the root of the source code * +! distribution tree, or in https://www.hdfgroup.org/licenses. * +! If you do not have access to either file, you may request a copy from * +! help@hdfgroup.org. * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! +! AUTHOR +! H5_buildiface.F90 +! +!***** + +MODULE H5_GEN + USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR, C_LOC + USE H5GLOBAL + USE H5A + USE H5D + USE H5P + IMPLICIT NONE + PRIVATE h5awrite_rkind_4_rank_0 + PRIVATE h5awrite_rkind_4_rank_1 + PRIVATE h5awrite_rkind_4_rank_2 + PRIVATE h5awrite_rkind_4_rank_3 + PRIVATE h5awrite_rkind_4_rank_4 + PRIVATE h5awrite_rkind_4_rank_5 + PRIVATE h5awrite_rkind_4_rank_6 + PRIVATE h5awrite_rkind_4_rank_7 + PRIVATE h5awrite_rkind_8_rank_0 + PRIVATE h5awrite_rkind_8_rank_1 + PRIVATE h5awrite_rkind_8_rank_2 + PRIVATE h5awrite_rkind_8_rank_3 + PRIVATE h5awrite_rkind_8_rank_4 + PRIVATE h5awrite_rkind_8_rank_5 + PRIVATE h5awrite_rkind_8_rank_6 + PRIVATE h5awrite_rkind_8_rank_7 + PRIVATE h5awrite_rkind_10_rank_0 + PRIVATE h5awrite_rkind_10_rank_1 + PRIVATE h5awrite_rkind_10_rank_2 + PRIVATE h5awrite_rkind_10_rank_3 + PRIVATE h5awrite_rkind_10_rank_4 + PRIVATE h5awrite_rkind_10_rank_5 + PRIVATE h5awrite_rkind_10_rank_6 + PRIVATE h5awrite_rkind_10_rank_7 + PRIVATE h5awrite_rkind_16_rank_0 + PRIVATE h5awrite_rkind_16_rank_1 + PRIVATE h5awrite_rkind_16_rank_2 + PRIVATE h5awrite_rkind_16_rank_3 + PRIVATE h5awrite_rkind_16_rank_4 + PRIVATE h5awrite_rkind_16_rank_5 + PRIVATE h5awrite_rkind_16_rank_6 + PRIVATE h5awrite_rkind_16_rank_7 + PRIVATE h5awrite_ikind_1_rank_0 + PRIVATE h5awrite_ikind_1_rank_1 + PRIVATE h5awrite_ikind_1_rank_2 + PRIVATE h5awrite_ikind_1_rank_3 + PRIVATE h5awrite_ikind_1_rank_4 + PRIVATE h5awrite_ikind_1_rank_5 + PRIVATE h5awrite_ikind_1_rank_6 + PRIVATE h5awrite_ikind_1_rank_7 + PRIVATE h5awrite_ikind_2_rank_0 + PRIVATE h5awrite_ikind_2_rank_1 + PRIVATE h5awrite_ikind_2_rank_2 + PRIVATE h5awrite_ikind_2_rank_3 + PRIVATE h5awrite_ikind_2_rank_4 + PRIVATE h5awrite_ikind_2_rank_5 + PRIVATE h5awrite_ikind_2_rank_6 + PRIVATE h5awrite_ikind_2_rank_7 + PRIVATE h5awrite_ikind_4_rank_0 + PRIVATE h5awrite_ikind_4_rank_1 + PRIVATE h5awrite_ikind_4_rank_2 + PRIVATE h5awrite_ikind_4_rank_3 + PRIVATE h5awrite_ikind_4_rank_4 + PRIVATE h5awrite_ikind_4_rank_5 + PRIVATE h5awrite_ikind_4_rank_6 + PRIVATE h5awrite_ikind_4_rank_7 + PRIVATE h5awrite_ikind_8_rank_0 + PRIVATE h5awrite_ikind_8_rank_1 + PRIVATE h5awrite_ikind_8_rank_2 + PRIVATE h5awrite_ikind_8_rank_3 + PRIVATE h5awrite_ikind_8_rank_4 + PRIVATE h5awrite_ikind_8_rank_5 + PRIVATE h5awrite_ikind_8_rank_6 + PRIVATE h5awrite_ikind_8_rank_7 + PRIVATE h5awrite_ikind_16_rank_0 + PRIVATE h5awrite_ikind_16_rank_1 + PRIVATE h5awrite_ikind_16_rank_2 + PRIVATE h5awrite_ikind_16_rank_3 + PRIVATE h5awrite_ikind_16_rank_4 + PRIVATE h5awrite_ikind_16_rank_5 + PRIVATE h5awrite_ikind_16_rank_6 + PRIVATE h5awrite_ikind_16_rank_7 + PRIVATE h5awrite_ckind_rank_1 + PRIVATE h5awrite_ckind_rank_2 + PRIVATE h5awrite_ckind_rank_3 + PRIVATE h5awrite_ckind_rank_4 + PRIVATE h5awrite_ckind_rank_5 + PRIVATE h5awrite_ckind_rank_6 + PRIVATE h5awrite_ckind_rank_7 + PRIVATE h5aread_rkind_4_rank_0 + PRIVATE h5aread_rkind_4_rank_1 + PRIVATE h5aread_rkind_4_rank_2 + PRIVATE h5aread_rkind_4_rank_3 + PRIVATE h5aread_rkind_4_rank_4 + PRIVATE h5aread_rkind_4_rank_5 + PRIVATE h5aread_rkind_4_rank_6 + PRIVATE h5aread_rkind_4_rank_7 + PRIVATE h5aread_rkind_8_rank_0 + PRIVATE h5aread_rkind_8_rank_1 + PRIVATE h5aread_rkind_8_rank_2 + PRIVATE h5aread_rkind_8_rank_3 + PRIVATE h5aread_rkind_8_rank_4 + PRIVATE h5aread_rkind_8_rank_5 + PRIVATE h5aread_rkind_8_rank_6 + PRIVATE h5aread_rkind_8_rank_7 + PRIVATE h5aread_rkind_10_rank_0 + PRIVATE h5aread_rkind_10_rank_1 + PRIVATE h5aread_rkind_10_rank_2 + PRIVATE h5aread_rkind_10_rank_3 + PRIVATE h5aread_rkind_10_rank_4 + PRIVATE h5aread_rkind_10_rank_5 + PRIVATE h5aread_rkind_10_rank_6 + PRIVATE h5aread_rkind_10_rank_7 + PRIVATE h5aread_rkind_16_rank_0 + PRIVATE h5aread_rkind_16_rank_1 + PRIVATE h5aread_rkind_16_rank_2 + PRIVATE h5aread_rkind_16_rank_3 + PRIVATE h5aread_rkind_16_rank_4 + PRIVATE h5aread_rkind_16_rank_5 + PRIVATE h5aread_rkind_16_rank_6 + PRIVATE h5aread_rkind_16_rank_7 + PRIVATE h5aread_ikind_1_rank_0 + PRIVATE h5aread_ikind_1_rank_1 + PRIVATE h5aread_ikind_1_rank_2 + PRIVATE h5aread_ikind_1_rank_3 + PRIVATE h5aread_ikind_1_rank_4 + PRIVATE h5aread_ikind_1_rank_5 + PRIVATE h5aread_ikind_1_rank_6 + PRIVATE h5aread_ikind_1_rank_7 + PRIVATE h5aread_ikind_2_rank_0 + PRIVATE h5aread_ikind_2_rank_1 + PRIVATE h5aread_ikind_2_rank_2 + PRIVATE h5aread_ikind_2_rank_3 + PRIVATE h5aread_ikind_2_rank_4 + PRIVATE h5aread_ikind_2_rank_5 + PRIVATE h5aread_ikind_2_rank_6 + PRIVATE h5aread_ikind_2_rank_7 + PRIVATE h5aread_ikind_4_rank_0 + PRIVATE h5aread_ikind_4_rank_1 + PRIVATE h5aread_ikind_4_rank_2 + PRIVATE h5aread_ikind_4_rank_3 + PRIVATE h5aread_ikind_4_rank_4 + PRIVATE h5aread_ikind_4_rank_5 + PRIVATE h5aread_ikind_4_rank_6 + PRIVATE h5aread_ikind_4_rank_7 + PRIVATE h5aread_ikind_8_rank_0 + PRIVATE h5aread_ikind_8_rank_1 + PRIVATE h5aread_ikind_8_rank_2 + PRIVATE h5aread_ikind_8_rank_3 + PRIVATE h5aread_ikind_8_rank_4 + PRIVATE h5aread_ikind_8_rank_5 + PRIVATE h5aread_ikind_8_rank_6 + PRIVATE h5aread_ikind_8_rank_7 + PRIVATE h5aread_ikind_16_rank_0 + PRIVATE h5aread_ikind_16_rank_1 + PRIVATE h5aread_ikind_16_rank_2 + PRIVATE h5aread_ikind_16_rank_3 + PRIVATE h5aread_ikind_16_rank_4 + PRIVATE h5aread_ikind_16_rank_5 + PRIVATE h5aread_ikind_16_rank_6 + PRIVATE h5aread_ikind_16_rank_7 + PRIVATE h5aread_ckind_rank_1 + PRIVATE h5aread_ckind_rank_2 + PRIVATE h5aread_ckind_rank_3 + PRIVATE h5aread_ckind_rank_4 + PRIVATE h5aread_ckind_rank_5 + PRIVATE h5aread_ckind_rank_6 + PRIVATE h5aread_ckind_rank_7 + PRIVATE h5dwrite_rkind_4_rank_0 + PRIVATE h5dwrite_rkind_4_rank_1 + PRIVATE h5dwrite_rkind_4_rank_2 + PRIVATE h5dwrite_rkind_4_rank_3 + PRIVATE h5dwrite_rkind_4_rank_4 + PRIVATE h5dwrite_rkind_4_rank_5 + PRIVATE h5dwrite_rkind_4_rank_6 + PRIVATE h5dwrite_rkind_4_rank_7 + PRIVATE h5dwrite_rkind_8_rank_0 + PRIVATE h5dwrite_rkind_8_rank_1 + PRIVATE h5dwrite_rkind_8_rank_2 + PRIVATE h5dwrite_rkind_8_rank_3 + PRIVATE h5dwrite_rkind_8_rank_4 + PRIVATE h5dwrite_rkind_8_rank_5 + PRIVATE h5dwrite_rkind_8_rank_6 + PRIVATE h5dwrite_rkind_8_rank_7 + PRIVATE h5dwrite_rkind_10_rank_0 + PRIVATE h5dwrite_rkind_10_rank_1 + PRIVATE h5dwrite_rkind_10_rank_2 + PRIVATE h5dwrite_rkind_10_rank_3 + PRIVATE h5dwrite_rkind_10_rank_4 + PRIVATE h5dwrite_rkind_10_rank_5 + PRIVATE h5dwrite_rkind_10_rank_6 + PRIVATE h5dwrite_rkind_10_rank_7 + PRIVATE h5dwrite_rkind_16_rank_0 + PRIVATE h5dwrite_rkind_16_rank_1 + PRIVATE h5dwrite_rkind_16_rank_2 + PRIVATE h5dwrite_rkind_16_rank_3 + PRIVATE h5dwrite_rkind_16_rank_4 + PRIVATE h5dwrite_rkind_16_rank_5 + PRIVATE h5dwrite_rkind_16_rank_6 + PRIVATE h5dwrite_rkind_16_rank_7 + PRIVATE h5dwrite_ikind_1_rank_0 + PRIVATE h5dwrite_ikind_1_rank_1 + PRIVATE h5dwrite_ikind_1_rank_2 + PRIVATE h5dwrite_ikind_1_rank_3 + PRIVATE h5dwrite_ikind_1_rank_4 + PRIVATE h5dwrite_ikind_1_rank_5 + PRIVATE h5dwrite_ikind_1_rank_6 + PRIVATE h5dwrite_ikind_1_rank_7 + PRIVATE h5dwrite_ikind_2_rank_0 + PRIVATE h5dwrite_ikind_2_rank_1 + PRIVATE h5dwrite_ikind_2_rank_2 + PRIVATE h5dwrite_ikind_2_rank_3 + PRIVATE h5dwrite_ikind_2_rank_4 + PRIVATE h5dwrite_ikind_2_rank_5 + PRIVATE h5dwrite_ikind_2_rank_6 + PRIVATE h5dwrite_ikind_2_rank_7 + PRIVATE h5dwrite_ikind_4_rank_0 + PRIVATE h5dwrite_ikind_4_rank_1 + PRIVATE h5dwrite_ikind_4_rank_2 + PRIVATE h5dwrite_ikind_4_rank_3 + PRIVATE h5dwrite_ikind_4_rank_4 + PRIVATE h5dwrite_ikind_4_rank_5 + PRIVATE h5dwrite_ikind_4_rank_6 + PRIVATE h5dwrite_ikind_4_rank_7 + PRIVATE h5dwrite_ikind_8_rank_0 + PRIVATE h5dwrite_ikind_8_rank_1 + PRIVATE h5dwrite_ikind_8_rank_2 + PRIVATE h5dwrite_ikind_8_rank_3 + PRIVATE h5dwrite_ikind_8_rank_4 + PRIVATE h5dwrite_ikind_8_rank_5 + PRIVATE h5dwrite_ikind_8_rank_6 + PRIVATE h5dwrite_ikind_8_rank_7 + PRIVATE h5dwrite_ikind_16_rank_0 + PRIVATE h5dwrite_ikind_16_rank_1 + PRIVATE h5dwrite_ikind_16_rank_2 + PRIVATE h5dwrite_ikind_16_rank_3 + PRIVATE h5dwrite_ikind_16_rank_4 + PRIVATE h5dwrite_ikind_16_rank_5 + PRIVATE h5dwrite_ikind_16_rank_6 + PRIVATE h5dwrite_ikind_16_rank_7 + PRIVATE h5dwrite_ckind_rank_1 + PRIVATE h5dwrite_ckind_rank_2 + PRIVATE h5dwrite_ckind_rank_3 + PRIVATE h5dwrite_ckind_rank_4 + PRIVATE h5dwrite_ckind_rank_5 + PRIVATE h5dwrite_ckind_rank_6 + PRIVATE h5dwrite_ckind_rank_7 + PRIVATE h5dread_rkind_4_rank_0 + PRIVATE h5dread_rkind_4_rank_1 + PRIVATE h5dread_rkind_4_rank_2 + PRIVATE h5dread_rkind_4_rank_3 + PRIVATE h5dread_rkind_4_rank_4 + PRIVATE h5dread_rkind_4_rank_5 + PRIVATE h5dread_rkind_4_rank_6 + PRIVATE h5dread_rkind_4_rank_7 + PRIVATE h5dread_rkind_8_rank_0 + PRIVATE h5dread_rkind_8_rank_1 + PRIVATE h5dread_rkind_8_rank_2 + PRIVATE h5dread_rkind_8_rank_3 + PRIVATE h5dread_rkind_8_rank_4 + PRIVATE h5dread_rkind_8_rank_5 + PRIVATE h5dread_rkind_8_rank_6 + PRIVATE h5dread_rkind_8_rank_7 + PRIVATE h5dread_rkind_10_rank_0 + PRIVATE h5dread_rkind_10_rank_1 + PRIVATE h5dread_rkind_10_rank_2 + PRIVATE h5dread_rkind_10_rank_3 + PRIVATE h5dread_rkind_10_rank_4 + PRIVATE h5dread_rkind_10_rank_5 + PRIVATE h5dread_rkind_10_rank_6 + PRIVATE h5dread_rkind_10_rank_7 + PRIVATE h5dread_rkind_16_rank_0 + PRIVATE h5dread_rkind_16_rank_1 + PRIVATE h5dread_rkind_16_rank_2 + PRIVATE h5dread_rkind_16_rank_3 + PRIVATE h5dread_rkind_16_rank_4 + PRIVATE h5dread_rkind_16_rank_5 + PRIVATE h5dread_rkind_16_rank_6 + PRIVATE h5dread_rkind_16_rank_7 + PRIVATE h5dread_ikind_1_rank_0 + PRIVATE h5dread_ikind_1_rank_1 + PRIVATE h5dread_ikind_1_rank_2 + PRIVATE h5dread_ikind_1_rank_3 + PRIVATE h5dread_ikind_1_rank_4 + PRIVATE h5dread_ikind_1_rank_5 + PRIVATE h5dread_ikind_1_rank_6 + PRIVATE h5dread_ikind_1_rank_7 + PRIVATE h5dread_ikind_2_rank_0 + PRIVATE h5dread_ikind_2_rank_1 + PRIVATE h5dread_ikind_2_rank_2 + PRIVATE h5dread_ikind_2_rank_3 + PRIVATE h5dread_ikind_2_rank_4 + PRIVATE h5dread_ikind_2_rank_5 + PRIVATE h5dread_ikind_2_rank_6 + PRIVATE h5dread_ikind_2_rank_7 + PRIVATE h5dread_ikind_4_rank_0 + PRIVATE h5dread_ikind_4_rank_1 + PRIVATE h5dread_ikind_4_rank_2 + PRIVATE h5dread_ikind_4_rank_3 + PRIVATE h5dread_ikind_4_rank_4 + PRIVATE h5dread_ikind_4_rank_5 + PRIVATE h5dread_ikind_4_rank_6 + PRIVATE h5dread_ikind_4_rank_7 + PRIVATE h5dread_ikind_8_rank_0 + PRIVATE h5dread_ikind_8_rank_1 + PRIVATE h5dread_ikind_8_rank_2 + PRIVATE h5dread_ikind_8_rank_3 + PRIVATE h5dread_ikind_8_rank_4 + PRIVATE h5dread_ikind_8_rank_5 + PRIVATE h5dread_ikind_8_rank_6 + PRIVATE h5dread_ikind_8_rank_7 + PRIVATE h5dread_ikind_16_rank_0 + PRIVATE h5dread_ikind_16_rank_1 + PRIVATE h5dread_ikind_16_rank_2 + PRIVATE h5dread_ikind_16_rank_3 + PRIVATE h5dread_ikind_16_rank_4 + PRIVATE h5dread_ikind_16_rank_5 + PRIVATE h5dread_ikind_16_rank_6 + PRIVATE h5dread_ikind_16_rank_7 + PRIVATE h5dread_ckind_rank_1 + PRIVATE h5dread_ckind_rank_2 + PRIVATE h5dread_ckind_rank_3 + PRIVATE h5dread_ckind_rank_4 + PRIVATE h5dread_ckind_rank_5 + PRIVATE h5dread_ckind_rank_6 + PRIVATE h5dread_ckind_rank_7 + PRIVATE h5pset_fill_value_kind_4 + PRIVATE h5pset_fill_value_kind_8 + PRIVATE h5pset_fill_value_kind_10 + PRIVATE h5pset_fill_value_kind_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_10 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_10 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_10 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_10 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + PRIVATE h5pinsert_kind_10 + PRIVATE h5pinsert_kind_16 + INTERFACE h5awrite_f + MODULE PROCEDURE h5awrite_rkind_4_rank_0 + MODULE PROCEDURE h5awrite_rkind_4_rank_1 + MODULE PROCEDURE h5awrite_rkind_4_rank_2 + MODULE PROCEDURE h5awrite_rkind_4_rank_3 + MODULE PROCEDURE h5awrite_rkind_4_rank_4 + MODULE PROCEDURE h5awrite_rkind_4_rank_5 + MODULE PROCEDURE h5awrite_rkind_4_rank_6 + MODULE PROCEDURE h5awrite_rkind_4_rank_7 + MODULE PROCEDURE h5awrite_rkind_8_rank_0 + MODULE PROCEDURE h5awrite_rkind_8_rank_1 + MODULE PROCEDURE h5awrite_rkind_8_rank_2 + MODULE PROCEDURE h5awrite_rkind_8_rank_3 + MODULE PROCEDURE h5awrite_rkind_8_rank_4 + MODULE PROCEDURE h5awrite_rkind_8_rank_5 + MODULE PROCEDURE h5awrite_rkind_8_rank_6 + MODULE PROCEDURE h5awrite_rkind_8_rank_7 + MODULE PROCEDURE h5awrite_rkind_10_rank_0 + MODULE PROCEDURE h5awrite_rkind_10_rank_1 + MODULE PROCEDURE h5awrite_rkind_10_rank_2 + MODULE PROCEDURE h5awrite_rkind_10_rank_3 + MODULE PROCEDURE h5awrite_rkind_10_rank_4 + MODULE PROCEDURE h5awrite_rkind_10_rank_5 + MODULE PROCEDURE h5awrite_rkind_10_rank_6 + MODULE PROCEDURE h5awrite_rkind_10_rank_7 + MODULE PROCEDURE h5awrite_rkind_16_rank_0 + MODULE PROCEDURE h5awrite_rkind_16_rank_1 + MODULE PROCEDURE h5awrite_rkind_16_rank_2 + MODULE PROCEDURE h5awrite_rkind_16_rank_3 + MODULE PROCEDURE h5awrite_rkind_16_rank_4 + MODULE PROCEDURE h5awrite_rkind_16_rank_5 + MODULE PROCEDURE h5awrite_rkind_16_rank_6 + MODULE PROCEDURE h5awrite_rkind_16_rank_7 + MODULE PROCEDURE h5awrite_ikind_1_rank_0 + MODULE PROCEDURE h5awrite_ikind_1_rank_1 + MODULE PROCEDURE h5awrite_ikind_1_rank_2 + MODULE PROCEDURE h5awrite_ikind_1_rank_3 + MODULE PROCEDURE h5awrite_ikind_1_rank_4 + MODULE PROCEDURE h5awrite_ikind_1_rank_5 + MODULE PROCEDURE h5awrite_ikind_1_rank_6 + MODULE PROCEDURE h5awrite_ikind_1_rank_7 + MODULE PROCEDURE h5awrite_ikind_2_rank_0 + MODULE PROCEDURE h5awrite_ikind_2_rank_1 + MODULE PROCEDURE h5awrite_ikind_2_rank_2 + MODULE PROCEDURE h5awrite_ikind_2_rank_3 + MODULE PROCEDURE h5awrite_ikind_2_rank_4 + MODULE PROCEDURE h5awrite_ikind_2_rank_5 + MODULE PROCEDURE h5awrite_ikind_2_rank_6 + MODULE PROCEDURE h5awrite_ikind_2_rank_7 + MODULE PROCEDURE h5awrite_ikind_4_rank_0 + MODULE PROCEDURE h5awrite_ikind_4_rank_1 + MODULE PROCEDURE h5awrite_ikind_4_rank_2 + MODULE PROCEDURE h5awrite_ikind_4_rank_3 + MODULE PROCEDURE h5awrite_ikind_4_rank_4 + MODULE PROCEDURE h5awrite_ikind_4_rank_5 + MODULE PROCEDURE h5awrite_ikind_4_rank_6 + MODULE PROCEDURE h5awrite_ikind_4_rank_7 + MODULE PROCEDURE h5awrite_ikind_8_rank_0 + MODULE PROCEDURE h5awrite_ikind_8_rank_1 + MODULE PROCEDURE h5awrite_ikind_8_rank_2 + MODULE PROCEDURE h5awrite_ikind_8_rank_3 + MODULE PROCEDURE h5awrite_ikind_8_rank_4 + MODULE PROCEDURE h5awrite_ikind_8_rank_5 + MODULE PROCEDURE h5awrite_ikind_8_rank_6 + MODULE PROCEDURE h5awrite_ikind_8_rank_7 + MODULE PROCEDURE h5awrite_ikind_16_rank_0 + MODULE PROCEDURE h5awrite_ikind_16_rank_1 + MODULE PROCEDURE h5awrite_ikind_16_rank_2 + MODULE PROCEDURE h5awrite_ikind_16_rank_3 + MODULE PROCEDURE h5awrite_ikind_16_rank_4 + MODULE PROCEDURE h5awrite_ikind_16_rank_5 + MODULE PROCEDURE h5awrite_ikind_16_rank_6 + MODULE PROCEDURE h5awrite_ikind_16_rank_7 + MODULE PROCEDURE h5awrite_ckind_rank_1 + MODULE PROCEDURE h5awrite_ckind_rank_2 + MODULE PROCEDURE h5awrite_ckind_rank_3 + MODULE PROCEDURE h5awrite_ckind_rank_4 + MODULE PROCEDURE h5awrite_ckind_rank_5 + MODULE PROCEDURE h5awrite_ckind_rank_6 + MODULE PROCEDURE h5awrite_ckind_rank_7 + END INTERFACE + INTERFACE h5aread_f + MODULE PROCEDURE h5aread_rkind_4_rank_0 + MODULE PROCEDURE h5aread_rkind_4_rank_1 + MODULE PROCEDURE h5aread_rkind_4_rank_2 + MODULE PROCEDURE h5aread_rkind_4_rank_3 + MODULE PROCEDURE h5aread_rkind_4_rank_4 + MODULE PROCEDURE h5aread_rkind_4_rank_5 + MODULE PROCEDURE h5aread_rkind_4_rank_6 + MODULE PROCEDURE h5aread_rkind_4_rank_7 + MODULE PROCEDURE h5aread_rkind_8_rank_0 + MODULE PROCEDURE h5aread_rkind_8_rank_1 + MODULE PROCEDURE h5aread_rkind_8_rank_2 + MODULE PROCEDURE h5aread_rkind_8_rank_3 + MODULE PROCEDURE h5aread_rkind_8_rank_4 + MODULE PROCEDURE h5aread_rkind_8_rank_5 + MODULE PROCEDURE h5aread_rkind_8_rank_6 + MODULE PROCEDURE h5aread_rkind_8_rank_7 + MODULE PROCEDURE h5aread_rkind_10_rank_0 + MODULE PROCEDURE h5aread_rkind_10_rank_1 + MODULE PROCEDURE h5aread_rkind_10_rank_2 + MODULE PROCEDURE h5aread_rkind_10_rank_3 + MODULE PROCEDURE h5aread_rkind_10_rank_4 + MODULE PROCEDURE h5aread_rkind_10_rank_5 + MODULE PROCEDURE h5aread_rkind_10_rank_6 + MODULE PROCEDURE h5aread_rkind_10_rank_7 + MODULE PROCEDURE h5aread_rkind_16_rank_0 + MODULE PROCEDURE h5aread_rkind_16_rank_1 + MODULE PROCEDURE h5aread_rkind_16_rank_2 + MODULE PROCEDURE h5aread_rkind_16_rank_3 + MODULE PROCEDURE h5aread_rkind_16_rank_4 + MODULE PROCEDURE h5aread_rkind_16_rank_5 + MODULE PROCEDURE h5aread_rkind_16_rank_6 + MODULE PROCEDURE h5aread_rkind_16_rank_7 + MODULE PROCEDURE h5aread_ikind_1_rank_0 + MODULE PROCEDURE h5aread_ikind_1_rank_1 + MODULE PROCEDURE h5aread_ikind_1_rank_2 + MODULE PROCEDURE h5aread_ikind_1_rank_3 + MODULE PROCEDURE h5aread_ikind_1_rank_4 + MODULE PROCEDURE h5aread_ikind_1_rank_5 + MODULE PROCEDURE h5aread_ikind_1_rank_6 + MODULE PROCEDURE h5aread_ikind_1_rank_7 + MODULE PROCEDURE h5aread_ikind_2_rank_0 + MODULE PROCEDURE h5aread_ikind_2_rank_1 + MODULE PROCEDURE h5aread_ikind_2_rank_2 + MODULE PROCEDURE h5aread_ikind_2_rank_3 + MODULE PROCEDURE h5aread_ikind_2_rank_4 + MODULE PROCEDURE h5aread_ikind_2_rank_5 + MODULE PROCEDURE h5aread_ikind_2_rank_6 + MODULE PROCEDURE h5aread_ikind_2_rank_7 + MODULE PROCEDURE h5aread_ikind_4_rank_0 + MODULE PROCEDURE h5aread_ikind_4_rank_1 + MODULE PROCEDURE h5aread_ikind_4_rank_2 + MODULE PROCEDURE h5aread_ikind_4_rank_3 + MODULE PROCEDURE h5aread_ikind_4_rank_4 + MODULE PROCEDURE h5aread_ikind_4_rank_5 + MODULE PROCEDURE h5aread_ikind_4_rank_6 + MODULE PROCEDURE h5aread_ikind_4_rank_7 + MODULE PROCEDURE h5aread_ikind_8_rank_0 + MODULE PROCEDURE h5aread_ikind_8_rank_1 + MODULE PROCEDURE h5aread_ikind_8_rank_2 + MODULE PROCEDURE h5aread_ikind_8_rank_3 + MODULE PROCEDURE h5aread_ikind_8_rank_4 + MODULE PROCEDURE h5aread_ikind_8_rank_5 + MODULE PROCEDURE h5aread_ikind_8_rank_6 + MODULE PROCEDURE h5aread_ikind_8_rank_7 + MODULE PROCEDURE h5aread_ikind_16_rank_0 + MODULE PROCEDURE h5aread_ikind_16_rank_1 + MODULE PROCEDURE h5aread_ikind_16_rank_2 + MODULE PROCEDURE h5aread_ikind_16_rank_3 + MODULE PROCEDURE h5aread_ikind_16_rank_4 + MODULE PROCEDURE h5aread_ikind_16_rank_5 + MODULE PROCEDURE h5aread_ikind_16_rank_6 + MODULE PROCEDURE h5aread_ikind_16_rank_7 + MODULE PROCEDURE h5aread_ckind_rank_1 + MODULE PROCEDURE h5aread_ckind_rank_2 + MODULE PROCEDURE h5aread_ckind_rank_3 + MODULE PROCEDURE h5aread_ckind_rank_4 + MODULE PROCEDURE h5aread_ckind_rank_5 + MODULE PROCEDURE h5aread_ckind_rank_6 + MODULE PROCEDURE h5aread_ckind_rank_7 + END INTERFACE + INTERFACE h5dwrite_f + MODULE PROCEDURE h5dwrite_rkind_4_rank_0 + MODULE PROCEDURE h5dwrite_rkind_4_rank_1 + MODULE PROCEDURE h5dwrite_rkind_4_rank_2 + MODULE PROCEDURE h5dwrite_rkind_4_rank_3 + MODULE PROCEDURE h5dwrite_rkind_4_rank_4 + MODULE PROCEDURE h5dwrite_rkind_4_rank_5 + MODULE PROCEDURE h5dwrite_rkind_4_rank_6 + MODULE PROCEDURE h5dwrite_rkind_4_rank_7 + MODULE PROCEDURE h5dwrite_rkind_8_rank_0 + MODULE PROCEDURE h5dwrite_rkind_8_rank_1 + MODULE PROCEDURE h5dwrite_rkind_8_rank_2 + MODULE PROCEDURE h5dwrite_rkind_8_rank_3 + MODULE PROCEDURE h5dwrite_rkind_8_rank_4 + MODULE PROCEDURE h5dwrite_rkind_8_rank_5 + MODULE PROCEDURE h5dwrite_rkind_8_rank_6 + MODULE PROCEDURE h5dwrite_rkind_8_rank_7 + MODULE PROCEDURE h5dwrite_rkind_10_rank_0 + MODULE PROCEDURE h5dwrite_rkind_10_rank_1 + MODULE PROCEDURE h5dwrite_rkind_10_rank_2 + MODULE PROCEDURE h5dwrite_rkind_10_rank_3 + MODULE PROCEDURE h5dwrite_rkind_10_rank_4 + MODULE PROCEDURE h5dwrite_rkind_10_rank_5 + MODULE PROCEDURE h5dwrite_rkind_10_rank_6 + MODULE PROCEDURE h5dwrite_rkind_10_rank_7 + MODULE PROCEDURE h5dwrite_rkind_16_rank_0 + MODULE PROCEDURE h5dwrite_rkind_16_rank_1 + MODULE PROCEDURE h5dwrite_rkind_16_rank_2 + MODULE PROCEDURE h5dwrite_rkind_16_rank_3 + MODULE PROCEDURE h5dwrite_rkind_16_rank_4 + MODULE PROCEDURE h5dwrite_rkind_16_rank_5 + MODULE PROCEDURE h5dwrite_rkind_16_rank_6 + MODULE PROCEDURE h5dwrite_rkind_16_rank_7 + MODULE PROCEDURE h5dwrite_ikind_1_rank_0 + MODULE PROCEDURE h5dwrite_ikind_1_rank_1 + MODULE PROCEDURE h5dwrite_ikind_1_rank_2 + MODULE PROCEDURE h5dwrite_ikind_1_rank_3 + MODULE PROCEDURE h5dwrite_ikind_1_rank_4 + MODULE PROCEDURE h5dwrite_ikind_1_rank_5 + MODULE PROCEDURE h5dwrite_ikind_1_rank_6 + MODULE PROCEDURE h5dwrite_ikind_1_rank_7 + MODULE PROCEDURE h5dwrite_ikind_2_rank_0 + MODULE PROCEDURE h5dwrite_ikind_2_rank_1 + MODULE PROCEDURE h5dwrite_ikind_2_rank_2 + MODULE PROCEDURE h5dwrite_ikind_2_rank_3 + MODULE PROCEDURE h5dwrite_ikind_2_rank_4 + MODULE PROCEDURE h5dwrite_ikind_2_rank_5 + MODULE PROCEDURE h5dwrite_ikind_2_rank_6 + MODULE PROCEDURE h5dwrite_ikind_2_rank_7 + MODULE PROCEDURE h5dwrite_ikind_4_rank_0 + MODULE PROCEDURE h5dwrite_ikind_4_rank_1 + MODULE PROCEDURE h5dwrite_ikind_4_rank_2 + MODULE PROCEDURE h5dwrite_ikind_4_rank_3 + MODULE PROCEDURE h5dwrite_ikind_4_rank_4 + MODULE PROCEDURE h5dwrite_ikind_4_rank_5 + MODULE PROCEDURE h5dwrite_ikind_4_rank_6 + MODULE PROCEDURE h5dwrite_ikind_4_rank_7 + MODULE PROCEDURE h5dwrite_ikind_8_rank_0 + MODULE PROCEDURE h5dwrite_ikind_8_rank_1 + MODULE PROCEDURE h5dwrite_ikind_8_rank_2 + MODULE PROCEDURE h5dwrite_ikind_8_rank_3 + MODULE PROCEDURE h5dwrite_ikind_8_rank_4 + MODULE PROCEDURE h5dwrite_ikind_8_rank_5 + MODULE PROCEDURE h5dwrite_ikind_8_rank_6 + MODULE PROCEDURE h5dwrite_ikind_8_rank_7 + MODULE PROCEDURE h5dwrite_ikind_16_rank_0 + MODULE PROCEDURE h5dwrite_ikind_16_rank_1 + MODULE PROCEDURE h5dwrite_ikind_16_rank_2 + MODULE PROCEDURE h5dwrite_ikind_16_rank_3 + MODULE PROCEDURE h5dwrite_ikind_16_rank_4 + MODULE PROCEDURE h5dwrite_ikind_16_rank_5 + MODULE PROCEDURE h5dwrite_ikind_16_rank_6 + MODULE PROCEDURE h5dwrite_ikind_16_rank_7 + MODULE PROCEDURE h5dwrite_ckind_rank_1 + MODULE PROCEDURE h5dwrite_ckind_rank_2 + MODULE PROCEDURE h5dwrite_ckind_rank_3 + MODULE PROCEDURE h5dwrite_ckind_rank_4 + MODULE PROCEDURE h5dwrite_ckind_rank_5 + MODULE PROCEDURE h5dwrite_ckind_rank_6 + MODULE PROCEDURE h5dwrite_ckind_rank_7 + END INTERFACE + INTERFACE h5dread_f + MODULE PROCEDURE h5dread_rkind_4_rank_0 + MODULE PROCEDURE h5dread_rkind_4_rank_1 + MODULE PROCEDURE h5dread_rkind_4_rank_2 + MODULE PROCEDURE h5dread_rkind_4_rank_3 + MODULE PROCEDURE h5dread_rkind_4_rank_4 + MODULE PROCEDURE h5dread_rkind_4_rank_5 + MODULE PROCEDURE h5dread_rkind_4_rank_6 + MODULE PROCEDURE h5dread_rkind_4_rank_7 + MODULE PROCEDURE h5dread_rkind_8_rank_0 + MODULE PROCEDURE h5dread_rkind_8_rank_1 + MODULE PROCEDURE h5dread_rkind_8_rank_2 + MODULE PROCEDURE h5dread_rkind_8_rank_3 + MODULE PROCEDURE h5dread_rkind_8_rank_4 + MODULE PROCEDURE h5dread_rkind_8_rank_5 + MODULE PROCEDURE h5dread_rkind_8_rank_6 + MODULE PROCEDURE h5dread_rkind_8_rank_7 + MODULE PROCEDURE h5dread_rkind_10_rank_0 + MODULE PROCEDURE h5dread_rkind_10_rank_1 + MODULE PROCEDURE h5dread_rkind_10_rank_2 + MODULE PROCEDURE h5dread_rkind_10_rank_3 + MODULE PROCEDURE h5dread_rkind_10_rank_4 + MODULE PROCEDURE h5dread_rkind_10_rank_5 + MODULE PROCEDURE h5dread_rkind_10_rank_6 + MODULE PROCEDURE h5dread_rkind_10_rank_7 + MODULE PROCEDURE h5dread_rkind_16_rank_0 + MODULE PROCEDURE h5dread_rkind_16_rank_1 + MODULE PROCEDURE h5dread_rkind_16_rank_2 + MODULE PROCEDURE h5dread_rkind_16_rank_3 + MODULE PROCEDURE h5dread_rkind_16_rank_4 + MODULE PROCEDURE h5dread_rkind_16_rank_5 + MODULE PROCEDURE h5dread_rkind_16_rank_6 + MODULE PROCEDURE h5dread_rkind_16_rank_7 + MODULE PROCEDURE h5dread_ikind_1_rank_0 + MODULE PROCEDURE h5dread_ikind_1_rank_1 + MODULE PROCEDURE h5dread_ikind_1_rank_2 + MODULE PROCEDURE h5dread_ikind_1_rank_3 + MODULE PROCEDURE h5dread_ikind_1_rank_4 + MODULE PROCEDURE h5dread_ikind_1_rank_5 + MODULE PROCEDURE h5dread_ikind_1_rank_6 + MODULE PROCEDURE h5dread_ikind_1_rank_7 + MODULE PROCEDURE h5dread_ikind_2_rank_0 + MODULE PROCEDURE h5dread_ikind_2_rank_1 + MODULE PROCEDURE h5dread_ikind_2_rank_2 + MODULE PROCEDURE h5dread_ikind_2_rank_3 + MODULE PROCEDURE h5dread_ikind_2_rank_4 + MODULE PROCEDURE h5dread_ikind_2_rank_5 + MODULE PROCEDURE h5dread_ikind_2_rank_6 + MODULE PROCEDURE h5dread_ikind_2_rank_7 + MODULE PROCEDURE h5dread_ikind_4_rank_0 + MODULE PROCEDURE h5dread_ikind_4_rank_1 + MODULE PROCEDURE h5dread_ikind_4_rank_2 + MODULE PROCEDURE h5dread_ikind_4_rank_3 + MODULE PROCEDURE h5dread_ikind_4_rank_4 + MODULE PROCEDURE h5dread_ikind_4_rank_5 + MODULE PROCEDURE h5dread_ikind_4_rank_6 + MODULE PROCEDURE h5dread_ikind_4_rank_7 + MODULE PROCEDURE h5dread_ikind_8_rank_0 + MODULE PROCEDURE h5dread_ikind_8_rank_1 + MODULE PROCEDURE h5dread_ikind_8_rank_2 + MODULE PROCEDURE h5dread_ikind_8_rank_3 + MODULE PROCEDURE h5dread_ikind_8_rank_4 + MODULE PROCEDURE h5dread_ikind_8_rank_5 + MODULE PROCEDURE h5dread_ikind_8_rank_6 + MODULE PROCEDURE h5dread_ikind_8_rank_7 + MODULE PROCEDURE h5dread_ikind_16_rank_0 + MODULE PROCEDURE h5dread_ikind_16_rank_1 + MODULE PROCEDURE h5dread_ikind_16_rank_2 + MODULE PROCEDURE h5dread_ikind_16_rank_3 + MODULE PROCEDURE h5dread_ikind_16_rank_4 + MODULE PROCEDURE h5dread_ikind_16_rank_5 + MODULE PROCEDURE h5dread_ikind_16_rank_6 + MODULE PROCEDURE h5dread_ikind_16_rank_7 + MODULE PROCEDURE h5dread_ckind_rank_1 + MODULE PROCEDURE h5dread_ckind_rank_2 + MODULE PROCEDURE h5dread_ckind_rank_3 + MODULE PROCEDURE h5dread_ckind_rank_4 + MODULE PROCEDURE h5dread_ckind_rank_5 + MODULE PROCEDURE h5dread_ckind_rank_6 + MODULE PROCEDURE h5dread_ckind_rank_7 + END INTERFACE + INTERFACE h5pset_fill_value_f + MODULE PROCEDURE h5pset_fill_value_kind_4 + MODULE PROCEDURE h5pset_fill_value_kind_8 + MODULE PROCEDURE h5pset_fill_value_kind_10 + MODULE PROCEDURE h5pset_fill_value_kind_16 + END INTERFACE + INTERFACE h5pget_fill_value_f + MODULE PROCEDURE h5pget_fill_value_kind_4 + MODULE PROCEDURE h5pget_fill_value_kind_8 + MODULE PROCEDURE h5pget_fill_value_kind_10 + MODULE PROCEDURE h5pget_fill_value_kind_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_10 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_10 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_10 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + MODULE PROCEDURE h5pinsert_kind_10 + MODULE PROCEDURE h5pinsert_kind_16 + END INTERFACE +CONTAINS +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_4_rank_0 +!DEC$endif + SUBROUTINE h5awrite_rkind_4_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_4_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_4_rank_1 +!DEC$endif + SUBROUTINE h5awrite_rkind_4_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_4_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_4_rank_2 +!DEC$endif + SUBROUTINE h5awrite_rkind_4_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_4_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_4_rank_3 +!DEC$endif + SUBROUTINE h5awrite_rkind_4_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_4_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_4_rank_4 +!DEC$endif + SUBROUTINE h5awrite_rkind_4_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_4_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_4_rank_5 +!DEC$endif + SUBROUTINE h5awrite_rkind_4_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_4_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_4_rank_6 +!DEC$endif + SUBROUTINE h5awrite_rkind_4_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_4_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_4_rank_7 +!DEC$endif + SUBROUTINE h5awrite_rkind_4_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_4_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_8_rank_0 +!DEC$endif + SUBROUTINE h5awrite_rkind_8_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_8_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_8_rank_1 +!DEC$endif + SUBROUTINE h5awrite_rkind_8_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_8_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_8_rank_2 +!DEC$endif + SUBROUTINE h5awrite_rkind_8_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_8_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_8_rank_3 +!DEC$endif + SUBROUTINE h5awrite_rkind_8_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_8_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_8_rank_4 +!DEC$endif + SUBROUTINE h5awrite_rkind_8_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_8_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_8_rank_5 +!DEC$endif + SUBROUTINE h5awrite_rkind_8_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_8_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_8_rank_6 +!DEC$endif + SUBROUTINE h5awrite_rkind_8_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_8_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_8_rank_7 +!DEC$endif + SUBROUTINE h5awrite_rkind_8_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_8_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_10_rank_0 +!DEC$endif + SUBROUTINE h5awrite_rkind_10_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_10_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_10_rank_1 +!DEC$endif + SUBROUTINE h5awrite_rkind_10_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_10_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_10_rank_2 +!DEC$endif + SUBROUTINE h5awrite_rkind_10_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_10_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_10_rank_3 +!DEC$endif + SUBROUTINE h5awrite_rkind_10_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_10_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_10_rank_4 +!DEC$endif + SUBROUTINE h5awrite_rkind_10_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_10_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_10_rank_5 +!DEC$endif + SUBROUTINE h5awrite_rkind_10_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_10_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_10_rank_6 +!DEC$endif + SUBROUTINE h5awrite_rkind_10_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_10_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_10_rank_7 +!DEC$endif + SUBROUTINE h5awrite_rkind_10_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_10_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_16_rank_0 +!DEC$endif + SUBROUTINE h5awrite_rkind_16_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_16_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_16_rank_1 +!DEC$endif + SUBROUTINE h5awrite_rkind_16_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_16_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_16_rank_2 +!DEC$endif + SUBROUTINE h5awrite_rkind_16_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_16_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_16_rank_3 +!DEC$endif + SUBROUTINE h5awrite_rkind_16_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_16_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_16_rank_4 +!DEC$endif + SUBROUTINE h5awrite_rkind_16_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_16_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_16_rank_5 +!DEC$endif + SUBROUTINE h5awrite_rkind_16_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_16_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_16_rank_6 +!DEC$endif + SUBROUTINE h5awrite_rkind_16_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_16_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_rkind_16_rank_7 +!DEC$endif + SUBROUTINE h5awrite_rkind_16_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_rkind_16_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_1_rank_0 +!DEC$endif + SUBROUTINE h5awrite_ikind_1_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_1_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_1_rank_1 +!DEC$endif + SUBROUTINE h5awrite_ikind_1_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_1_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_1_rank_2 +!DEC$endif + SUBROUTINE h5awrite_ikind_1_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_1_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_1_rank_3 +!DEC$endif + SUBROUTINE h5awrite_ikind_1_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_1_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_1_rank_4 +!DEC$endif + SUBROUTINE h5awrite_ikind_1_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_1_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_1_rank_5 +!DEC$endif + SUBROUTINE h5awrite_ikind_1_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_1_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_1_rank_6 +!DEC$endif + SUBROUTINE h5awrite_ikind_1_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_1_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_1_rank_7 +!DEC$endif + SUBROUTINE h5awrite_ikind_1_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_1_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_2_rank_0 +!DEC$endif + SUBROUTINE h5awrite_ikind_2_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_2_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_2_rank_1 +!DEC$endif + SUBROUTINE h5awrite_ikind_2_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_2_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_2_rank_2 +!DEC$endif + SUBROUTINE h5awrite_ikind_2_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_2_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_2_rank_3 +!DEC$endif + SUBROUTINE h5awrite_ikind_2_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_2_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_2_rank_4 +!DEC$endif + SUBROUTINE h5awrite_ikind_2_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_2_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_2_rank_5 +!DEC$endif + SUBROUTINE h5awrite_ikind_2_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_2_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_2_rank_6 +!DEC$endif + SUBROUTINE h5awrite_ikind_2_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_2_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_2_rank_7 +!DEC$endif + SUBROUTINE h5awrite_ikind_2_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_2_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_4_rank_0 +!DEC$endif + SUBROUTINE h5awrite_ikind_4_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_4_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_4_rank_1 +!DEC$endif + SUBROUTINE h5awrite_ikind_4_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_4_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_4_rank_2 +!DEC$endif + SUBROUTINE h5awrite_ikind_4_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_4_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_4_rank_3 +!DEC$endif + SUBROUTINE h5awrite_ikind_4_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_4_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_4_rank_4 +!DEC$endif + SUBROUTINE h5awrite_ikind_4_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_4_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_4_rank_5 +!DEC$endif + SUBROUTINE h5awrite_ikind_4_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_4_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_4_rank_6 +!DEC$endif + SUBROUTINE h5awrite_ikind_4_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_4_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_4_rank_7 +!DEC$endif + SUBROUTINE h5awrite_ikind_4_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_4_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_8_rank_0 +!DEC$endif + SUBROUTINE h5awrite_ikind_8_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_8_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_8_rank_1 +!DEC$endif + SUBROUTINE h5awrite_ikind_8_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_8_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_8_rank_2 +!DEC$endif + SUBROUTINE h5awrite_ikind_8_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_8_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_8_rank_3 +!DEC$endif + SUBROUTINE h5awrite_ikind_8_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_8_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_8_rank_4 +!DEC$endif + SUBROUTINE h5awrite_ikind_8_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_8_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_8_rank_5 +!DEC$endif + SUBROUTINE h5awrite_ikind_8_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_8_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_8_rank_6 +!DEC$endif + SUBROUTINE h5awrite_ikind_8_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_8_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_8_rank_7 +!DEC$endif + SUBROUTINE h5awrite_ikind_8_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_8_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_16_rank_0 +!DEC$endif + SUBROUTINE h5awrite_ikind_16_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_16_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_16_rank_1 +!DEC$endif + SUBROUTINE h5awrite_ikind_16_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_16_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_16_rank_2 +!DEC$endif + SUBROUTINE h5awrite_ikind_16_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_16_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_16_rank_3 +!DEC$endif + SUBROUTINE h5awrite_ikind_16_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_16_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_16_rank_4 +!DEC$endif + SUBROUTINE h5awrite_ikind_16_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_16_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_16_rank_5 +!DEC$endif + SUBROUTINE h5awrite_ikind_16_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_16_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_16_rank_6 +!DEC$endif + SUBROUTINE h5awrite_ikind_16_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_16_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ikind_16_rank_7 +!DEC$endif + SUBROUTINE h5awrite_ikind_16_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ikind_16_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ckind_rank_1 +!DEC$endif + SUBROUTINE h5awrite_ckind_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*) , INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)(1:1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ckind_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ckind_rank_2 +!DEC$endif + SUBROUTINE h5awrite_ckind_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*) , INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)(1:1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ckind_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ckind_rank_3 +!DEC$endif + SUBROUTINE h5awrite_ckind_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*) , INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)(1:1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ckind_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ckind_rank_4 +!DEC$endif + SUBROUTINE h5awrite_ckind_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*) , INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)(1:1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ckind_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ckind_rank_5 +!DEC$endif + SUBROUTINE h5awrite_ckind_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*) , INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)(1:1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ckind_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ckind_rank_6 +!DEC$endif + SUBROUTINE h5awrite_ckind_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*) , INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)(1:1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ckind_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5awrite_ckind_rank_7 +!DEC$endif + SUBROUTINE h5awrite_ckind_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*) , INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)(1:1)) + hdferr = H5Awrite_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5awrite_ckind_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_4_rank_0 +!DEC$endif + SUBROUTINE h5aread_rkind_4_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_4_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_4_rank_1 +!DEC$endif + SUBROUTINE h5aread_rkind_4_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_4_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_4_rank_2 +!DEC$endif + SUBROUTINE h5aread_rkind_4_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_4_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_4_rank_3 +!DEC$endif + SUBROUTINE h5aread_rkind_4_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_4_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_4_rank_4 +!DEC$endif + SUBROUTINE h5aread_rkind_4_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_4_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_4_rank_5 +!DEC$endif + SUBROUTINE h5aread_rkind_4_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_4_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_4_rank_6 +!DEC$endif + SUBROUTINE h5aread_rkind_4_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_4_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_4_rank_7 +!DEC$endif + SUBROUTINE h5aread_rkind_4_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_4_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_8_rank_0 +!DEC$endif + SUBROUTINE h5aread_rkind_8_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_8_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_8_rank_1 +!DEC$endif + SUBROUTINE h5aread_rkind_8_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_8_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_8_rank_2 +!DEC$endif + SUBROUTINE h5aread_rkind_8_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_8_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_8_rank_3 +!DEC$endif + SUBROUTINE h5aread_rkind_8_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_8_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_8_rank_4 +!DEC$endif + SUBROUTINE h5aread_rkind_8_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_8_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_8_rank_5 +!DEC$endif + SUBROUTINE h5aread_rkind_8_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_8_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_8_rank_6 +!DEC$endif + SUBROUTINE h5aread_rkind_8_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_8_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_8_rank_7 +!DEC$endif + SUBROUTINE h5aread_rkind_8_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_8_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_10_rank_0 +!DEC$endif + SUBROUTINE h5aread_rkind_10_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_10_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_10_rank_1 +!DEC$endif + SUBROUTINE h5aread_rkind_10_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_10_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_10_rank_2 +!DEC$endif + SUBROUTINE h5aread_rkind_10_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_10_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_10_rank_3 +!DEC$endif + SUBROUTINE h5aread_rkind_10_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_10_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_10_rank_4 +!DEC$endif + SUBROUTINE h5aread_rkind_10_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_10_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_10_rank_5 +!DEC$endif + SUBROUTINE h5aread_rkind_10_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_10_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_10_rank_6 +!DEC$endif + SUBROUTINE h5aread_rkind_10_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_10_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_10_rank_7 +!DEC$endif + SUBROUTINE h5aread_rkind_10_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_10_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_16_rank_0 +!DEC$endif + SUBROUTINE h5aread_rkind_16_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_16_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_16_rank_1 +!DEC$endif + SUBROUTINE h5aread_rkind_16_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_16_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_16_rank_2 +!DEC$endif + SUBROUTINE h5aread_rkind_16_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_16_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_16_rank_3 +!DEC$endif + SUBROUTINE h5aread_rkind_16_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_16_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_16_rank_4 +!DEC$endif + SUBROUTINE h5aread_rkind_16_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_16_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_16_rank_5 +!DEC$endif + SUBROUTINE h5aread_rkind_16_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_16_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_16_rank_6 +!DEC$endif + SUBROUTINE h5aread_rkind_16_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_16_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_rkind_16_rank_7 +!DEC$endif + SUBROUTINE h5aread_rkind_16_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_rkind_16_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_1_rank_0 +!DEC$endif + SUBROUTINE h5aread_ikind_1_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_1_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_1_rank_1 +!DEC$endif + SUBROUTINE h5aread_ikind_1_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_1_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_1_rank_2 +!DEC$endif + SUBROUTINE h5aread_ikind_1_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_1_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_1_rank_3 +!DEC$endif + SUBROUTINE h5aread_ikind_1_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_1_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_1_rank_4 +!DEC$endif + SUBROUTINE h5aread_ikind_1_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_1_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_1_rank_5 +!DEC$endif + SUBROUTINE h5aread_ikind_1_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_1_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_1_rank_6 +!DEC$endif + SUBROUTINE h5aread_ikind_1_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_1_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_1_rank_7 +!DEC$endif + SUBROUTINE h5aread_ikind_1_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_1_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_2_rank_0 +!DEC$endif + SUBROUTINE h5aread_ikind_2_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_2_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_2_rank_1 +!DEC$endif + SUBROUTINE h5aread_ikind_2_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_2_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_2_rank_2 +!DEC$endif + SUBROUTINE h5aread_ikind_2_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_2_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_2_rank_3 +!DEC$endif + SUBROUTINE h5aread_ikind_2_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_2_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_2_rank_4 +!DEC$endif + SUBROUTINE h5aread_ikind_2_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_2_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_2_rank_5 +!DEC$endif + SUBROUTINE h5aread_ikind_2_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_2_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_2_rank_6 +!DEC$endif + SUBROUTINE h5aread_ikind_2_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_2_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_2_rank_7 +!DEC$endif + SUBROUTINE h5aread_ikind_2_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_2_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_4_rank_0 +!DEC$endif + SUBROUTINE h5aread_ikind_4_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_4_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_4_rank_1 +!DEC$endif + SUBROUTINE h5aread_ikind_4_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_4_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_4_rank_2 +!DEC$endif + SUBROUTINE h5aread_ikind_4_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_4_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_4_rank_3 +!DEC$endif + SUBROUTINE h5aread_ikind_4_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_4_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_4_rank_4 +!DEC$endif + SUBROUTINE h5aread_ikind_4_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_4_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_4_rank_5 +!DEC$endif + SUBROUTINE h5aread_ikind_4_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_4_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_4_rank_6 +!DEC$endif + SUBROUTINE h5aread_ikind_4_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_4_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_4_rank_7 +!DEC$endif + SUBROUTINE h5aread_ikind_4_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_4_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_8_rank_0 +!DEC$endif + SUBROUTINE h5aread_ikind_8_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_8_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_8_rank_1 +!DEC$endif + SUBROUTINE h5aread_ikind_8_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_8_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_8_rank_2 +!DEC$endif + SUBROUTINE h5aread_ikind_8_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_8_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_8_rank_3 +!DEC$endif + SUBROUTINE h5aread_ikind_8_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_8_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_8_rank_4 +!DEC$endif + SUBROUTINE h5aread_ikind_8_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_8_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_8_rank_5 +!DEC$endif + SUBROUTINE h5aread_ikind_8_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_8_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_8_rank_6 +!DEC$endif + SUBROUTINE h5aread_ikind_8_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_8_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_8_rank_7 +!DEC$endif + SUBROUTINE h5aread_ikind_8_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_8_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_16_rank_0 +!DEC$endif + SUBROUTINE h5aread_ikind_16_rank_0(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_16_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_16_rank_1 +!DEC$endif + SUBROUTINE h5aread_ikind_16_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_16_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_16_rank_2 +!DEC$endif + SUBROUTINE h5aread_ikind_16_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_16_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_16_rank_3 +!DEC$endif + SUBROUTINE h5aread_ikind_16_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_16_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_16_rank_4 +!DEC$endif + SUBROUTINE h5aread_ikind_16_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_16_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_16_rank_5 +!DEC$endif + SUBROUTINE h5aread_ikind_16_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_16_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_16_rank_6 +!DEC$endif + SUBROUTINE h5aread_ikind_16_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_16_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ikind_16_rank_7 +!DEC$endif + SUBROUTINE h5aread_ikind_16_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ikind_16_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ckind_rank_1 +!DEC$endif + SUBROUTINE h5aread_ckind_rank_1(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1)(1:1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ckind_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ckind_rank_2 +!DEC$endif + SUBROUTINE h5aread_ckind_rank_2(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1)(1:1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ckind_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ckind_rank_3 +!DEC$endif + SUBROUTINE h5aread_ckind_rank_3(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1)(1:1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ckind_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ckind_rank_4 +!DEC$endif + SUBROUTINE h5aread_ckind_rank_4(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1)(1:1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ckind_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ckind_rank_5 +!DEC$endif + SUBROUTINE h5aread_ckind_rank_5(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1)(1:1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ckind_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ckind_rank_6 +!DEC$endif + SUBROUTINE h5aread_ckind_rank_6(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1)(1:1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ckind_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5aread_ckind_rank_7 +!DEC$endif + SUBROUTINE h5aread_ckind_rank_7(attr_id, memtype_id, buf, dims, hdferr) + IMPLICIT NONE + INTEGER(HID_T) , INTENT(IN) :: attr_id + INTEGER(HID_T) , INTENT(IN) :: memtype_id + INTEGER(HSIZE_T) , INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER , INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)(1:1)) + hdferr = H5Aread_f_c(attr_id, memtype_id, f_ptr) + END SUBROUTINE h5aread_ckind_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_4_rank_0 +!DEC$endif + SUBROUTINE h5dread_rkind_4_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_4_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_4_rank_1 +!DEC$endif + SUBROUTINE h5dread_rkind_4_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_4_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_4_rank_2 +!DEC$endif + SUBROUTINE h5dread_rkind_4_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_4_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_4_rank_3 +!DEC$endif + SUBROUTINE h5dread_rkind_4_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_4_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_4_rank_4 +!DEC$endif + SUBROUTINE h5dread_rkind_4_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_4_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_4_rank_5 +!DEC$endif + SUBROUTINE h5dread_rkind_4_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_4_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_4_rank_6 +!DEC$endif + SUBROUTINE h5dread_rkind_4_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_4_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_4_rank_7 +!DEC$endif + SUBROUTINE h5dread_rkind_4_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_4_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_8_rank_0 +!DEC$endif + SUBROUTINE h5dread_rkind_8_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_8_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_8_rank_1 +!DEC$endif + SUBROUTINE h5dread_rkind_8_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_8_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_8_rank_2 +!DEC$endif + SUBROUTINE h5dread_rkind_8_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_8_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_8_rank_3 +!DEC$endif + SUBROUTINE h5dread_rkind_8_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_8_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_8_rank_4 +!DEC$endif + SUBROUTINE h5dread_rkind_8_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_8_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_8_rank_5 +!DEC$endif + SUBROUTINE h5dread_rkind_8_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_8_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_8_rank_6 +!DEC$endif + SUBROUTINE h5dread_rkind_8_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_8_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_8_rank_7 +!DEC$endif + SUBROUTINE h5dread_rkind_8_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_8_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_10_rank_0 +!DEC$endif + SUBROUTINE h5dread_rkind_10_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_10_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_10_rank_1 +!DEC$endif + SUBROUTINE h5dread_rkind_10_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_10_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_10_rank_2 +!DEC$endif + SUBROUTINE h5dread_rkind_10_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_10_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_10_rank_3 +!DEC$endif + SUBROUTINE h5dread_rkind_10_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_10_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_10_rank_4 +!DEC$endif + SUBROUTINE h5dread_rkind_10_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_10_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_10_rank_5 +!DEC$endif + SUBROUTINE h5dread_rkind_10_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_10_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_10_rank_6 +!DEC$endif + SUBROUTINE h5dread_rkind_10_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_10_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_10_rank_7 +!DEC$endif + SUBROUTINE h5dread_rkind_10_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_10_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_16_rank_0 +!DEC$endif + SUBROUTINE h5dread_rkind_16_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_16_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_16_rank_1 +!DEC$endif + SUBROUTINE h5dread_rkind_16_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_16_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_16_rank_2 +!DEC$endif + SUBROUTINE h5dread_rkind_16_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_16_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_16_rank_3 +!DEC$endif + SUBROUTINE h5dread_rkind_16_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_16_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_16_rank_4 +!DEC$endif + SUBROUTINE h5dread_rkind_16_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_16_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_16_rank_5 +!DEC$endif + SUBROUTINE h5dread_rkind_16_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_16_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_16_rank_6 +!DEC$endif + SUBROUTINE h5dread_rkind_16_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_16_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_rkind_16_rank_7 +!DEC$endif + SUBROUTINE h5dread_rkind_16_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_rkind_16_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_1_rank_0 +!DEC$endif + SUBROUTINE h5dread_ikind_1_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_1_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_1_rank_1 +!DEC$endif + SUBROUTINE h5dread_ikind_1_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_1_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_1_rank_2 +!DEC$endif + SUBROUTINE h5dread_ikind_1_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_1_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_1_rank_3 +!DEC$endif + SUBROUTINE h5dread_ikind_1_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_1_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_1_rank_4 +!DEC$endif + SUBROUTINE h5dread_ikind_1_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_1_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_1_rank_5 +!DEC$endif + SUBROUTINE h5dread_ikind_1_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_1_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_1_rank_6 +!DEC$endif + SUBROUTINE h5dread_ikind_1_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_1_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_1_rank_7 +!DEC$endif + SUBROUTINE h5dread_ikind_1_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_1_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_2_rank_0 +!DEC$endif + SUBROUTINE h5dread_ikind_2_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_2_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_2_rank_1 +!DEC$endif + SUBROUTINE h5dread_ikind_2_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_2_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_2_rank_2 +!DEC$endif + SUBROUTINE h5dread_ikind_2_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_2_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_2_rank_3 +!DEC$endif + SUBROUTINE h5dread_ikind_2_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_2_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_2_rank_4 +!DEC$endif + SUBROUTINE h5dread_ikind_2_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_2_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_2_rank_5 +!DEC$endif + SUBROUTINE h5dread_ikind_2_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_2_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_2_rank_6 +!DEC$endif + SUBROUTINE h5dread_ikind_2_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_2_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_2_rank_7 +!DEC$endif + SUBROUTINE h5dread_ikind_2_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_2_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_4_rank_0 +!DEC$endif + SUBROUTINE h5dread_ikind_4_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_4_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_4_rank_1 +!DEC$endif + SUBROUTINE h5dread_ikind_4_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_4_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_4_rank_2 +!DEC$endif + SUBROUTINE h5dread_ikind_4_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_4_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_4_rank_3 +!DEC$endif + SUBROUTINE h5dread_ikind_4_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_4_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_4_rank_4 +!DEC$endif + SUBROUTINE h5dread_ikind_4_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_4_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_4_rank_5 +!DEC$endif + SUBROUTINE h5dread_ikind_4_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_4_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_4_rank_6 +!DEC$endif + SUBROUTINE h5dread_ikind_4_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_4_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_4_rank_7 +!DEC$endif + SUBROUTINE h5dread_ikind_4_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_4_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_8_rank_0 +!DEC$endif + SUBROUTINE h5dread_ikind_8_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_8_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_8_rank_1 +!DEC$endif + SUBROUTINE h5dread_ikind_8_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_8_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_8_rank_2 +!DEC$endif + SUBROUTINE h5dread_ikind_8_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_8_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_8_rank_3 +!DEC$endif + SUBROUTINE h5dread_ikind_8_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_8_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_8_rank_4 +!DEC$endif + SUBROUTINE h5dread_ikind_8_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_8_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_8_rank_5 +!DEC$endif + SUBROUTINE h5dread_ikind_8_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_8_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_8_rank_6 +!DEC$endif + SUBROUTINE h5dread_ikind_8_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_8_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_8_rank_7 +!DEC$endif + SUBROUTINE h5dread_ikind_8_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_8_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_16_rank_0 +!DEC$endif + SUBROUTINE h5dread_ikind_16_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_16_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_16_rank_1 +!DEC$endif + SUBROUTINE h5dread_ikind_16_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_16_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_16_rank_2 +!DEC$endif + SUBROUTINE h5dread_ikind_16_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_16_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_16_rank_3 +!DEC$endif + SUBROUTINE h5dread_ikind_16_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_16_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_16_rank_4 +!DEC$endif + SUBROUTINE h5dread_ikind_16_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_16_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_16_rank_5 +!DEC$endif + SUBROUTINE h5dread_ikind_16_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_16_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_16_rank_6 +!DEC$endif + SUBROUTINE h5dread_ikind_16_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_16_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ikind_16_rank_7 +!DEC$endif + SUBROUTINE h5dread_ikind_16_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ikind_16_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ckind_rank_1 +!DEC$endif + SUBROUTINE h5dread_ckind_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)(1:1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ckind_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ckind_rank_2 +!DEC$endif + SUBROUTINE h5dread_ckind_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)(1:1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ckind_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ckind_rank_3 +!DEC$endif + SUBROUTINE h5dread_ckind_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)(1:1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ckind_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ckind_rank_4 +!DEC$endif + SUBROUTINE h5dread_ckind_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)(1:1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ckind_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ckind_rank_5 +!DEC$endif + SUBROUTINE h5dread_ckind_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)(1:1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ckind_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ckind_rank_6 +!DEC$endif + SUBROUTINE h5dread_ckind_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)(1:1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ckind_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dread_ckind_rank_7 +!DEC$endif + SUBROUTINE h5dread_ckind_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*), INTENT(INOUT), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)(1:1)) + hdferr = h5dread_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dread_ckind_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_4_rank_0 +!DEC$endif + SUBROUTINE h5dwrite_rkind_4_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_4_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_4_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_rkind_4_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_4_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_4_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_rkind_4_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_4_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_4_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_rkind_4_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_4_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_4_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_rkind_4_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_4_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_4_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_rkind_4_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_4_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_4_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_rkind_4_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_4_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_4_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_rkind_4_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_4_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_8_rank_0 +!DEC$endif + SUBROUTINE h5dwrite_rkind_8_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_8_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_8_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_rkind_8_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_8_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_8_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_rkind_8_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_8_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_8_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_rkind_8_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_8_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_8_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_rkind_8_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_8_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_8_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_rkind_8_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_8_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_8_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_rkind_8_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_8_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_8_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_rkind_8_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_8_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_10_rank_0 +!DEC$endif + SUBROUTINE h5dwrite_rkind_10_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_10_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_10_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_rkind_10_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_10_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_10_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_rkind_10_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_10_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_10_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_rkind_10_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_10_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_10_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_rkind_10_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_10_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_10_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_rkind_10_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_10_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_10_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_rkind_10_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_10_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_10_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_rkind_10_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_10_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_16_rank_0 +!DEC$endif + SUBROUTINE h5dwrite_rkind_16_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_16_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_16_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_rkind_16_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_16_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_16_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_rkind_16_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_16_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_16_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_rkind_16_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_16_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_16_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_rkind_16_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_16_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_16_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_rkind_16_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_16_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_16_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_rkind_16_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_16_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_rkind_16_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_rkind_16_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + REAL(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_rkind_16_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_1_rank_0 +!DEC$endif + SUBROUTINE h5dwrite_ikind_1_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_1_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_1_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_ikind_1_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_1_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_1_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_ikind_1_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_1_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_1_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_ikind_1_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_1_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_1_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_ikind_1_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_1_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_1_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_ikind_1_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_1_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_1_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_ikind_1_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_1_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_1_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_ikind_1_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=1),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_1_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_2_rank_0 +!DEC$endif + SUBROUTINE h5dwrite_ikind_2_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_2_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_2_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_ikind_2_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_2_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_2_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_ikind_2_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_2_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_2_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_ikind_2_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_2_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_2_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_ikind_2_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_2_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_2_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_ikind_2_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_2_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_2_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_ikind_2_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_2_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_2_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_ikind_2_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=2),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_2_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_4_rank_0 +!DEC$endif + SUBROUTINE h5dwrite_ikind_4_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_4_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_4_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_ikind_4_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_4_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_4_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_ikind_4_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_4_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_4_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_ikind_4_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_4_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_4_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_ikind_4_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_4_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_4_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_ikind_4_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_4_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_4_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_ikind_4_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_4_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_4_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_ikind_4_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=4),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_4_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_8_rank_0 +!DEC$endif + SUBROUTINE h5dwrite_ikind_8_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_8_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_8_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_ikind_8_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_8_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_8_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_ikind_8_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_8_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_8_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_ikind_8_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_8_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_8_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_ikind_8_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_8_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_8_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_ikind_8_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_8_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_8_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_ikind_8_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_8_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_8_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_ikind_8_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=8),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_8_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_16_rank_0 +!DEC$endif + SUBROUTINE h5dwrite_ikind_16_rank_0(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_16_rank_0 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_16_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_ikind_16_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_16_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_16_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_ikind_16_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_16_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_16_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_ikind_16_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_16_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_16_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_ikind_16_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_16_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_16_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_ikind_16_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_16_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_16_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_ikind_16_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_16_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ikind_16_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_ikind_16_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + INTEGER(KIND=16),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ikind_16_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ckind_rank_1 +!DEC$endif + SUBROUTINE h5dwrite_ckind_rank_1(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1)(1:1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ckind_rank_1 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ckind_rank_2 +!DEC$endif + SUBROUTINE h5dwrite_ckind_rank_2(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1)(1:1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ckind_rank_2 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ckind_rank_3 +!DEC$endif + SUBROUTINE h5dwrite_ckind_rank_3(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1)(1:1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ckind_rank_3 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ckind_rank_4 +!DEC$endif + SUBROUTINE h5dwrite_ckind_rank_4(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1)(1:1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ckind_rank_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ckind_rank_5 +!DEC$endif + SUBROUTINE h5dwrite_ckind_rank_5(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1)(1:1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ckind_rank_5 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ckind_rank_6 +!DEC$endif + SUBROUTINE h5dwrite_ckind_rank_6(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1)(1:1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ckind_rank_6 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5dwrite_ckind_rank_7 +!DEC$endif + SUBROUTINE h5dwrite_ckind_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & + mem_space_id, file_space_id, xfer_prp) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: dset_id + INTEGER(HID_T), INTENT(IN) :: mem_type_id + INTEGER(HSIZE_T), INTENT(IN), DIMENSION(*) :: dims + CHARACTER(LEN=*),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + INTEGER, INTENT(OUT) :: hdferr + INTEGER(HID_T), INTENT(IN), OPTIONAL :: mem_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: file_space_id + INTEGER(HID_T), INTENT(IN), OPTIONAL :: xfer_prp + INTEGER(HID_T) :: xfer_prp_default + INTEGER(HID_T) :: mem_space_id_default + INTEGER(HID_T) :: file_space_id_default + TYPE(C_PTR) :: f_ptr + xfer_prp_default = H5P_DEFAULT_F + mem_space_id_default = H5S_ALL_F + file_space_id_default = H5S_ALL_F + IF(PRESENT(xfer_prp)) xfer_prp_default = xfer_prp + IF(PRESENT(mem_space_id)) mem_space_id_default = mem_space_id + IF(PRESENT(file_space_id)) file_space_id_default = file_space_id + f_ptr = C_LOC(buf(1,1,1,1,1,1,1)(1:1)) + hdferr = h5dwrite_f_c(dset_id, mem_type_id, mem_space_id_default, & + file_space_id_default, xfer_prp_default, f_ptr) + END SUBROUTINE h5dwrite_ckind_rank_7 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_value_kind_4 +!DEC$endif + SUBROUTINE h5pset_fill_value_kind_4(prp_id, type_id, fillvalue, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + INTEGER(HID_T), INTENT(IN) :: type_id + REAL(KIND=4), INTENT(IN), TARGET :: fillvalue + INTEGER, INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(fillvalue) + hdferr = INT(h5pset_fill_value(prp_id, type_id, f_ptr)) + END SUBROUTINE h5pset_fill_value_kind_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_value_kind_8 +!DEC$endif + SUBROUTINE h5pset_fill_value_kind_8(prp_id, type_id, fillvalue, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + INTEGER(HID_T), INTENT(IN) :: type_id + REAL(KIND=8), INTENT(IN), TARGET :: fillvalue + INTEGER, INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(fillvalue) + hdferr = INT(h5pset_fill_value(prp_id, type_id, f_ptr)) + END SUBROUTINE h5pset_fill_value_kind_8 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_value_kind_10 +!DEC$endif + SUBROUTINE h5pset_fill_value_kind_10(prp_id, type_id, fillvalue, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + INTEGER(HID_T), INTENT(IN) :: type_id + REAL(KIND=10), INTENT(IN), TARGET :: fillvalue + INTEGER, INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(fillvalue) + hdferr = INT(h5pset_fill_value(prp_id, type_id, f_ptr)) + END SUBROUTINE h5pset_fill_value_kind_10 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_fill_value_kind_16 +!DEC$endif + SUBROUTINE h5pset_fill_value_kind_16(prp_id, type_id, fillvalue, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + INTEGER(HID_T), INTENT(IN) :: type_id + REAL(KIND=16), INTENT(IN), TARGET :: fillvalue + INTEGER, INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(fillvalue) + hdferr = INT(h5pset_fill_value(prp_id, type_id, f_ptr)) + END SUBROUTINE h5pset_fill_value_kind_16 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fill_value_kind_4 +!DEC$endif + SUBROUTINE h5pget_fill_value_kind_4(prp_id, type_id, fillvalue, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + INTEGER(HID_T), INTENT(IN) :: type_id + REAL(KIND=4), INTENT(OUT), TARGET :: fillvalue + INTEGER, INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(fillvalue) + hdferr = INT(h5pget_fill_value(prp_id, type_id, f_ptr)) + END SUBROUTINE h5pget_fill_value_kind_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fill_value_kind_8 +!DEC$endif + SUBROUTINE h5pget_fill_value_kind_8(prp_id, type_id, fillvalue, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + INTEGER(HID_T), INTENT(IN) :: type_id + REAL(KIND=8), INTENT(OUT), TARGET :: fillvalue + INTEGER, INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(fillvalue) + hdferr = INT(h5pget_fill_value(prp_id, type_id, f_ptr)) + END SUBROUTINE h5pget_fill_value_kind_8 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fill_value_kind_10 +!DEC$endif + SUBROUTINE h5pget_fill_value_kind_10(prp_id, type_id, fillvalue, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + INTEGER(HID_T), INTENT(IN) :: type_id + REAL(KIND=10), INTENT(OUT), TARGET :: fillvalue + INTEGER, INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(fillvalue) + hdferr = INT(h5pget_fill_value(prp_id, type_id, f_ptr)) + END SUBROUTINE h5pget_fill_value_kind_10 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_fill_value_kind_16 +!DEC$endif + SUBROUTINE h5pget_fill_value_kind_16(prp_id, type_id, fillvalue, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + INTEGER(HID_T), INTENT(IN) :: type_id + REAL(KIND=16), INTENT(OUT), TARGET :: fillvalue + INTEGER, INTENT(OUT) :: hdferr + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(fillvalue) + hdferr = INT(h5pget_fill_value(prp_id, type_id, f_ptr)) + END SUBROUTINE h5pget_fill_value_kind_16 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_kind_4 +!DEC$endif + SUBROUTINE h5pset_kind_4(prp_id, name, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name + REAL(KIND=4), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pget_c(prp_id, name, name_len, f_ptr) + END SUBROUTINE h5pset_kind_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_kind_8 +!DEC$endif + SUBROUTINE h5pset_kind_8(prp_id, name, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name + REAL(KIND=8), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pget_c(prp_id, name, name_len, f_ptr) + END SUBROUTINE h5pset_kind_8 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_kind_10 +!DEC$endif + SUBROUTINE h5pset_kind_10(prp_id, name, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name + REAL(KIND=10), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pget_c(prp_id, name, name_len, f_ptr) + END SUBROUTINE h5pset_kind_10 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pset_kind_16 +!DEC$endif + SUBROUTINE h5pset_kind_16(prp_id, name, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name + REAL(KIND=16), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pget_c(prp_id, name, name_len, f_ptr) + END SUBROUTINE h5pset_kind_16 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_kind_4 +!DEC$endif + SUBROUTINE h5pget_kind_4(prp_id, name, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + CHARACTER(LEN=*), INTENT(IN) :: name + REAL(KIND=4), INTENT(OUT), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pget_c(prp_id, name, name_len, f_ptr) + END SUBROUTINE h5pget_kind_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_kind_8 +!DEC$endif + SUBROUTINE h5pget_kind_8(prp_id, name, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + CHARACTER(LEN=*), INTENT(IN) :: name + REAL(KIND=8), INTENT(OUT), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pget_c(prp_id, name, name_len, f_ptr) + END SUBROUTINE h5pget_kind_8 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_kind_10 +!DEC$endif + SUBROUTINE h5pget_kind_10(prp_id, name, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + CHARACTER(LEN=*), INTENT(IN) :: name + REAL(KIND=10), INTENT(OUT), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pget_c(prp_id, name, name_len, f_ptr) + END SUBROUTINE h5pget_kind_10 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pget_kind_16 +!DEC$endif + SUBROUTINE h5pget_kind_16(prp_id, name, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: prp_id + CHARACTER(LEN=*), INTENT(IN) :: name + REAL(KIND=16), INTENT(OUT), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pget_c(prp_id, name, name_len, f_ptr) + END SUBROUTINE h5pget_kind_16 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pregister_kind_4 +!DEC$endif +SUBROUTINE h5pregister_kind_4(class, name, size, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: class + CHARACTER(LEN=*), INTENT(IN) :: name + INTEGER(SIZE_T), INTENT(IN) :: size + REAL(KIND=4), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pregister_c(class, name, name_len, size, f_ptr) +END SUBROUTINE h5pregister_kind_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pregister_kind_8 +!DEC$endif +SUBROUTINE h5pregister_kind_8(class, name, size, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: class + CHARACTER(LEN=*), INTENT(IN) :: name + INTEGER(SIZE_T), INTENT(IN) :: size + REAL(KIND=8), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pregister_c(class, name, name_len, size, f_ptr) +END SUBROUTINE h5pregister_kind_8 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pregister_kind_10 +!DEC$endif +SUBROUTINE h5pregister_kind_10(class, name, size, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: class + CHARACTER(LEN=*), INTENT(IN) :: name + INTEGER(SIZE_T), INTENT(IN) :: size + REAL(KIND=10), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pregister_c(class, name, name_len, size, f_ptr) +END SUBROUTINE h5pregister_kind_10 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pregister_kind_16 +!DEC$endif +SUBROUTINE h5pregister_kind_16(class, name, size, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: class + CHARACTER(LEN=*), INTENT(IN) :: name + INTEGER(SIZE_T), INTENT(IN) :: size + REAL(KIND=16), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(C_PTR) :: f_ptr + f_ptr = C_LOC(value) + name_len = LEN(name) + hdferr = h5pregister_c(class, name, name_len, size, f_ptr) +END SUBROUTINE h5pregister_kind_16 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pinsert_kind_4 +!DEC$endif + SUBROUTINE h5pinsert_kind_4(plist, name, size, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: plist + CHARACTER(LEN=*), INTENT(IN) :: name + INTEGER(SIZE_T), INTENT(IN) :: size + REAL(KIND=4), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(c_ptr) :: f_ptr + f_ptr = c_loc(value) + name_len = LEN(name) + hdferr = h5pinsert_c(plist, name , name_len, size, f_ptr) + END SUBROUTINE h5pinsert_kind_4 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pinsert_kind_8 +!DEC$endif + SUBROUTINE h5pinsert_kind_8(plist, name, size, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: plist + CHARACTER(LEN=*), INTENT(IN) :: name + INTEGER(SIZE_T), INTENT(IN) :: size + REAL(KIND=8), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(c_ptr) :: f_ptr + f_ptr = c_loc(value) + name_len = LEN(name) + hdferr = h5pinsert_c(plist, name , name_len, size, f_ptr) + END SUBROUTINE h5pinsert_kind_8 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pinsert_kind_10 +!DEC$endif + SUBROUTINE h5pinsert_kind_10(plist, name, size, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: plist + CHARACTER(LEN=*), INTENT(IN) :: name + INTEGER(SIZE_T), INTENT(IN) :: size + REAL(KIND=10), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(c_ptr) :: f_ptr + f_ptr = c_loc(value) + name_len = LEN(name) + hdferr = h5pinsert_c(plist, name , name_len, size, f_ptr) + END SUBROUTINE h5pinsert_kind_10 +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5pinsert_kind_16 +!DEC$endif + SUBROUTINE h5pinsert_kind_16(plist, name, size, value, hdferr) + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: plist + CHARACTER(LEN=*), INTENT(IN) :: name + INTEGER(SIZE_T), INTENT(IN) :: size + REAL(KIND=16), INTENT(IN), TARGET :: value + INTEGER, INTENT(OUT) :: hdferr + INTEGER :: name_len + TYPE(c_ptr) :: f_ptr + f_ptr = c_loc(value) + name_len = LEN(name) + hdferr = h5pinsert_c(plist, name , name_len, size, f_ptr) + END SUBROUTINE h5pinsert_kind_16 +END MODULE H5_gen diff --git a/config/toolchain/fortpregen/gfortran/H5f90i_gen.h b/config/toolchain/fortpregen/gfortran/H5f90i_gen.h new file mode 100644 index 00000000000..e20505b9956 --- /dev/null +++ b/config/toolchain/fortpregen/gfortran/H5f90i_gen.h @@ -0,0 +1,49 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Copyright by The HDF Group. * + * All rights reserved. * + * * + * This file is part of HDF5. The full HDF5 copyright notice, including * + * terms governing use, modification, and redistribution, is contained in * + * the LICENSE file, which can be found at the root of the source code * + * distribution tree, or in https://www.hdfgroup.org/licenses. * + * If you do not have access to either file, you may request a copy from * + * help@hdfgroup.org. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ + + +#ifndef H5f90i_gen_H +#define H5f90i_gen_H + +/* This file is automatically generated by H5match_types.c at build time. */ + +#include "H5public.h" + +#define c_int_1 char +#define c_int_2 short +#define c_int_4 int +#define c_int_8 long long +#define c_size_t_8 size_t +#define c_time_t_8 time_t +#define c_hsize_t_8 hsize_t +typedef struct {c_int_8 a; c_int_8 b;} c_int_16; +#define c_float_4 float +#define c_float_8 double +#define c_float_10 long double +#define c_float_16 __float128 + +typedef c_int_8 haddr_t_f; +typedef c_hsize_t_8 hsize_t_f; +typedef c_int_8 hssize_t_f; +typedef c_int_8 off_t_f; +typedef c_size_t_8 size_t_f; +typedef c_time_t_8 time_t_f; +typedef c_int_4 int_f; +typedef c_float_4 real_C_FLOAT_f; +typedef c_float_8 real_C_DOUBLE_f; +typedef c_float_10 real_C_LONG_DOUBLE_f; +typedef c_float_16 real_C_FLOAT128_f; +typedef c_int_8 hid_t_f; +typedef c_float_4 real_f; +typedef c_float_8 double_f; + +#endif /* _H5f90i_gen_H */ diff --git a/config/toolchain/fortpregen/gfortran/H5fortran_types.F90 b/config/toolchain/fortpregen/gfortran/H5fortran_types.F90 new file mode 100644 index 00000000000..b21853626fe --- /dev/null +++ b/config/toolchain/fortpregen/gfortran/H5fortran_types.F90 @@ -0,0 +1,42 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! Copyright by The HDF Group. * +! All rights reserved. * +! * +! This file is part of HDF5. The full HDF5 copyright notice, including * +! terms governing use, modification, and redistribution, is contained in * +! the LICENSE file, which can be found at the root of the source code * +! distribution tree, or in https://www.hdfgroup.org/licenses. * +! If you do not have access to either file, you may request a copy from * +! help@hdfgroup.org. * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! +! +! This file is automatically generated by H5match_types.c and contains HDF5 Fortran90 type definitions. +! + MODULE H5FORTRAN_TYPES + USE ISO_C_BINDING + ! + ! HDF5 integers + ! + INTEGER, PARAMETER :: H5_FORTRAN_NUM_INTEGER_KINDS = 5 + INTEGER, PARAMETER :: HADDR_T = 8 + INTEGER, PARAMETER :: HSIZE_T = 8 + INTEGER, PARAMETER :: HSSIZE_T = 8 + INTEGER, PARAMETER :: OFF_T = 8 + INTEGER, PARAMETER :: SIZE_T = 8 + INTEGER, PARAMETER :: TIME_T = 8 + INTEGER, PARAMETER :: Fortran_INTEGER = 4 + INTEGER, DIMENSION(1:5), PARAMETER :: Fortran_INTEGER_AVAIL_KINDS = (/1,2,4,8,16/) + INTEGER, PARAMETER :: Fortran_REAL_C_FLOAT = 4 + INTEGER, PARAMETER :: Fortran_REAL_C_DOUBLE = 8 + INTEGER, PARAMETER :: Fortran_REAL_C_LONG_DOUBLE = 10 + INTEGER, PARAMETER :: Fortran_REAL_C_FLOAT128 = 16 + INTEGER, PARAMETER :: HID_T = 8 + INTEGER, PARAMETER :: Fortran_REAL = C_FLOAT + INTEGER, PARAMETER :: Fortran_DOUBLE = C_DOUBLE + INTEGER, PARAMETER :: H5R_DSET_REG_REF_BUF_SIZE_F = 12 + INTEGER, PARAMETER :: H5O_MAX_TOKEN_SIZE_F = 16 + + INTEGER(SIZE_T), PARAMETER :: OBJECT_NAMELEN_DEFAULT_F = -1 + + END MODULE H5FORTRAN_TYPES diff --git a/config/toolchain/fortpregen/gfortran/tf_gen.F90 b/config/toolchain/fortpregen/gfortran/tf_gen.F90 new file mode 100644 index 00000000000..bb69103f38a --- /dev/null +++ b/config/toolchain/fortpregen/gfortran/tf_gen.F90 @@ -0,0 +1,387 @@ +!****h* ROBODoc/TH5_MISC_gen.F90 +! +! NAME +! TH5_MISC_gen +! +! PURPOSE +! This module is generated at build by H5_test_buildiface.F90 to handle checking +! in the tests all the detected KINDs. +! +! COPYRIGHT +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! Copyright by The HDF Group. * +! All rights reserved. * +! * +! This file is part of HDF5. The full HDF5 copyright notice, including * +! terms governing use, modification, and redistribution, is contained in * +! the LICENSE file, which can be found at the root of the source code * +! distribution tree, or in https://www.hdfgroup.org/licenses. * +! If you do not have access to either file, you may request a copy from * +! help@hdfgroup.org. * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! +! AUTHOR +! H5_test_buildiface.F90 +! +!***** + +MODULE TH5_MISC_gen + USE, INTRINSIC :: ISO_C_BINDING + INTERFACE verify + MODULE PROCEDURE verify_real_kind_4 + MODULE PROCEDURE verify_real_kind_8 + MODULE PROCEDURE verify_real_kind_10 + MODULE PROCEDURE verify_real_kind_16 + MODULE PROCEDURE verify_integer_kind_1 + MODULE PROCEDURE verify_integer_kind_2 + MODULE PROCEDURE verify_integer_kind_4 + MODULE PROCEDURE verify_integer_kind_8 + MODULE PROCEDURE verify_integer_kind_16 + MODULE PROCEDURE verify_character + MODULE PROCEDURE verify_logical + MODULE PROCEDURE verify_c_bool + END INTERFACE + INTERFACE check_real_eq + MODULE PROCEDURE real_eq_kind_4 + MODULE PROCEDURE real_eq_kind_8 + MODULE PROCEDURE real_eq_kind_10 + MODULE PROCEDURE real_eq_kind_16 + END INTERFACE +CONTAINS +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_integer_kind_1 +!DEC$endif + SUBROUTINE verify_integer_kind_1(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + INTEGER(KIND=1) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (value .NE. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ELSE + IF (value .EQ. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_integer_kind_1 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_integer_kind_2 +!DEC$endif + SUBROUTINE verify_integer_kind_2(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + INTEGER(KIND=2) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (value .NE. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ELSE + IF (value .EQ. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_integer_kind_2 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_integer_kind_4 +!DEC$endif + SUBROUTINE verify_integer_kind_4(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + INTEGER(KIND=4) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (value .NE. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ELSE + IF (value .EQ. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_integer_kind_4 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_integer_kind_8 +!DEC$endif + SUBROUTINE verify_integer_kind_8(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + INTEGER(KIND=8) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (value .NE. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ELSE + IF (value .EQ. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_integer_kind_8 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_integer_kind_16 +!DEC$endif + SUBROUTINE verify_integer_kind_16(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + INTEGER(KIND=16) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (value .NE. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ELSE + IF (value .EQ. correct_value) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT INTEGER VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_integer_kind_16 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_real_kind_4 +!DEC$endif + SUBROUTINE verify_real_kind_4(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + REAL(KIND=4) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (.NOT.real_eq_kind_4( value, correct_value) ) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT REAL VALIDATION ", string + ENDIF + ELSE + IF (real_eq_kind_4( value, correct_value) ) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT REAL VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_real_kind_4 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: real_eq_kind_4 +!DEC$endif + LOGICAL FUNCTION real_eq_kind_4(a,b,ulp) + IMPLICIT NONE + REAL(KIND=4), INTENT (in):: a,b + REAL(KIND=4) :: Rel + INTEGER, OPTIONAL, INTENT( IN ) :: ulp + IF ( PRESENT( ulp ) ) Rel = REAL( ABS(ulp), 4) + Rel = 1.0_4 + real_eq_kind_4 = ABS( a - b ) < ( Rel * SPACING( MAX(ABS(a),ABS(b)) ) ) + END FUNCTION real_eq_kind_4 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_real_kind_8 +!DEC$endif + SUBROUTINE verify_real_kind_8(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + REAL(KIND=8) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (.NOT.real_eq_kind_8( value, correct_value) ) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT REAL VALIDATION ", string + ENDIF + ELSE + IF (real_eq_kind_8( value, correct_value) ) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT REAL VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_real_kind_8 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: real_eq_kind_8 +!DEC$endif + LOGICAL FUNCTION real_eq_kind_8(a,b,ulp) + IMPLICIT NONE + REAL(KIND=8), INTENT (in):: a,b + REAL(KIND=8) :: Rel + INTEGER, OPTIONAL, INTENT( IN ) :: ulp + IF ( PRESENT( ulp ) ) Rel = REAL( ABS(ulp), 8) + Rel = 1.0_8 + real_eq_kind_8 = ABS( a - b ) < ( Rel * SPACING( MAX(ABS(a),ABS(b)) ) ) + END FUNCTION real_eq_kind_8 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_real_kind_10 +!DEC$endif + SUBROUTINE verify_real_kind_10(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + REAL(KIND=10) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (.NOT.real_eq_kind_10( value, correct_value) ) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT REAL VALIDATION ", string + ENDIF + ELSE + IF (real_eq_kind_10( value, correct_value) ) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT REAL VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_real_kind_10 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: real_eq_kind_10 +!DEC$endif + LOGICAL FUNCTION real_eq_kind_10(a,b,ulp) + IMPLICIT NONE + REAL(KIND=10), INTENT (in):: a,b + REAL(KIND=10) :: Rel + INTEGER, OPTIONAL, INTENT( IN ) :: ulp + IF ( PRESENT( ulp ) ) Rel = REAL( ABS(ulp), 10) + Rel = 1.0_10 + real_eq_kind_10 = ABS( a - b ) < ( Rel * SPACING( MAX(ABS(a),ABS(b)) ) ) + END FUNCTION real_eq_kind_10 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_real_kind_16 +!DEC$endif + SUBROUTINE verify_real_kind_16(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + REAL(KIND=16) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (.NOT.real_eq_kind_16( value, correct_value) ) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT REAL VALIDATION ", string + ENDIF + ELSE + IF (real_eq_kind_16( value, correct_value) ) THEN + total_error=total_error+1 + WRITE(*,*) "ERROR: INCORRECT REAL VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_real_kind_16 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: real_eq_kind_16 +!DEC$endif + LOGICAL FUNCTION real_eq_kind_16(a,b,ulp) + IMPLICIT NONE + REAL(KIND=16), INTENT (in):: a,b + REAL(KIND=16) :: Rel + INTEGER, OPTIONAL, INTENT( IN ) :: ulp + IF ( PRESENT( ulp ) ) Rel = REAL( ABS(ulp), 16) + Rel = 1.0_16 + real_eq_kind_16 = ABS( a - b ) < ( Rel * SPACING( MAX(ABS(a),ABS(b)) ) ) + END FUNCTION real_eq_kind_16 +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_character +!DEC$endif + SUBROUTINE verify_character(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER*(*) :: string + CHARACTER*(*) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (TRIM(value) .NE. TRIM(correct_value)) THEN + total_error = total_error + 1 + WRITE(*,*) "ERROR: INCORRECT VALIDATION ", string + ENDIF + ELSE + IF (TRIM(value) .EQ. TRIM(correct_value)) THEN + total_error = total_error + 1 + WRITE(*,*) "ERROR: INCORRECT VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_character +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_logical +!DEC$endif + SUBROUTINE verify_logical(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + LOGICAL :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (value .NEQV. correct_value) THEN + total_error = total_error + 1 + WRITE(*,*) "ERROR: INCORRECT VALIDATION ", string + ENDIF + ELSE + IF (value .EQV. correct_value) THEN + total_error = total_error + 1 + WRITE(*,*) "ERROR: INCORRECT VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_logical +!DEC$if defined(BUILD_HDF5_TEST_DLL) +!DEC$attributes dllexport :: verify_c_bool +!DEC$endif + SUBROUTINE verify_c_bool(string,value,correct_value,total_error,chck_eq) + IMPLICIT NONE + CHARACTER(LEN=*) :: string + LOGICAL(C_BOOL) :: value, correct_value + INTEGER :: total_error + LOGICAL, OPTIONAL :: chck_eq + LOGICAL :: chck_eq_opt + chck_eq_opt = .TRUE. + IF(PRESENT(chck_eq)) chck_eq_opt = chck_eq + IF(chck_eq_opt .EQV. .TRUE.)THEN + IF (value .NEQV. correct_value) THEN + total_error = total_error + 1 + WRITE(*,*) "ERROR: INCORRECT VALIDATION ", string + ENDIF + ELSE + IF (value .EQV. correct_value) THEN + total_error = total_error + 1 + WRITE(*,*) "ERROR: INCORRECT VALIDATION ", string + ENDIF + ENDIF + END SUBROUTINE verify_c_bool +END MODULE TH5_MISC_gen diff --git a/config/toolchain/fortpregen/gfortran/version.txt b/config/toolchain/fortpregen/gfortran/version.txt new file mode 100644 index 00000000000..5fe7b5e6b07 --- /dev/null +++ b/config/toolchain/fortpregen/gfortran/version.txt @@ -0,0 +1,4 @@ +HDF5_VERSION=2.0.0 +COMPILER=gfortran +PLATFORM=x86_64-w64-mingw32 +TOOLCHAIN=mingw64.cmake diff --git a/config/toolchain/intel.cmake b/config/toolchain/intel.cmake index f5b227ba2a0..7102f40a121 100644 --- a/config/toolchain/intel.cmake +++ b/config/toolchain/intel.cmake @@ -1,15 +1,15 @@ # Uncomment the following to use cross-compiling -#set(CMAKE_SYSTEM_NAME Linux) +#set (CMAKE_SYSTEM_NAME Linux) -set(CMAKE_COMPILER_VENDOR "intel") +set (CMAKE_COMPILER_VENDOR "intel") -set(CMAKE_C_COMPILER icx) -if(WIN32) - set(CMAKE_CXX_COMPILER icx) -else() - set(CMAKE_CXX_COMPILER icpx) -endif() -set(CMAKE_Fortran_COMPILER ifx) +set (CMAKE_C_COMPILER icx) +if (WIN32) + set (CMAKE_CXX_COMPILER icx) +else () + set (CMAKE_CXX_COMPILER icpx) +endif () +set (CMAKE_Fortran_COMPILER ifx) # the following is used if cross-compiling -set(CMAKE_CROSSCOMPILING_EMULATOR "") +set (CMAKE_CROSSCOMPILING_EMULATOR "") diff --git a/config/toolchain/mingw64.cmake b/config/toolchain/mingw64.cmake index d4d2e4e0532..86c235908e0 100644 --- a/config/toolchain/mingw64.cmake +++ b/config/toolchain/mingw64.cmake @@ -1,14 +1,37 @@ set (TOOLCHAIN_PREFIX x86_64-w64-mingw32) set (CMAKE_SYSTEM_NAME Windows) -set (CMAKE_C_COMPILER ${TOOLCHAIN_PREFIX}-gcc) -set (CMAKE_CXX_COMPILER ${TOOLCHAIN_PREFIX}-g++) -set (CMAKE_RC_COMPILER ${TOOLCHAIN_PREFIX}-windres) -set (CMAKE_Fortran_COMPILER ${TOOLCHAIN_PREFIX}-gfortran) -set (CMAKE_FIND_ROOT_PATH /usr/${TOOLCHAIN_PREFIX}) +set (CMAKE_SYSTEM_PROCESSOR x86_64) + +# specify the cross compiler +if (NOT DEFINED ENV{CC}) + set (CMAKE_C_COMPILER /usr/bin/${TOOLCHAIN_PREFIX}-gcc) +endif () +if (NOT DEFINED ENV{CXX}) +set (CMAKE_CXX_COMPILER /usr/bin/${TOOLCHAIN_PREFIX}-g++) +endif () +if (NOT DEFINED ENV{FC}) +set (CMAKE_Fortran_COMPILER /usr/bin/${TOOLCHAIN_PREFIX}-gfortran) +# set the resource compiler (RHBZ #652435) +endif () +if (NOT DEFINED ENV{RC}) +set (CMAKE_RC_COMPILER /usr/bin/${TOOLCHAIN_PREFIX}-windres) +endif () + +set (CMAKE_FIND_ROOT_PATH /usr/${TOOLCHAIN_PREFIX}/sys-root/mingw) + +# search for programs in the build host directories set (CMAKE_FIND_ROOT_PATH_MODE_PROGRAM NEVER) +# for libraries, headers and packages in the target directories set (CMAKE_FIND_ROOT_PATH_MODE_LIBRARY ONLY) set (CMAKE_FIND_ROOT_PATH_MODE_INCLUDE ONLY) +set (CMAKE_FIND_ROOT_PATH_MODE_PACKAGE ONLY) set (CMAKE_CROSSCOMPILING_EMULATOR wine64) +set (CROSSCOMPILING_PATH "WINEPATH=/usr/${TOOLCHAIN_PREFIX}/sys-root/mingw/bin/") -include_directories(/usr/${TOOLCHAIN_PREFIX}/include) set (CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS On CACHE BOOL "Export windows symbols") + +set (CMAKE_AR:FILEPATH /usr/bin/${TOOLCHAIN_PREFIX}-ar) +set (CMAKE_RANLIB:FILEPATH /usr/bin/${TOOLCHAIN_PREFIX}-ranlib) + +set (HDF5_USE_PREGEN_DIR "${CMAKE_CURRENT_LIST_DIR}/fortpregen/gfortran" CACHE PATH "Path to pregenerated Fortran files") + diff --git a/fortran/src/CMakeLists.txt b/fortran/src/CMakeLists.txt index e064b7be498..7ab7c21db2e 100644 --- a/fortran/src/CMakeLists.txt +++ b/fortran/src/CMakeLists.txt @@ -99,6 +99,12 @@ configure_file (${HDF5_F90_SRC_SOURCE_DIR}/H5fort_type_defines.h.cmake ${HDF5_F9 set (Fortran_COMPILER_ID CMAKE_Fortran_COMPILER_ID) +if (HDF5_USE_PREGEN) + set (HDF5_GENERATED_SOURCE_DIR ${HDF5_USE_PREGEN_DIR}) +else () + set (HDF5_GENERATED_SOURCE_DIR ${HDF5_F90_BINARY_DIR}) +endif () + #----------------------------------------------------------------------------- # Setup the Fortran auto-detection utilities # H5_buildiface.F90 used to generate various KIND interfaces @@ -110,13 +116,11 @@ target_include_directories (H5_buildiface PRIVATE "${HDF5_SRC_BINARY_DIR};${HDF5 #if (BUILD_SHARED_LIBS) # target_compile_definitions(H5_buildiface PRIVATE "$<$:/MT>") #endif () -if(MSVC) - set_property(TARGET H5_buildiface PROPERTY COMPILE_FLAGS "/MT") -endif() -#set_property(TARGET H5_buildiface APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") -if(MSVC) - set_property(TARGET H5_buildiface PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE") -endif() +if (MSVC) + set_property (TARGET H5_buildiface PROPERTY COMPILE_FLAGS "/MT") + #set_property (TARGET H5_buildiface APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") + set_property (TARGET H5_buildiface PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE") +endif () set_target_properties (H5_buildiface PROPERTIES LINKER_LANGUAGE Fortran @@ -138,20 +142,62 @@ add_executable (H5match_types ${HDF5_F90_SRC_SOURCE_DIR}/H5match_types.c ) target_include_directories (H5match_types PRIVATE "${HDF5_SRC_BINARY_DIR};${HDF5_SRC_INCLUDE_DIRS};${HDF5_F90_BINARY_DIR};$<$:${MPI_C_INCLUDE_DIRS}>") - -add_custom_command (TARGET H5match_types POST_BUILD - BYPRODUCTS ${HDF5_F90_BINARY_DIR}/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/H5fortran_types.F90 - COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ - WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR} -) +# check if a pre-generated H5fortran_types.F90 file is present +if (NOT EXISTS "${HDF5_GENERATED_SOURCE_DIR}/H5fortran_types.F90") + message (STATUS "No pre-generated H5fortran_types.F90 file found - generating one") + # execute the H5match_types program + if (CMAKE_CROSSCOMPILING) + add_custom_command (TARGET H5match_types POST_BUILD + BYPRODUCTS ${HDF5_F90_BINARY_DIR}/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/H5fortran_types.F90 + COMMAND ${CMAKE_COMMAND} + ARGS -E env ${CROSSCOMPILING_PATH} + COMMAND $ + WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR} + COMMENT "Generating the H5fortran_types.F90 and H5f90i_gen.h files" + ) + else () + add_custom_command (TARGET H5match_types POST_BUILD + BYPRODUCTS ${HDF5_F90_BINARY_DIR}/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/H5fortran_types.F90 + COMMAND $ + WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR} + COMMENT "Generating the H5fortran_types.F90 and H5f90i_gen.h files" + ) + endif () +else () + message (STATUS "Using existing pre-generated H5fortran_types.F90 file") + add_custom_command ( + OUTPUT gen_SRCS.stamp1 + COMMAND ${CMAKE_COMMAND} + ARGS -E touch gen_SRCS.stamp1 + DEPENDS H5f90i_gen.h H5fortran_types.F90 + WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} + COMMENT "Touch existing H5f90i_gen.h H5fortran_types.F90" + ) + set_source_files_properties (${HDF5_GENERATED_SOURCE_DIR}/H5fortran_types.F90 PROPERTIES GENERATED TRUE) + if (BUILD_SHARED_LIBS) + add_custom_command ( + OUTPUT shared/shared_gen_SRCS.stamp1 + BYPRODUCTS shared/H5f90i_gen.h shared/H5fortran_types.F90 + COMMAND ${CMAKE_COMMAND} + ARGS -E copy_if_different H5f90i_gen.h shared/H5f90i_gen.h + COMMAND ${CMAKE_COMMAND} + ARGS -E copy_if_different H5fortran_types.F90 shared/H5fortran_types.F90 + COMMAND ${CMAKE_COMMAND} + ARGS -E touch shared/shared_gen_SRCS.stamp1 + DEPENDS H5f90i_gen.h H5fortran_types.F90 gen_SRCS.stamp1 + WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} + COMMENT "Copy existing H5f90i_gen.h H5fortran_types.F90 to shared folder" + ) + endif () +endif () if (BUILD_STATIC_LIBS) add_custom_command (TARGET H5match_types POST_BUILD BYPRODUCTS ${HDF5_F90_BINARY_DIR}/static/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/static/H5fortran_types.F90 COMMAND ${CMAKE_COMMAND} - ARGS -E copy_if_different ${HDF5_F90_BINARY_DIR}/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/static/H5f90i_gen.h + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/static/H5f90i_gen.h COMMAND ${CMAKE_COMMAND} - ARGS -E copy_if_different ${HDF5_F90_BINARY_DIR}/H5fortran_types.F90 ${HDF5_F90_BINARY_DIR}/static/H5fortran_types.F90 + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5fortran_types.F90 ${HDF5_F90_BINARY_DIR}/static/H5fortran_types.F90 WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR}/static ) set_source_files_properties (${HDF5_F90_BINARY_DIR}/static/H5f90i_gen.h PROPERTIES GENERATED TRUE) @@ -161,9 +207,9 @@ if (BUILD_SHARED_LIBS) add_custom_command (TARGET H5match_types POST_BUILD BYPRODUCTS ${HDF5_F90_BINARY_DIR}/shared/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/shared/H5fortran_types.F90 COMMAND ${CMAKE_COMMAND} - ARGS -E copy_if_different ${HDF5_F90_BINARY_DIR}/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/shared/H5f90i_gen.h + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/shared/H5f90i_gen.h COMMAND ${CMAKE_COMMAND} - ARGS -E copy_if_different ${HDF5_F90_BINARY_DIR}/H5fortran_types.F90 ${HDF5_F90_BINARY_DIR}/shared/H5fortran_types.F90 + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5fortran_types.F90 ${HDF5_F90_BINARY_DIR}/shared/H5fortran_types.F90 WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR}/shared ) set_source_files_properties (${HDF5_F90_BINARY_DIR}/shared/H5f90i_gen.h PROPERTIES GENERATED TRUE) @@ -225,7 +271,7 @@ if (BUILD_STATIC_LIBS) PRIVATE "${HDF5_SRC_INCLUDE_DIRS};${HDF5_SRC_BINARY_DIR};${HDF5_F90_BINARY_DIR};${HDF5_F90_BINARY_DIR}/static;$<$:${MPI_C_INCLUDE_DIRS}>" INTERFACE "$/include>" ) - target_compile_options(${HDF5_F90_C_LIB_TARGET} PRIVATE "${HDF5_CMAKE_C_FLAGS}") + target_compile_options (${HDF5_F90_C_LIB_TARGET} PRIVATE "${HDF5_CMAKE_C_FLAGS}") TARGET_C_PROPERTIES (${HDF5_F90_C_LIB_TARGET} STATIC) target_link_libraries (${HDF5_F90_C_LIB_TARGET} PUBLIC ${HDF5_LIB_TARGET}) set_global_variable (HDF5_LIBRARIES_TO_EXPORT "${HDF5_LIBRARIES_TO_EXPORT};${HDF5_F90_C_LIB_TARGET}") @@ -244,8 +290,8 @@ if (BUILD_SHARED_LIBS) PRIVATE "${HDF5_SRC_INCLUDE_DIRS};${HDF5_SRC_BINARY_DIR};${HDF5_F90_BINARY_DIR};${HDF5_F90_BINARY_DIR}/shared;$<$:${MPI_C_INCLUDE_DIRS}>" INTERFACE "$/include>" ) - target_compile_options(${HDF5_F90_C_LIBSH_TARGET} PRIVATE "${HDF5_CMAKE_C_FLAGS}") - target_compile_definitions(${HDF5_F90_C_LIBSH_TARGET} PUBLIC "H5_BUILT_AS_DYNAMIC_LIB") + target_compile_options (${HDF5_F90_C_LIBSH_TARGET} PRIVATE "${HDF5_CMAKE_C_FLAGS}") + target_compile_definitions (${HDF5_F90_C_LIBSH_TARGET} PUBLIC "H5_BUILT_AS_DYNAMIC_LIB") TARGET_C_PROPERTIES (${HDF5_F90_C_LIBSH_TARGET} SHARED) target_link_libraries (${HDF5_F90_C_LIBSH_TARGET} PUBLIC ${HDF5_LIBSH_TARGET}) set_global_variable (HDF5_LIBRARIES_TO_EXPORT "${HDF5_LIBRARIES_TO_EXPORT};${HDF5_F90_C_LIBSH_TARGET}") @@ -289,22 +335,54 @@ set (f90_F_GEN_SOURCES ${HDF5_F90_SRC_SOURCE_DIR}/H5Dff.F90 ${HDF5_F90_SRC_SOURCE_DIR}/H5Pff.F90 ) -add_custom_command (TARGET H5_buildiface POST_BUILD - BYPRODUCTS ${HDF5_F90_BINARY_DIR}/H5_gen.F90 - COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ - WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR} - COMMENT "Generating the H5_gen.F90 file" -) +# check if a pre-generated H5fortran_types.F90 file is present +if (NOT EXISTS "${HDF5_GENERATED_SOURCE_DIR}/H5_gen.F90") + message (STATUS "No pre-generated H5_gen.F90 file found - generating one") + if (CMAKE_CROSSCOMPILING) + add_custom_command (TARGET H5_buildiface POST_BUILD + BYPRODUCTS ${HDF5_F90_BINARY_DIR}/H5_gen.F90 + COMMAND ${CMAKE_COMMAND} + ARGS -E env ${CROSSCOMPILING_PATH} + COMMAND $ + WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR} + COMMENT "Generating the H5_gen.F90 file" + ) + else () + add_custom_command (TARGET H5_buildiface POST_BUILD + BYPRODUCTS ${HDF5_F90_BINARY_DIR}/H5_gen.F90 + COMMAND $ + WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR} + COMMENT "Generating the H5_gen.F90 file" + ) + endif () +else () + message (STATUS "Using existing pre-generated H5_gen.F90 file") + add_custom_command ( + OUTPUT gen_SRCS.stamp3 + COMMAND ${CMAKE_COMMAND} + ARGS -E touch gen_SRCS.stamp3 + DEPENDS H5_gen.F90 + WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} + COMMENT "Touch existing H5_gen.F90" + ) + set_source_files_properties (${HDF5_GENERATED_SOURCE_DIR}/H5_gen.F90 PROPERTIES GENERATED TRUE) +endif () + +set (f90_gen_deps "") +if (NOT HDF5_USE_PREGEN) + set (f90_gen_deps H5_buildiface) +endif () + if (BUILD_STATIC_LIBS) add_custom_command (TARGET H5_buildiface POST_BUILD BYPRODUCTS ${HDF5_F90_BINARY_DIR}/static/H5_gen.F90 COMMAND ${CMAKE_COMMAND} - ARGS -E copy_if_different ${HDF5_F90_BINARY_DIR}/H5_gen.F90 ${HDF5_F90_BINARY_DIR}/static/H5_gen.F90 + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5_gen.F90 ${HDF5_F90_BINARY_DIR}/static/H5_gen.F90 WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR}/static COMMENT "Generating the H5_gen.F90 file" ) add_custom_target (H5gen ALL - DEPENDS H5_buildiface ${HDF5_F90_BINARY_DIR}/static/H5_gen.F90 + DEPENDS ${f90_gen_deps} ${HDF5_F90_BINARY_DIR}/static/H5_gen.F90 ) set_source_files_properties (${HDF5_F90_BINARY_DIR}/static/H5_gen.F90 PROPERTIES GENERATED TRUE) endif () @@ -313,12 +391,12 @@ if (BUILD_SHARED_LIBS) add_custom_command (TARGET H5_buildiface POST_BUILD BYPRODUCTS ${HDF5_F90_BINARY_DIR}/shared/H5_gen.F90 COMMAND ${CMAKE_COMMAND} - ARGS -E copy_if_different ${HDF5_F90_BINARY_DIR}/H5_gen.F90 ${HDF5_F90_BINARY_DIR}/shared/H5_gen.F90 + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5_gen.F90 ${HDF5_F90_BINARY_DIR}/shared/H5_gen.F90 WORKING_DIRECTORY ${HDF5_F90_BINARY_DIR}/shared COMMENT "Generating the H5_gen.F90 shared file" ) add_custom_target (H5genSH ALL - DEPENDS H5_buildiface ${HDF5_F90_BINARY_DIR}/shared/H5_gen.F90 + DEPENDS ${f90_gen_deps} ${HDF5_F90_BINARY_DIR}/shared/H5_gen.F90 ) set_source_files_properties (${HDF5_F90_BINARY_DIR}/shared/H5_gen.F90 PROPERTIES GENERATED TRUE) endif () @@ -384,8 +462,8 @@ if (BUILD_STATIC_LIBS) PRIVATE "${HDF5_F90_SRC_SOURCE_DIR};${CMAKE_Fortran_MODULE_DIRECTORY}/static;${HDF5_F90_BINARY_DIR};$<$:${MPI_Fortran_INCLUDE_DIRS}>" INTERFACE "$/${HDF5_INSTALL_MODULE_DIR}/static>" ) - target_compile_options(${HDF5_F90_LIB_TARGET} PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}") - target_compile_definitions(${HDF5_F90_LIB_TARGET} + target_compile_options (${HDF5_F90_LIB_TARGET} PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}") + target_compile_definitions (${HDF5_F90_LIB_TARGET} PRIVATE "$<$:HDF5F90_WINDOWS>" "$<$:${WIN_COMPILE_FLAGS}>" @@ -396,9 +474,9 @@ if (BUILD_STATIC_LIBS) ${LINK_Fortran_LIBS} "$<$:${MPI_Fortran_LIBRARIES}>" ) - if(MSVC) - set_property(TARGET ${HDF5_F90_LIB_TARGET} PROPERTY LINK_FLAGS "${WIN_LINK_FLAGS}") - endif() + if (MSVC) + set_property (TARGET ${HDF5_F90_LIB_TARGET} PROPERTY LINK_FLAGS "${WIN_LINK_FLAGS}") + endif () set_target_properties (${HDF5_F90_LIB_TARGET} PROPERTIES FOLDER libraries/fortran LINKER_LANGUAGE Fortran @@ -407,22 +485,22 @@ if (BUILD_STATIC_LIBS) H5_SET_LIB_OPTIONS (${HDF5_F90_LIB_TARGET} ${HDF5_F90_LIB_NAME} STATIC 0) set_global_variable (HDF5_LIBRARIES_TO_EXPORT "${HDF5_LIBRARIES_TO_EXPORT};${HDF5_F90_LIB_TARGET}") set (install_targets ${install_targets} ${HDF5_F90_LIB_TARGET}) - add_dependencies(${HDF5_F90_LIB_TARGET} H5gen) + add_dependencies (${HDF5_F90_LIB_TARGET} H5gen) endif () if (BUILD_SHARED_LIBS) - if(MSVC) - set(DLLDEF ${HDF5_F90_SRC_BINARY_DIR}/hdf5_fortrandll.def) - else() - set(DLLDEF "") - endif() + if (MSVC) + set (DLLDEF ${HDF5_F90_SRC_BINARY_DIR}/hdf5_fortrandll.def) + else () + set (DLLDEF "") + endif () add_library (${HDF5_F90_LIBSH_TARGET} SHARED ${DLLDEF} ${f90_F_SOURCES_SHARED}) target_include_directories (${HDF5_F90_LIBSH_TARGET} PRIVATE "${HDF5_F90_SRC_SOURCE_DIR};${CMAKE_Fortran_MODULE_DIRECTORY}/shared;${HDF5_F90_BINARY_DIR};$<$:${MPI_Fortran_INCLUDE_DIRS}>" INTERFACE "$/${HDF5_INSTALL_MODULE_DIR}/shared>" ) - target_compile_options(${HDF5_F90_LIBSH_TARGET} PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}") - target_compile_definitions(${HDF5_F90_LIBSH_TARGET} + target_compile_options (${HDF5_F90_LIBSH_TARGET} PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}") + target_compile_definitions (${HDF5_F90_LIBSH_TARGET} PUBLIC "H5_BUILT_AS_DYNAMIC_LIB" PRIVATE "$<$:BUILD_HDF5_DLL;HDF5F90_WINDOWS>" @@ -432,9 +510,9 @@ if (BUILD_SHARED_LIBS) PUBLIC ${HDF5_F90_C_LIBSH_TARGET} PRIVATE ${LINK_Fortran_LIBS} "$<$:${MPI_Fortran_LIBRARIES}>" ) - if(MSVC) + if (MSVC) target_link_options (${HDF5_F90_LIBSH_TARGET} PRIVATE "${WIN_LINK_FLAGS}") - endif() + endif () set_target_properties (${HDF5_F90_LIBSH_TARGET} PROPERTIES FOLDER libraries/fortran LINKER_LANGUAGE Fortran @@ -454,30 +532,24 @@ install ( ${HDF5_F90_SRC_SOURCE_DIR}/H5f90.h ${HDF5_F90_SRC_SOURCE_DIR}/H5f90i.h ${HDF5_F90_SRC_SOURCE_DIR}/H5f90proto.h - DESTINATION - ${HDF5_INSTALL_INCLUDE_DIR} - COMPONENT - fortheaders + DESTINATION ${HDF5_INSTALL_INCLUDE_DIR} + COMPONENT fortheaders ) if (BUILD_STATIC_LIBS) install ( FILES ${HDF5_F90_BINARY_DIR}/static/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/H5config_f.inc - DESTINATION - ${HDF5_INSTALL_INCLUDE_DIR} - COMPONENT - fortheaders + DESTINATION ${HDF5_INSTALL_INCLUDE_DIR} + COMPONENT fortheaders ) else () install ( FILES ${HDF5_F90_BINARY_DIR}/shared/H5f90i_gen.h ${HDF5_F90_BINARY_DIR}/H5config_f.inc - DESTINATION - ${HDF5_INSTALL_INCLUDE_DIR} - COMPONENT - fortheaders + DESTINATION ${HDF5_INSTALL_INCLUDE_DIR} + COMPONENT fortheaders ) endif () @@ -511,21 +583,15 @@ if (BUILD_STATIC_LIBS) set (mod_files ${mod_files} ${MOD_BUILD_DIR}/${mod_file}) endforeach () install ( - FILES - ${mod_files} - DESTINATION - ${HDF5_INSTALL_MODULE_DIR}/static - COMPONENT - fortheaders + FILES ${mod_files} + DESTINATION ${HDF5_INSTALL_MODULE_DIR}/static + COMPONENT fortheaders ) if (HDF5_INSTALL_MOD_FORTRAN MATCHES "STATIC") install ( - FILES - ${mod_files} - DESTINATION - ${HDF5_INSTALL_INCLUDE_DIR} - COMPONENT - fortheaders + FILES ${mod_files} + DESTINATION ${HDF5_INSTALL_INCLUDE_DIR} + COMPONENT fortheaders ) endif () endif () @@ -535,21 +601,15 @@ if (BUILD_SHARED_LIBS) set (modsh_files ${modsh_files} ${MODSH_BUILD_DIR}/${mod_file}) endforeach () install ( - FILES - ${modsh_files} - DESTINATION - ${HDF5_INSTALL_MODULE_DIR}/shared - COMPONENT - fortheaders + FILES ${modsh_files} + DESTINATION ${HDF5_INSTALL_MODULE_DIR}/shared + COMPONENT fortheaders ) if (HDF5_INSTALL_MOD_FORTRAN MATCHES "SHARED") install ( - FILES - ${modsh_files} - DESTINATION - ${HDF5_INSTALL_INCLUDE_DIR} - COMPONENT - fortheaders + FILES ${modsh_files} + DESTINATION ${HDF5_INSTALL_INCLUDE_DIR} + COMPONENT fortheaders ) endif () endif () @@ -568,10 +628,8 @@ if (HDF5_EXPORTED_TARGETS) endif () install ( - TARGETS - ${install_targets} - EXPORT - ${HDF5_EXPORTED_TARGETS} + TARGETS ${install_targets} + EXPORT ${HDF5_EXPORTED_TARGETS} LIBRARY DESTINATION ${HDF5_INSTALL_LIB_DIR} COMPONENT fortlibraries ARCHIVE DESTINATION ${HDF5_INSTALL_LIB_DIR} COMPONENT fortlibraries RUNTIME DESTINATION ${HDF5_INSTALL_BIN_DIR} COMPONENT fortlibraries diff --git a/fortran/test/CMakeLists.txt b/fortran/test/CMakeLists.txt index 0ea52e385fc..5c34919047f 100644 --- a/fortran/test/CMakeLists.txt +++ b/fortran/test/CMakeLists.txt @@ -7,6 +7,12 @@ cmake_minimum_required (VERSION 3.26) project (HDF5_FORTRAN_TESTS C Fortran) +if (HDF5_USE_PREGEN) + set (HDF5_GENERATED_SOURCE_DIR ${HDF5_USE_PREGEN_DIR}) +else () + set (HDF5_GENERATED_SOURCE_DIR ${HDF5_FORTRAN_TESTS_BINARY_DIR}) +endif () + #----------------------------------------------------------------------------- # Setup the Fortran auto-detection utilities # H5_test_buildiface.F90 used to generate various KIND test interfaces @@ -18,19 +24,19 @@ target_include_directories (H5_test_buildiface ${HDF5_SRC_BINARY_DIR} ${HDF5_F90_BINARY_DIR} ) #if (BUILD_SHARED_LIBS) -# target_compile_definitions(H5_test_buildiface +# target_compile_definitions (H5_test_buildiface # PRIVATE "$<$:/MT>" # ) #endif () -if(MSVC) - set_property(TARGET H5_test_buildiface PROPERTY COMPILE_FLAGS "/MT") -endif() -#set_property(TARGET H5_test_buildiface APPEND PROPERTY +if (MSVC) + set_property (TARGET H5_test_buildiface PROPERTY COMPILE_FLAGS "/MT") +endif () +#set_property (TARGET H5_test_buildiface APPEND PROPERTY # LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>" #) -if(MSVC) - set_property(TARGET H5_test_buildiface PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE") -endif() +if (MSVC) + set_property (TARGET H5_test_buildiface PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE") +endif () set_target_properties (H5_test_buildiface PROPERTIES LINKER_LANGUAGE Fortran Fortran_MODULE_DIRECTORY ${CMAKE_Fortran_MODULE_DIRECTORY} @@ -54,7 +60,7 @@ if (NOT BUILD_SHARED_LIBS) PRIVATE "${HDF5_SRC_INCLUDE_DIRS};${HDF5_SRC_BINARY_DIR};${HDF5_F90_BINARY_DIR};${HDF5_F90_BINARY_DIR}/static;$<$:${MPI_C_INCLUDE_DIRS}>" INTERFACE "$/include>" ) - target_compile_options(${HDF5_F90_C_TEST_LIB_TARGET} PRIVATE "${HDF5_CMAKE_C_FLAGS}") + target_compile_options (${HDF5_F90_C_TEST_LIB_TARGET} PRIVATE "${HDF5_CMAKE_C_FLAGS}") TARGET_C_PROPERTIES (${HDF5_F90_C_TEST_LIB_TARGET} STATIC) target_link_libraries (${HDF5_F90_C_TEST_LIB_TARGET} PRIVATE ${HDF5_F90_C_LIB_TARGET} @@ -71,8 +77,8 @@ else () PRIVATE "${HDF5_SRC_INCLUDE_DIRS};${HDF5_SRC_BINARY_DIR};${HDF5_F90_BINARY_DIR};${HDF5_F90_BINARY_DIR}/shared;$<$:${MPI_C_INCLUDE_DIRS}>" INTERFACE "$/include>" ) - target_compile_options(${HDF5_F90_C_TEST_LIBSH_TARGET} PRIVATE "${HDF5_CMAKE_C_FLAGS}") - target_compile_definitions(${HDF5_F90_C_TEST_LIBSH_TARGET} PUBLIC "H5_BUILT_AS_DYNAMIC_LIB") + target_compile_options (${HDF5_F90_C_TEST_LIBSH_TARGET} PRIVATE "${HDF5_CMAKE_C_FLAGS}") + target_compile_definitions (${HDF5_F90_C_TEST_LIBSH_TARGET} PUBLIC "H5_BUILT_AS_DYNAMIC_LIB") TARGET_C_PROPERTIES (${HDF5_F90_C_TEST_LIBSH_TARGET} SHARED) target_link_libraries (${HDF5_F90_C_TEST_LIBSH_TARGET} PRIVATE ${HDF5_F90_C_LIBSH_TARGET} @@ -96,26 +102,63 @@ if (HDF5_ENABLE_FORMATTERS) endif () endif () -if (NOT BUILD_SHARED_LIBS) - add_custom_command (TARGET H5_test_buildiface POST_BUILD - BYPRODUCTS ${HDF5_FORTRAN_TESTS_BINARY_DIR}/static/tf_gen.F90 - COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ - WORKING_DIRECTORY ${HDF5_FORTRAN_TESTS_BINARY_DIR}/static - COMMENT "Generating the tf_gen.F90 static file" +if (NOT EXISTS "${HDF5_GENERATED_SOURCE_DIR}/tf_gen.F90") + message (STATUS "No pre-generated tf_gen.F90 file found - generating one") + if (CMAKE_CROSSCOMPILING) + add_custom_command (TARGET H5_test_buildiface POST_BUILD + BYPRODUCTS ${HDF5_FORTRAN_TESTS_BINARY_DIR}/tf_gen.F90 + COMMAND ${CMAKE_COMMAND} + ARGS -E env ${CROSSCOMPILING_PATH} + COMMAND $ + WORKING_DIRECTORY ${HDF5_FORTRAN_TESTS_BINARY_DIR} + COMMENT "Generating the tf_gen.F90 static file" + ) + else () + add_custom_command (TARGET H5_test_buildiface POST_BUILD + BYPRODUCTS ${HDF5_FORTRAN_TESTS_BINARY_DIR}/tf_gen.F90 + COMMAND $ + WORKING_DIRECTORY ${HDF5_FORTRAN_TESTS_BINARY_DIR} + COMMENT "Generating the tf_gen.F90 static file" + ) + endif () +else () + message (STATUS "Using existing pre-generated tf_gen.F90 file") + add_custom_command ( + OUTPUT gen_SRCS.stamp4 + COMMAND ${CMAKE_COMMAND} + ARGS -E touch gen_SRCS.stamp4 + DEPENDS tf_gen.F90 + WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} + COMMENT "Touch existing tf_gen.F90" ) + set_source_files_properties (${HDF5_FORTRAN_TESTS_BINARY_DIR}/tf_gen.F90 PROPERTIES GENERATED TRUE) +endif () + +set (test_f90_gen_deps "") +if (NOT HDF5_USE_PREGEN) + set (test_f90_gen_deps H5_test_buildiface) +endif () + +if (NOT BUILD_SHARED_LIBS) + add_custom_command (TARGET H5_test_buildiface POST_BUILD + BYPRODUCTS ${HDF5_FORTRAN_TESTS_BINARY_DIR}/static/tf_gen.F90 + COMMAND ${CMAKE_COMMAND} + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/tf_gen.F90 ${HDF5_FORTRAN_TESTS_BINARY_DIR}/static/tf_gen.F90 + WORKING_DIRECTORY ${HDF5_FORTRAN_TESTS_BINARY_DIR}/static + ) add_custom_target (H5testgen ALL - DEPENDS H5_test_buildiface ${HDF5_FORTRAN_TESTS_BINARY_DIR}/static/tf_gen.F90 + DEPENDS ${test_f90_gen_deps} ${HDF5_FORTRAN_TESTS_BINARY_DIR}/static/tf_gen.F90 ) set_source_files_properties (${HDF5_FORTRAN_TESTS_BINARY_DIR}/static/tf_gen.F90 PROPERTIES GENERATED TRUE) else () add_custom_command (TARGET H5_test_buildiface POST_BUILD BYPRODUCTS ${HDF5_FORTRAN_TESTS_BINARY_DIR}/shared/tf_gen.F90 - COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ + COMMAND ${CMAKE_COMMAND} + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/tf_gen.F90 ${HDF5_FORTRAN_TESTS_BINARY_DIR}/shared/tf_gen.F90 WORKING_DIRECTORY ${HDF5_FORTRAN_TESTS_BINARY_DIR}/shared - COMMENT "Generating the tf_gen.F90 shared file" ) add_custom_target (H5testgenSH ALL - DEPENDS H5_test_buildiface ${HDF5_FORTRAN_TESTS_BINARY_DIR}/shared/tf_gen.F90 + DEPENDS ${test_f90_gen_deps} ${HDF5_FORTRAN_TESTS_BINARY_DIR}/shared/tf_gen.F90 ) set_source_files_properties (${HDF5_FORTRAN_TESTS_BINARY_DIR}/shared/tf_gen.F90 PROPERTIES GENERATED TRUE) endif () @@ -146,50 +189,50 @@ if (NOT BUILD_SHARED_LIBS) PRIVATE "${CMAKE_Fortran_MODULE_DIRECTORY}/static;${HDF5_F90_BINARY_DIR};${HDF5_F90_BINARY_DIR}/static" INTERFACE "$/include/static>" ) - target_compile_options(${HDF5_F90_TEST_LIB_TARGET} PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}") - target_compile_definitions(${HDF5_F90_TEST_LIB_TARGET} + target_compile_options (${HDF5_F90_TEST_LIB_TARGET} PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}") + target_compile_definitions (${HDF5_F90_TEST_LIB_TARGET} PRIVATE "$<$:HDF5F90_WINDOWS>" "$<$:${WIN_COMPILE_FLAGS}>" ) target_link_libraries (${HDF5_F90_TEST_LIB_TARGET} PUBLIC ${HDF5_F90_C_TEST_LIB_TARGET} ${HDF5_F90_LIB_TARGET} ${HDF5_LIB_TARGET}) -# set_property(TARGET ${HDF5_F90_TEST_LIB_TARGET} APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") - if(MSVC) - set_property(TARGET ${HDF5_F90_TEST_LIB_TARGET} PROPERTY LINK_FLAGS "${WIN_LINK_FLAGS}") - endif() +# set_property (TARGET ${HDF5_F90_TEST_LIB_TARGET} APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") + if (MSVC) + set_property (TARGET ${HDF5_F90_TEST_LIB_TARGET} PROPERTY LINK_FLAGS "${WIN_LINK_FLAGS}") + endif () set_target_properties (${HDF5_F90_TEST_LIB_TARGET} PROPERTIES FOLDER libraries/test/fortran LINKER_LANGUAGE Fortran Fortran_MODULE_DIRECTORY ${CMAKE_Fortran_MODULE_DIRECTORY}/static ) H5_SET_LIB_OPTIONS (${HDF5_F90_TEST_LIB_TARGET} ${HDF5_F90_TEST_LIB_NAME} STATIC 0) - add_dependencies(${HDF5_F90_TEST_LIB_TARGET} H5testgen) + add_dependencies (${HDF5_F90_TEST_LIB_TARGET} H5testgen) else () add_library (${HDF5_F90_TEST_LIBSH_TARGET} SHARED ${HDF5_F90_TF_SOURCES_SHARED}) target_include_directories (${HDF5_F90_TEST_LIBSH_TARGET} PRIVATE "${CMAKE_Fortran_MODULE_DIRECTORY}/shared;${HDF5_F90_BINARY_DIR};${HDF5_F90_BINARY_DIR}/shared" INTERFACE "$/include/shared>" ) - target_compile_options(${HDF5_F90_TEST_LIBSH_TARGET} PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}") - target_compile_definitions(${HDF5_F90_TEST_LIBSH_TARGET} + target_compile_options (${HDF5_F90_TEST_LIBSH_TARGET} PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}") + target_compile_definitions (${HDF5_F90_TEST_LIBSH_TARGET} PUBLIC "H5_BUILT_AS_DYNAMIC_LIB" PRIVATE "$<$:BUILD_HDF5_TEST_DLL;HDF5F90_WINDOWS>" "$<$:${WIN_COMPILE_FLAGS}>" ) target_link_libraries (${HDF5_F90_TEST_LIBSH_TARGET} PUBLIC ${HDF5_F90_C_TEST_LIBSH_TARGET} ${HDF5_F90_LIBSH_TARGET} ${HDF5_LIBSH_TARGET}) -# set_property(TARGET ${HDF5_F90_TEST_LIBSH_TARGET} APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") -# set_property(TARGET ${HDF5_F90_TEST_LIBSH_TARGET} APPEND PROPERTY LINK_FLAGS "$<$:/DLL>") -# if(MSVC) +# set_property (TARGET ${HDF5_F90_TEST_LIBSH_TARGET} APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") +# set_property (TARGET ${HDF5_F90_TEST_LIBSH_TARGET} APPEND PROPERTY LINK_FLAGS "$<$:/DLL>") +# if (MSVC) # target_link_options (${HDF5_F90_TEST_LIBSH_TARGET} PRIVATE "${WIN_LINK_FLAGS} /DLL") -# endif() +# endif () set_target_properties (${HDF5_F90_TEST_LIBSH_TARGET} PROPERTIES FOLDER libraries/test/fortran LINKER_LANGUAGE Fortran Fortran_MODULE_DIRECTORY ${CMAKE_Fortran_MODULE_DIRECTORY}/shared ) H5_SET_LIB_OPTIONS (${HDF5_F90_TEST_LIBSH_TARGET} ${HDF5_F90_TEST_LIB_NAME} SHARED "F") - add_dependencies(${HDF5_F90_TEST_LIBSH_TARGET} H5testgenSH) + add_dependencies (${HDF5_F90_TEST_LIBSH_TARGET} H5testgenSH) endif () #----------------------------------------------------------------------------- @@ -214,16 +257,16 @@ add_executable (testhdf5_fortran tH5Z.F90 tHDF5.F90 ) -target_compile_options(testhdf5_fortran +target_compile_options (testhdf5_fortran PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}" "$<$:${WIN_COMPILE_FLAGS}>" ) -#set_property(TARGET testhdf5_fortran APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") -#set_property(TARGET testhdf5_fortran APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") -if(MSVC) - set_property(TARGET testhdf5_fortran PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") -endif() +#set_property (TARGET testhdf5_fortran APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") +#set_property (TARGET testhdf5_fortran APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") +if (MSVC) + set_property (TARGET testhdf5_fortran PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") +endif () if (NOT BUILD_SHARED_LIBS) target_include_directories (testhdf5_fortran PRIVATE "${CMAKE_Fortran_MODULE_DIRECTORY}/static;${HDF5_F90_BINARY_DIR};${HDF5_F90_BINARY_DIR}/static") target_link_libraries (testhdf5_fortran PRIVATE ${HDF5_F90_TEST_LIB_TARGET} ${HDF5_F90_LIB_TARGET} ${HDF5_LIB_TARGET} "$<$:ws2_32.lib>") @@ -253,16 +296,16 @@ add_executable (testhdf5_fortran_1_8 tH5MISC_1_8.F90 tHDF5_1_8.F90 ) -target_compile_options(testhdf5_fortran_1_8 +target_compile_options (testhdf5_fortran_1_8 PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}" "$<$:${WIN_COMPILE_FLAGS}>" ) -#set_property(TARGET testhdf5_fortran_1_8 APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") -#set_property(TARGET testhdf5_fortran_1_8 APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") -if(MSVC) - set_property(TARGET testhdf5_fortran_1_8 PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") -endif() +#set_property (TARGET testhdf5_fortran_1_8 APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") +#set_property (TARGET testhdf5_fortran_1_8 APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") +if (MSVC) + set_property (TARGET testhdf5_fortran_1_8 PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") +endif () if (NOT BUILD_SHARED_LIBS) target_include_directories (testhdf5_fortran_1_8 PRIVATE "${CMAKE_Fortran_MODULE_DIRECTORY}/static;${HDF5_F90_BINARY_DIR};${HDF5_F90_BINARY_DIR}/static") target_link_libraries (testhdf5_fortran_1_8 PRIVATE ${HDF5_F90_TEST_LIB_TARGET} ${HDF5_F90_LIB_TARGET} ${HDF5_LIB_TARGET} "$<$:ws2_32.lib>") @@ -293,16 +336,16 @@ add_executable (fortranlib_test_F03 tH5T_F03.F90 tHDF5_F03.F90 ) -target_compile_options(fortranlib_test_F03 +target_compile_options (fortranlib_test_F03 PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}" "$<$:${WIN_COMPILE_FLAGS}>" ) -#set_property(TARGET fortranlib_test_F03 APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") -#set_property(TARGET fortranlib_test_F03 APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") -if(MSVC) - set_property(TARGET fortranlib_test_F03 PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") -endif() +#set_property (TARGET fortranlib_test_F03 APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") +#set_property (TARGET fortranlib_test_F03 APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") +if (MSVC) + set_property (TARGET fortranlib_test_F03 PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") +endif () if (NOT BUILD_SHARED_LIBS) target_include_directories (fortranlib_test_F03 PRIVATE "${CMAKE_Fortran_MODULE_DIRECTORY}/static;${HDF5_F90_BINARY_DIR};${HDF5_F90_BINARY_DIR}/static") target_link_libraries (fortranlib_test_F03 PRIVATE ${HDF5_F90_TEST_LIB_TARGET} ${HDF5_F90_LIB_TARGET} ${HDF5_LIB_TARGET} "$<$:ws2_32.lib>") @@ -325,16 +368,16 @@ endif () #-- Adding test for fflush1 add_executable (fflush1 fflush1.F90) -target_compile_options(fflush1 +target_compile_options (fflush1 PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}" "$<$:${WIN_COMPILE_FLAGS}>" ) -#set_property(TARGET fflush1 APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") -#set_property(TARGET fflush1 APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") -if(MSVC) - set_property(TARGET fflush1 PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") -endif() +#set_property (TARGET fflush1 APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") +#set_property (TARGET fflush1 APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") +if (MSVC) + set_property (TARGET fflush1 PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") +endif () if (NOT BUILD_SHARED_LIBS) target_include_directories (fflush1 PRIVATE ${CMAKE_Fortran_MODULE_DIRECTORY}/static) target_link_libraries (fflush1 PRIVATE ${HDF5_F90_LIB_TARGET} ${HDF5_F90_TEST_LIB_TARGET} ${HDF5_LIB_TARGET} "$<$:ws2_32.lib>") @@ -362,11 +405,11 @@ target_compile_options (fflush2 "${HDF5_CMAKE_Fortran_FLAGS}" "$<$:${WIN_COMPILE_FLAGS}>" ) -#set_property(TARGET fflush2 APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") -#set_property(TARGET fflush2 APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") -if(MSVC) - set_property(TARGET fflush2 PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") -endif() +#set_property (TARGET fflush2 APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") +#set_property (TARGET fflush2 APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") +if (MSVC) + set_property (TARGET fflush2 PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") +endif () if (NOT BUILD_SHARED_LIBS) target_include_directories (fflush2 PRIVATE ${CMAKE_Fortran_MODULE_DIRECTORY}/static) target_link_libraries (fflush2 PRIVATE ${HDF5_F90_TEST_LIB_TARGET} ${HDF5_F90_LIB_TARGET} ${HDF5_LIB_TARGET} "$<$:ws2_32.lib>") @@ -389,16 +432,16 @@ endif () #-- Adding test for vol_connector add_executable (vol_connector vol_connector.F90) -target_compile_options(vol_connector +target_compile_options (vol_connector PRIVATE "${HDF5_CMAKE_Fortran_FLAGS}" "$<$:${WIN_COMPILE_FLAGS}>" ) -#set_property(TARGET vol_connector APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") -#set_property(TARGET vol_connector APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") -if(MSVC) - set_property(TARGET vol_connector PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") -endif() +#set_property (TARGET vol_connector APPEND PROPERTY LINK_FLAGS "$<$:/SUBSYSTEM:CONSOLE>") +#set_property (TARGET vol_connector APPEND PROPERTY LINK_FLAGS "$<$:${WIN_LINK_FLAGS}>") +if (MSVC) + set_property (TARGET vol_connector PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE ${WIN_LINK_FLAGS}") +endif () if (NOT BUILD_SHARED_LIBS) target_include_directories (vol_connector PRIVATE ${CMAKE_Fortran_MODULE_DIRECTORY}/static) target_link_libraries (vol_connector PRIVATE ${HDF5_F90_LIB_TARGET} ${HDF5_F90_TEST_LIB_TARGET} ${HDF5_LIB_TARGET} "$<$:ws2_32.lib>") diff --git a/fortran/test/CMakeTests.cmake b/fortran/test/CMakeTests.cmake index 66a5f058634..fe837cb7181 100644 --- a/fortran/test/CMakeTests.cmake +++ b/fortran/test/CMakeTests.cmake @@ -74,10 +74,9 @@ set_tests_properties (FORTRAN_testhdf5-clean-objects PROPERTIES ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME FORTRAN_testhdf5_fortran COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME FORTRAN_testhdf5_fortran COMMAND $) else () add_test (NAME FORTRAN_testhdf5_fortran COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_EXPECT=0" @@ -93,6 +92,7 @@ endif () #set_tests_properties (FORTRAN_testhdf5_fortran PROPERTIES PASS_REGULAR_EXPRESSION "[ ]*0 error.s") set_tests_properties (FORTRAN_testhdf5_fortran PROPERTIES FIXTURES_REQUIRED clear_testhdf5_fortran + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("FORTRAN_testhdf5_fortran" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (FORTRAN_testhdf5_fortran PROPERTIES DISABLED true) @@ -100,10 +100,9 @@ endif () #-- Adding test for testhdf5_fortran_1_8 if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME FORTRAN_testhdf5_fortran_1_8 COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME FORTRAN_testhdf5_fortran_1_8 COMMAND $) else () add_test (NAME FORTRAN_testhdf5_fortran_1_8 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_EXPECT=0" @@ -120,6 +119,7 @@ endif () set_tests_properties (FORTRAN_testhdf5_fortran_1_8 PROPERTIES DEPENDS FORTRAN_testhdf5_fortran FIXTURES_REQUIRED clear_testhdf5_fortran + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("FORTRAN_testhdf5_fortran_1_8" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (FORTRAN_testhdf5_fortran_1_8 PROPERTIES DISABLED true) @@ -127,10 +127,9 @@ endif () #-- Adding test for fortranlib_test_F03 if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME FORTRAN_fortranlib_test_F03 COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME FORTRAN_fortranlib_test_F03 COMMAND $) else () add_test (NAME FORTRAN_fortranlib_test_F03 COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_EXPECT=0" @@ -147,6 +146,7 @@ endif () set_tests_properties (FORTRAN_fortranlib_test_F03 PROPERTIES DEPENDS FORTRAN_testhdf5_fortran_1_8 FIXTURES_REQUIRED clear_testhdf5_fortran + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("FORTRAN_fortranlib_test_F03" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (FORTRAN_fortranlib_test_F03 PROPERTIES DISABLED true) @@ -154,10 +154,9 @@ endif () #-- Adding test for vol_connector if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME FORTRAN_vol_connector COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME FORTRAN_vol_connector COMMAND $) else () add_test (NAME FORTRAN_vol_connector COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_EXPECT=0" @@ -172,6 +171,7 @@ else () endif () set_tests_properties (FORTRAN_vol_connector PROPERTIES FIXTURES_REQUIRED clear_testhdf5_fortran + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("FORTRAN_vol_connector" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (FORTRAN_vol_connector PROPERTIES DISABLED true) @@ -184,10 +184,11 @@ add_test ( ) add_test ( NAME FORTRAN_fflush1 - COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ + COMMAND $ ) set_tests_properties (FORTRAN_fflush1 PROPERTIES DEPENDS FORTRAN_flush1-clear-objects + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("FORTRAN_fflush1" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (FORTRAN_fflush1 PROPERTIES DISABLED true) @@ -196,9 +197,10 @@ endif () #-- Adding test for fflush2 add_test ( NAME FORTRAN_fflush2 - COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ + COMMAND $ ) set_tests_properties (FORTRAN_fflush2 PROPERTIES + ENVIRONMENT "${CROSSCOMPILING_PATH}" DEPENDS FORTRAN_fflush1 ) if ("FORTRAN_fflush2" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") diff --git a/hl/c++/test/CMakeTests.cmake b/hl/c++/test/CMakeTests.cmake index 159597d5b99..eab6cead7a6 100644 --- a/hl/c++/test/CMakeTests.cmake +++ b/hl/c++/test/CMakeTests.cmake @@ -29,10 +29,9 @@ set_tests_properties (HL_CPP_ptableTest-clear-objects PROPERTIES ) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME HL_CPP_ptableTest COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME HL_CPP_ptableTest COMMAND $) else () add_test (NAME HL_CPP_ptableTest COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_EXPECT=0" @@ -43,7 +42,10 @@ else () -P "${HDF_RESOURCES_DIR}/runTest.cmake" ) endif () -set_tests_properties (HL_CPP_ptableTest PROPERTIES DEPENDS HL_CPP_ptableTest-clear-objects) +set_tests_properties (HL_CPP_ptableTest PROPERTIES + DEPENDS HL_CPP_ptableTest-clear-objects + ENVIRONMENT "${CROSSCOMPILING_PATH}" +) if ("HL_CPP_ptableTest" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (HL_CPP_ptableTest PROPERTIES DISABLED true) endif () diff --git a/hl/fortran/src/CMakeLists.txt b/hl/fortran/src/CMakeLists.txt index 8a5ca544357..0ddb4726106 100644 --- a/hl/fortran/src/CMakeLists.txt +++ b/hl/fortran/src/CMakeLists.txt @@ -6,6 +6,12 @@ cmake_minimum_required (VERSION 3.26) project (HDF5_HL_F90_SRC C Fortran) +if (HDF5_USE_PREGEN) + set (HDF5_GENERATED_SOURCE_DIR ${HDF5_USE_PREGEN_DIR}) +else () + set (HDF5_GENERATED_SOURCE_DIR ${HDF5_HL_F90_BINARY_DIR}) +endif () + #----------------------------------------------------------------------------- # configure def file for shared libs on windows if (WIN32) @@ -27,9 +33,9 @@ if (WIN32 AND MSVC) set_target_properties (H5HL_buildiface PROPERTIES COMPILE_FLAGS "/MT") endif () endif () -if(MSVC) - set_property(TARGET H5HL_buildiface PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE") -endif() +if (MSVC) + set_property (TARGET H5HL_buildiface PROPERTY LINK_FLAGS "/SUBSYSTEM:CONSOLE") +endif () set_target_properties (H5HL_buildiface PROPERTIES LINKER_LANGUAGE Fortran Fortran_MODULE_DIRECTORY ${CMAKE_Fortran_MODULE_DIRECTORY} @@ -116,15 +122,53 @@ set (HDF5_HL_F90_F_BASE_SOURCES ${HDF5_HL_F90_SRC_SOURCE_DIR}/H5DOff.F90 ) +if (NOT EXISTS "${HDF5_GENERATED_SOURCE_DIR}/H5LTff_gen.F90") + message (STATUS "No pre-generated H5LTff_gen.F90 H5TBff_gen.F90 file found - generating one") + if (CMAKE_CROSSCOMPILING) + add_custom_command (TARGET H5HL_buildiface POST_BUILD + BYPRODUCTS ${HDF5_HL_F90_BINARY_DIR}/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/H5TBff_gen.F90 + COMMAND ${CMAKE_COMMAND} + ARGS -E env ${CROSSCOMPILING_PATH} + COMMAND $ + WORKING_DIRECTORY ${HDF5_HL_F90_BINARY_DIR} + COMMENT "Generating the H5LTff_gen.F90, H5TBff_gen.F90 files" + ) + else () + add_custom_command (TARGET H5HL_buildiface POST_BUILD + BYPRODUCTS ${HDF5_HL_F90_BINARY_DIR}/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/H5TBff_gen.F90 + COMMAND $ + WORKING_DIRECTORY ${HDF5_HL_F90_BINARY_DIR} + COMMENT "Generating the H5LTff_gen.F90, H5TBff_gen.F90 files" + ) + endif () +else () + message (STATUS "Using existing pre-generated H5LTff_gen.F90 H5TBff_gen.F90 file") + add_custom_command ( + OUTPUT gen_SRCS.stamp5 + COMMAND ${CMAKE_COMMAND} + ARGS -E touch gen_SRCS.stamp5 + DEPENDS H5LTff_gen.F90 H5TBff_gen.F90 + WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} + COMMENT "Touch existing H5LTff_gen.F90 H5TBff_gen.F90" + ) +endif () + +set (hl_f90_gen_deps "") +if (NOT HDF5_USE_PREGEN) + set (hl_f90_gen_deps H5HL_buildiface) +endif () + if (BUILD_STATIC_LIBS) add_custom_command (TARGET H5HL_buildiface POST_BUILD BYPRODUCTS ${HDF5_HL_F90_BINARY_DIR}/static/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/static/H5TBff_gen.F90 - COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ + COMMAND ${CMAKE_COMMAND} + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/static/H5LTff_gen.F90 + COMMAND ${CMAKE_COMMAND} + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5TBff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/static/H5TBff_gen.F90 WORKING_DIRECTORY ${HDF5_HL_F90_BINARY_DIR}/static - COMMENT "Generating the H5LTff_gen.F90, H5TBff_gen.F90 files" ) add_custom_target (H5HLgen ALL - DEPENDS H5HL_buildiface ${HDF5_HL_F90_BINARY_DIR}/static/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/static/H5TBff_gen.F90 + DEPENDS ${hl_f90_gen_deps} ${HDF5_HL_F90_BINARY_DIR}/static/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/static/H5TBff_gen.F90 ) set_source_files_properties ( ${HDF5_HL_F90_BINARY_DIR}/static/H5LTff_gen.F90 @@ -135,12 +179,14 @@ endif () if (BUILD_SHARED_LIBS) add_custom_command (TARGET H5HL_buildiface POST_BUILD BYPRODUCTS ${HDF5_HL_F90_BINARY_DIR}/shared/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/shared/H5TBff_gen.F90 - COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ + COMMAND ${CMAKE_COMMAND} + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/shared/H5LTff_gen.F90 + COMMAND ${CMAKE_COMMAND} + ARGS -E copy_if_different ${HDF5_GENERATED_SOURCE_DIR}/H5TBff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/shared/H5TBff_gen.F90 WORKING_DIRECTORY ${HDF5_HL_F90_BINARY_DIR}/shared - COMMENT "Generating the H5LTff_gen.F90, H5TBff_gen.F90 shared files" ) add_custom_target (H5HLgenSH ALL - DEPENDS H5HL_buildiface ${HDF5_HL_F90_BINARY_DIR}/shared/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/shared/H5TBff_gen.F90 + DEPENDS ${hl_f90_gen_deps} ${HDF5_HL_F90_BINARY_DIR}/shared/H5LTff_gen.F90 ${HDF5_HL_F90_BINARY_DIR}/shared/H5TBff_gen.F90 ) set_source_files_properties ( ${HDF5_HL_F90_BINARY_DIR}/shared/H5LTff_gen.F90 @@ -258,21 +304,15 @@ if (BUILD_STATIC_LIBS) set (mod_files ${mod_files} ${MOD_BUILD_DIR}/${mod_file}) endforeach () install ( - FILES - ${mod_files} - DESTINATION - ${HDF5_INSTALL_MODULE_DIR}/static - COMPONENT - fortheaders + FILES ${mod_files} + DESTINATION ${HDF5_INSTALL_MODULE_DIR}/static + COMPONENT fortheaders ) if (HDF5_INSTALL_MOD_FORTRAN MATCHES "STATIC") install ( - FILES - ${mod_files} - DESTINATION - ${HDF5_INSTALL_INCLUDE_DIR} - COMPONENT - fortheaders + FILES ${mod_files} + DESTINATION ${HDF5_INSTALL_INCLUDE_DIR} + COMPONENT fortheaders ) endif () endif () @@ -281,21 +321,15 @@ if (BUILD_SHARED_LIBS) set (modsh_files ${modsh_files} ${MODSH_BUILD_DIR}/${mod_file}) endforeach () install ( - FILES - ${modsh_files} - DESTINATION - ${HDF5_INSTALL_MODULE_DIR}/shared - COMPONENT - fortheaders + FILES ${modsh_files} + DESTINATION ${HDF5_INSTALL_MODULE_DIR}/shared + COMPONENT fortheaders ) if (HDF5_INSTALL_MOD_FORTRAN MATCHES "SHARED") install ( - FILES - ${modsh_files} - DESTINATION - ${HDF5_INSTALL_INCLUDE_DIR} - COMPONENT - fortheaders + FILES ${modsh_files} + DESTINATION ${HDF5_INSTALL_INCLUDE_DIR} + COMPONENT fortheaders ) endif () endif () @@ -314,10 +348,8 @@ if (HDF5_EXPORTED_TARGETS) endif () install ( - TARGETS - ${install_targets} - EXPORT - ${HDF5_EXPORTED_TARGETS} + TARGETS ${install_targets} + EXPORT ${HDF5_EXPORTED_TARGETS} LIBRARY DESTINATION ${HDF5_INSTALL_LIB_DIR} COMPONENT hlfortlibraries ARCHIVE DESTINATION ${HDF5_INSTALL_LIB_DIR} COMPONENT hlfortlibraries RUNTIME DESTINATION ${HDF5_INSTALL_BIN_DIR} COMPONENT hlfortlibraries diff --git a/hl/fortran/test/CMakeTests.cmake b/hl/fortran/test/CMakeTests.cmake index 3d325916bc1..bbecfce4119 100644 --- a/hl/fortran/test/CMakeTests.cmake +++ b/hl/fortran/test/CMakeTests.cmake @@ -50,10 +50,9 @@ set_tests_properties (HL_FORTRAN_test-clean-objects PROPERTIES macro (ADD_H5_FORTRAN_TEST file) if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME HL_FORTRAN_f90_${file} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME HL_FORTRAN_f90_${file} COMMAND $) else () add_test (NAME HL_FORTRAN_f90_${file} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_EXPECT=0" @@ -67,6 +66,7 @@ macro (ADD_H5_FORTRAN_TEST file) set_tests_properties (HL_FORTRAN_f90_${file} PROPERTIES FIXTURES_REQUIRED clear_HL_FORTRAN_test WORKING_DIRECTORY ${PROJECT_BINARY_DIR} + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("HL_FORTRAN_f90_${file}" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (HL_FORTRAN_f90_${file} PROPERTIES DISABLED true) diff --git a/hl/test/CMakeTests.cmake b/hl/test/CMakeTests.cmake index ec8f9c9b999..563eb8dfc85 100644 --- a/hl/test/CMakeTests.cmake +++ b/hl/test/CMakeTests.cmake @@ -42,9 +42,9 @@ set (HL_REFERENCE_TEST_FILES #-- Copy the necessary files. # -------------------------------------------------------------------- foreach (h5_file ${HL_REFERENCE_TEST_FILES}) - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/testfiles/${h5_file}" "${HDF5_HL_TEST_BINARY_DIR}/testfiles/${h5_file}" "hl_test_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/testfiles/${h5_file}" "${HDF5_HL_TEST_BINARY_DIR}/testfiles/${h5_file}" "hl_test_files") endforeach () -add_custom_target(hl_test_files ALL COMMENT "Copying files needed by hl_test tests" DEPENDS ${hl_test_files_list}) +add_custom_target (hl_test_files ALL COMMENT "Copying files needed by hl_test tests" DEPENDS ${hl_test_files_list}) # Remove any output file left over from previous test run set (test_hl_CLEANFILES @@ -101,10 +101,9 @@ set_tests_properties (HL_test-clean-objects PROPERTIES macro (HL_ADD_TEST hl_name) set (current_test_name "HL_${hl_name}") if (HDF5_ENABLE_USING_MEMCHECKER) - add_test (NAME HL_${hl_name} COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) + add_test (NAME HL_${hl_name} COMMAND $) else () add_test (NAME HL_${hl_name} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=" -D "TEST_EXPECT=0" @@ -118,7 +117,6 @@ macro (HL_ADD_TEST hl_name) add_test ( NAME H5DUMP-HL_${hl_name} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=--enable-error-stack;${hl_name}.h5" -D "TEST_FOLDER=${HDF5_HL_TEST_BINARY_DIR}" @@ -135,7 +133,7 @@ macro (HL_ADD_TEST hl_name) endif () set_tests_properties (${current_test_name} PROPERTIES FIXTURES_REQUIRED clear_test_hl - ENVIRONMENT "srcdir=${HDF5_HL_TEST_BINARY_DIR}" + ENVIRONMENT "srcdir=${HDF5_HL_TEST_BINARY_DIR};${CROSSCOMPILING_PATH}" WORKING_DIRECTORY ${HDF5_HL_TEST_BINARY_DIR} ) if ("HL_${hl_name}" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") diff --git a/hl/tools/h5watch/CMakeTests.cmake b/hl/tools/h5watch/CMakeTests.cmake index 7bbc8deac02..c74c82bbf35 100644 --- a/hl/tools/h5watch/CMakeTests.cmake +++ b/hl/tools/h5watch/CMakeTests.cmake @@ -58,9 +58,9 @@ set (H5WATCH_TEST_FILES file (MAKE_DIRECTORY "${PROJECT_BINARY_DIR}/testfiles") foreach (h5watch_file ${H5WATCH_TEST_FILES}) - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/testfiles/${h5watch_file}" "${PROJECT_BINARY_DIR}/testfiles/${h5watch_file}" "H5WATCH_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/testfiles/${h5watch_file}" "${PROJECT_BINARY_DIR}/testfiles/${h5watch_file}" "H5WATCH_files") endforeach () -add_custom_target(H5WATCH_files ALL COMMENT "Copying files needed by H5WATCH tests" DEPENDS ${H5WATCH_files_list}) +add_custom_target (H5WATCH_files ALL COMMENT "Copying files needed by H5WATCH tests" DEPENDS ${H5WATCH_files_list}) ############################################################################## ############################################################################## @@ -73,7 +73,6 @@ add_custom_target(H5WATCH_files ALL COMMENT "Copying files needed by H5WATCH tes add_test ( NAME H5WATCH_ARGS-h5watch-${resultfile} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}/testfiles" @@ -85,6 +84,7 @@ add_custom_target(H5WATCH_files ALL COMMENT "Copying files needed by H5WATCH tes set_tests_properties (H5WATCH_ARGS-h5watch-${resultfile} PROPERTIES DEPENDS ${last_test} FIXTURES_REQUIRED gen_test_watch + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("H5WATCH_ARGS-h5watch-${resultfile}" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (H5WATCH_ARGS-h5watch-${resultfile} PROPERTIES DISABLED true) @@ -98,7 +98,6 @@ add_custom_target(H5WATCH_files ALL COMMENT "Copying files needed by H5WATCH tes add_test ( NAME H5WATCH_ARGS-h5watch-${resultfile} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}/testfiles" @@ -112,6 +111,7 @@ add_custom_target(H5WATCH_files ALL COMMENT "Copying files needed by H5WATCH tes set_tests_properties (H5WATCH_ARGS-h5watch-${resultfile} PROPERTIES DEPENDS ${last_test} FIXTURES_REQUIRED gen_test_watch + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("H5WATCH_ARGS-h5watch-${resultfile}" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (H5WATCH_ARGS-h5watch-${resultfile} PROPERTIES DISABLED true) @@ -125,7 +125,6 @@ add_custom_target(H5WATCH_files ALL COMMENT "Copying files needed by H5WATCH tes add_test ( NAME H5WATCH-${resultfile} COMMAND "${CMAKE_COMMAND}" - -D "TEST_EMULATOR=${CMAKE_CROSSCOMPILING_EMULATOR}" -D "TEST_PROGRAM=$" -D "TEST_ARGS:STRING=${ARGN}" -D "TEST_FOLDER=${PROJECT_BINARY_DIR}/testfiles" @@ -137,6 +136,7 @@ add_custom_target(H5WATCH_files ALL COMMENT "Copying files needed by H5WATCH tes set_tests_properties (H5WATCH-${resultfile} PROPERTIES DEPENDS ${last_test} FIXTURES_REQUIRED gen_test_watch + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) if ("H5WATCH-${resultfile}" MATCHES "${HDF5_DISABLE_TESTS_REGEX}") set_tests_properties (H5WATCH-${resultfile} PROPERTIES DISABLED true) @@ -157,12 +157,15 @@ add_test ( NAME H5WATCH-SWMR_INCOMPAT COMMAND swmr_check_compat_vfd ) -set_tests_properties (H5WATCH-SWMR_INCOMPAT PROPERTIES FIXTURES_SETUP swmr_vfd_check_compat) +set_tests_properties (H5WATCH-SWMR_INCOMPAT PROPERTIES + FIXTURES_SETUP swmr_vfd_check_compat + ENVIRONMENT "${CROSSCOMPILING_PATH}" +) # Remove any output file left over from previous test run add_test ( - NAME H5WATCH-clearall-objects - COMMAND ${CMAKE_COMMAND} -E remove WATCH.h5 + NAME H5WATCH-clearall-objects + COMMAND ${CMAKE_COMMAND} -E remove WATCH.h5 ) set_tests_properties (H5WATCH-clearall-objects PROPERTIES FIXTURES_REQUIRED swmr_vfd_check_compat) if (last_test) @@ -170,8 +173,8 @@ if (last_test) endif () set (last_test "H5WATCH-cleanall-objects") add_test ( - NAME H5WATCH-cleanall-objects - COMMAND ${CMAKE_COMMAND} -E remove WATCH.h5 + NAME H5WATCH-cleanall-objects + COMMAND ${CMAKE_COMMAND} -E remove WATCH.h5 ) set_tests_properties (H5WATCH-cleanall-objects PROPERTIES FIXTURES_CLEANUP swmr_vfd_check_compat) @@ -195,10 +198,11 @@ set_tests_properties (H5WATCH-cleanall-objects PROPERTIES FIXTURES_CLEANUP swmr_ # # ################################################################################################# # create the output files to be used. -add_test (NAME H5WATCH-h5watchgentest COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $) +add_test (NAME H5WATCH-h5watchgentest COMMAND $) set_tests_properties (H5WATCH-h5watchgentest PROPERTIES WORKING_DIRECTORY "${PROJECT_BINARY_DIR}/testfiles" DEPENDS H5WATCH-clearall-objects + ENVIRONMENT "${CROSSCOMPILING_PATH}" ) set_tests_properties (H5WATCH-h5watchgentest PROPERTIES FIXTURES_SETUP gen_test_watch) set_tests_properties (H5WATCH-h5watchgentest PROPERTIES FIXTURES_REQUIRED swmr_vfd_check_compat) diff --git a/java/test/CMakeLists.txt b/java/test/CMakeLists.txt index daaf36fee70..65465041ee4 100644 --- a/java/test/CMakeLists.txt +++ b/java/test/CMakeLists.txt @@ -103,22 +103,22 @@ foreach (test_file ${HDF5_JAVA_TEST_SOURCES}) endforeach () foreach (h5_file ${HDF5_JAVA_TEST_SOURCES}) - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/testfiles/JUnit-${h5_file}.txt" "${PROJECT_BINARY_DIR}/JUnit-${h5_file}.txt" "${HDF5_JAVA_TEST_LIB_TARGET}_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/testfiles/JUnit-${h5_file}.txt" "${PROJECT_BINARY_DIR}/JUnit-${h5_file}.txt" "${HDF5_JAVA_TEST_LIB_TARGET}_files") endforeach () -HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterate.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterateL1.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterateL2.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterateO1.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterateO2.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/trefer_reg.h5" "${PROJECT_BINARY_DIR}/trefer_reg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/trefer_attr.h5" "${PROJECT_BINARY_DIR}/trefer_attr.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/tdatareg.h5" "${PROJECT_BINARY_DIR}/tdatareg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/tattrreg.h5" "${PROJECT_BINARY_DIR}/tattrreg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/tintsattrs.h5" "${PROJECT_BINARY_DIR}/tintsattrs.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/tfloatsattrs.h5" "${PROJECT_BINARY_DIR}/tfloatsattrs.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterate.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterateL1.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterateL2.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterateO1.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/h5ex_g_iterateO2.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/trefer_reg.h5" "${PROJECT_BINARY_DIR}/trefer_reg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/trefer_attr.h5" "${PROJECT_BINARY_DIR}/trefer_attr.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/tdatareg.h5" "${PROJECT_BINARY_DIR}/tdatareg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/tattrreg.h5" "${PROJECT_BINARY_DIR}/tattrreg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/tintsattrs.h5" "${PROJECT_BINARY_DIR}/tintsattrs.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") +HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/tfloatsattrs.h5" "${PROJECT_BINARY_DIR}/tfloatsattrs.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_files") -add_custom_target(${HDF5_JAVA_TEST_LIB_TARGET}_files ALL COMMENT "Copying files needed by ${HDF5_JAVA_TEST_LIB_TARGET} tests" DEPENDS ${${HDF5_JAVA_TEST_LIB_TARGET}_files_list}) +add_custom_target (${HDF5_JAVA_TEST_LIB_TARGET}_files ALL COMMENT "Copying files needed by ${HDF5_JAVA_TEST_LIB_TARGET} tests" DEPENDS ${${HDF5_JAVA_TEST_LIB_TARGET}_files_list}) if (WIN32) set (CMAKE_JAVA_INCLUDE_FLAG_SEP ";") @@ -251,22 +251,22 @@ if (HDF5_TEST_JAVA AND HDF5_TEST_SERIAL) foreach (voltest ${VOL_LIST}) file (MAKE_DIRECTORY "${PROJECT_BINARY_DIR}/${voltest}") foreach (h5_file ${HDF5_JAVA_TEST_SOURCES}) - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/testfiles/JUnit-${h5_file}.txt" "${PROJECT_BINARY_DIR}/${voltest}/JUnit-${h5_file}.txt" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/testfiles/JUnit-${h5_file}.txt" "${PROJECT_BINARY_DIR}/${voltest}/JUnit-${h5_file}.txt" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") endforeach () - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterate.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterateL1.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterateL2.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterateO1.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterateO2.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/trefer_reg.h5" "${PROJECT_BINARY_DIR}/${voltest}/trefer_reg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/trefer_attr.h5" "${PROJECT_BINARY_DIR}/${voltest}/trefer_attr.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/tdatareg.h5" "${PROJECT_BINARY_DIR}/${voltest}/tdatareg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/tattrreg.h5" "${PROJECT_BINARY_DIR}/${voltest}/tattrreg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/tintsattrs.h5" "${PROJECT_BINARY_DIR}/${voltest}/tintsattrs.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - HDFTEST_COPY_FILE("${HDF5_TOOLS_TST_DIR}/testfiles/tfloatsattrs.h5" "${PROJECT_BINARY_DIR}/${voltest}/tfloatsattrs.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") - - add_custom_target(${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files ALL COMMENT "Copying files needed by ${HDF5_JAVA_TEST_LIB_TARGET} tests" DEPENDS ${${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files_list}) + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterate.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterateL1.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterateL2.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterateO1.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${PROJECT_SOURCE_DIR}/h5ex_g_iterate.orig" "${PROJECT_BINARY_DIR}/${voltest}/h5ex_g_iterateO2.hdf" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/trefer_reg.h5" "${PROJECT_BINARY_DIR}/${voltest}/trefer_reg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/trefer_attr.h5" "${PROJECT_BINARY_DIR}/${voltest}/trefer_attr.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/tdatareg.h5" "${PROJECT_BINARY_DIR}/${voltest}/tdatareg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/tattrreg.h5" "${PROJECT_BINARY_DIR}/${voltest}/tattrreg.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/tintsattrs.h5" "${PROJECT_BINARY_DIR}/${voltest}/tintsattrs.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + HDFTEST_COPY_FILE ("${HDF5_TOOLS_TST_DIR}/testfiles/tfloatsattrs.h5" "${PROJECT_BINARY_DIR}/${voltest}/tfloatsattrs.h5" "${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files") + + add_custom_target (${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files ALL COMMENT "Copying files needed by ${HDF5_JAVA_TEST_LIB_TARGET} tests" DEPENDS ${${HDF5_JAVA_TEST_LIB_TARGET}_${voltest}_files_list}) foreach (volinfo IN LISTS ${voltest}) foreach (h5_file ${HDF5_JAVA_TEST_SOURCES}) diff --git a/release_docs/CHANGELOG.md b/release_docs/CHANGELOG.md index 557b6404590..81befaf8dca 100644 --- a/release_docs/CHANGELOG.md +++ b/release_docs/CHANGELOG.md @@ -63,6 +63,14 @@ For releases prior to version 2.0.0, please see the release.txt file and for mor ## Configuration +### Improved the cross-compile support in the build system + + The CMake build system has been improved to better support cross-compiling. This includes the following changes: + - The CMake option, `CMAKE_CROSS_COMPILING`, indicates that the library is being cross-compiled. This option, usually in a toolchain file, can be set to ON when cross-compiling. + - Removed the `CMAKE_CROSSCOMPILING_EMULATOR` when cross-compiling, CMake will automatically insert it in the command. + - Added an option `HDF5_USE_PREGEN` to supply pre-generated files located in `HDF5_USE_PREGEN_DIR` directory, to bypass running feature detection programs when cross-compiling. + - Added a variable `CROSSCOMPILING_PATH` to specify a path to search for programs when cross-compiling. This is useful when the build system needs to run programs that were built for the host system. + ### Refactored `HDF5_BUILD/ENABLE_{feature}` variable in hdf5-config.cmake file The variables used in hdf5-config.cmake to indicate what options were used to build the installed library have been renamed. All `HDF5_BUILD/ENABLE_{feature}` variables are now `HDF5_PROVIDES_{feature}`. This more clearly indicates that these variables reflect whether the feature is supported by the installed library, instead of whether the feature is an option that can be changed when building an application with the library. @@ -133,7 +141,7 @@ For releases prior to version 2.0.0, please see the release.txt file and for mor Changed the zlib-ng CMake logic to prefer the native zlib-ng library. Added `#ifdef` around the compression function calls. Added including the correct header file with the same `#ifdef`. -### Renamed HDF5Examples build options from `H5EX_