From bf78a45f9a781bf726d2cf48ab23ea42324e4515 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Wed, 24 May 2023 19:28:02 -0400 Subject: [PATCH] HDF5: Cross-compile (#6551) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * HDF5: Cross-compile * HDF5: Simplify setting up H5Tinit.c * HDF5: Roll back simplification * HDF5: Correct architecture detection * HDF5: Try cmake * HDF5: Use cmake's HDF5_USE_PREGEN * HDF5: Correct location of pregenerated H5Tinit.c * HDF5: Point cmake to H5Tinit.c * HDF5: Fight HDF5's cmake * HDF5: More fighting * HDF5: Debugging * HDF5: Patch CMakeLists.txt * HDF5: Patch before cd * HDF5: Generate `H5lib_settings.c` as well * HDF5: Make guesses for the Windows build * HDF5: Make it build on Windows * HDF5: Re-enable `h5redeploy` * HDF5: Handle missing CLOCK_MONOTONIC * HDF5: Add h5redeploy on Windows * HDF5: Enable C++ and Fortran bindings * HDF5: Generalize download url * HDF5: Enable C++11 * HDF5: Pre-determine more Fortran type information * HDF5: Reorganize files with pre-recorded config information * HDF5: Correct Fortran Makefile patch * HDF5: Extract more configuration information * HDF5: Correct Makefile patch * HDF5: Correct HL Fortran library name * HDF5: Correct HL Fortran library name * HDF5: Add pre-generated config info for i386 * HDF5: Add FreeBSD config files * HDF5: Enable ros3-vfd, threadsafe, szlib * HDF5: Use older version for libcurl to make things build on *-musl * HDF5: Try LibCURL v8 * HDF5: Allow multiple LibCURL versions Co-authored-by: Mosè Giordano * HDF5: Use LibCURL 8 * Add msys2 config via mingw32 and mingw64 * HDF5: Work around a LibCURL x86_64-linux-musl issue * Get configuration for macOS on aarch64 (M1) * Overwrite darwin-arm64v8 with macos-aarch64 files * Modify HDF5 build_tarballs.jl for msys2-mingw{32,64} * HDF5: Update Dockerfile and scripts * HDF5: Make our `strncpy` C++-ready * HDF5: Simplify strndup patch * HDF5: Make strncpy work on Windows * HDF5: Disable thread-safety * Try a clean msys2_mingw32 build * HDF5: Build with MPI * HDF5: Build with GCC 6 * HDF5: Disable subfiling VFD * HDF5: Require GCC 6 * HDF5: Work on MPI and VFD * HDF5: Clean up pthreads patch * HDF5: Clean up * HDF5: Require at least MPItrampoline 5.3.0 * HDF5: Trigger rebuild * HDF5: Use Conda-built libraries on Windows * HDF5: Remove list of supported platforms * HDF5: Correct comments: Windows libraries are from msys * HDF5: Remove some unnecessary msys packages --------- Co-authored-by: Mosè Giordano Co-authored-by: Mark Kittisopikul --- H/HDF5/build_tarballs.jl | 448 +- .../bundled/files/darwin-amd64/H5LTff_gen.F90 | 6515 ++++++++++++++ .../bundled/files/darwin-amd64/H5TBff_gen.F90 | 465 + H/HDF5/bundled/files/darwin-amd64/H5Tinit.c | 246 + H/HDF5/bundled/files/darwin-amd64/H5_gen.F90 | 7725 +++++++++++++++++ .../bundled/files/darwin-amd64/H5f90i_gen.h | 49 + .../files/darwin-amd64/H5fortran_types.F90 | 42 + .../bundled/files/darwin-amd64/config.status | 2944 +++++++ .../files/darwin-arm64v8/H5LTff_gen.F90 | 5659 ++++++++++++ .../files/darwin-arm64v8/H5TBff_gen.F90 | 360 + H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c | 242 + .../bundled/files/darwin-arm64v8/H5_gen.F90 | 6889 +++++++++++++++ .../bundled/files/darwin-arm64v8/H5f90i_gen.h | 45 + .../files/darwin-arm64v8/H5fortran_types.F90 | 40 + .../files/darwin-arm64v8/config.status | 2944 +++++++ .../bundled/files/debian-amd64/H5LTff_gen.F90 | 6515 ++++++++++++++ .../bundled/files/debian-amd64/H5TBff_gen.F90 | 465 + H/HDF5/bundled/files/debian-amd64/H5Tinit.c | 246 + H/HDF5/bundled/files/debian-amd64/H5_gen.F90 | 7725 +++++++++++++++++ .../bundled/files/debian-amd64/H5f90i_gen.h | 49 + .../files/debian-amd64/H5fortran_types.F90 | 42 + .../bundled/files/debian-amd64/config.status | 2960 +++++++ .../files/debian-arm32v5/H5LTff_gen.F90 | 4195 +++++++++ .../files/debian-arm32v5/H5TBff_gen.F90 | 255 + H/HDF5/bundled/files/debian-arm32v5/H5Tinit.c | 242 + .../bundled/files/debian-arm32v5/H5_gen.F90 | 5317 ++++++++++++ .../bundled/files/debian-arm32v5/H5f90i_gen.h | 44 + .../files/debian-arm32v5/H5fortran_types.F90 | 40 + .../files/debian-arm32v5/config.status | 2939 +++++++ .../files/debian-arm32v7/H5LTff_gen.F90 | 4195 +++++++++ .../files/debian-arm32v7/H5TBff_gen.F90 | 255 + H/HDF5/bundled/files/debian-arm32v7/H5Tinit.c | 242 + .../bundled/files/debian-arm32v7/H5_gen.F90 | 5317 ++++++++++++ .../bundled/files/debian-arm32v7/H5f90i_gen.h | 44 + .../files/debian-arm32v7/H5fortran_types.F90 | 40 + .../files/debian-arm32v7/config.status | 2957 +++++++ .../files/debian-arm64v8/H5LTff_gen.F90 | 5659 ++++++++++++ .../files/debian-arm64v8/H5TBff_gen.F90 | 360 + H/HDF5/bundled/files/debian-arm64v8/H5Tinit.c | 246 + .../bundled/files/debian-arm64v8/H5_gen.F90 | 6889 +++++++++++++++ .../bundled/files/debian-arm64v8/H5f90i_gen.h | 47 + .../files/debian-arm64v8/H5fortran_types.F90 | 41 + .../files/debian-arm64v8/config.status | 2958 +++++++ .../bundled/files/debian-i386/H5LTff_gen.F90 | 5907 +++++++++++++ .../bundled/files/debian-i386/H5TBff_gen.F90 | 465 + H/HDF5/bundled/files/debian-i386/H5Tinit.c | 244 + H/HDF5/bundled/files/debian-i386/H5_gen.F90 | 6989 +++++++++++++++ H/HDF5/bundled/files/debian-i386/H5f90i_gen.h | 48 + .../files/debian-i386/H5fortran_types.F90 | 42 + .../bundled/files/debian-i386/config.status | 2960 +++++++ .../files/debian-mips64le/H5LTff_gen.F90 | 5659 ++++++++++++ .../files/debian-mips64le/H5TBff_gen.F90 | 360 + .../bundled/files/debian-mips64le/H5Tinit.c | 246 + .../bundled/files/debian-mips64le/H5_gen.F90 | 6889 +++++++++++++++ .../files/debian-mips64le/H5f90i_gen.h | 47 + .../files/debian-mips64le/H5fortran_types.F90 | 41 + .../files/debian-mips64le/config.status | 2952 +++++++ .../files/debian-ppc64le/H5LTff_gen.F90 | 5659 ++++++++++++ .../files/debian-ppc64le/H5TBff_gen.F90 | 360 + H/HDF5/bundled/files/debian-ppc64le/H5Tinit.c | 246 + .../bundled/files/debian-ppc64le/H5_gen.F90 | 6889 +++++++++++++++ .../bundled/files/debian-ppc64le/H5f90i_gen.h | 47 + .../files/debian-ppc64le/H5fortran_types.F90 | 41 + .../files/debian-ppc64le/config.status | 2961 +++++++ .../files/debian-riscv64/H5LTff_gen.F90 | 5659 ++++++++++++ .../files/debian-riscv64/H5TBff_gen.F90 | 360 + H/HDF5/bundled/files/debian-riscv64/H5Tinit.c | 246 + .../bundled/files/debian-riscv64/H5_gen.F90 | 6889 +++++++++++++++ .../bundled/files/debian-riscv64/H5f90i_gen.h | 47 + .../files/debian-riscv64/H5fortran_types.F90 | 41 + .../files/debian-riscv64/config.status | 2956 +++++++ .../bundled/files/debian-s390x/H5LTff_gen.F90 | 5659 ++++++++++++ .../bundled/files/debian-s390x/H5TBff_gen.F90 | 360 + H/HDF5/bundled/files/debian-s390x/H5Tinit.c | 246 + H/HDF5/bundled/files/debian-s390x/H5_gen.F90 | 6889 +++++++++++++++ .../bundled/files/debian-s390x/H5f90i_gen.h | 47 + .../files/debian-s390x/H5fortran_types.F90 | 41 + .../bundled/files/debian-s390x/config.status | 2958 +++++++ .../files/freebsd-amd64/H5LTff_gen.F90 | 6515 ++++++++++++++ .../files/freebsd-amd64/H5TBff_gen.F90 | 465 + H/HDF5/bundled/files/freebsd-amd64/H5Tinit.c | 246 + H/HDF5/bundled/files/freebsd-amd64/H5_gen.F90 | 7725 +++++++++++++++++ .../bundled/files/freebsd-amd64/H5f90i_gen.h | 49 + .../files/freebsd-amd64/H5fortran_types.F90 | 42 + .../bundled/files/freebsd-amd64/config.status | 2941 +++++++ H/HDF5/bundled/files/get_config_setting | 15 + .../files/msys2-mingw32/H5LTff_gen.F90 | 5907 +++++++++++++ .../files/msys2-mingw32/H5TBff_gen.F90 | 465 + H/HDF5/bundled/files/msys2-mingw32/H5Tinit.c | 244 + H/HDF5/bundled/files/msys2-mingw32/H5_gen.F90 | 6989 +++++++++++++++ .../bundled/files/msys2-mingw32/H5f90i_gen.h | 48 + .../files/msys2-mingw32/H5fortran_types.F90 | 42 + .../bundled/files/msys2-mingw32/config.status | 2942 +++++++ .../files/msys2-mingw64/H5LTff_gen.F90 | 6515 ++++++++++++++ .../files/msys2-mingw64/H5TBff_gen.F90 | 465 + H/HDF5/bundled/files/msys2-mingw64/H5Tinit.c | 246 + H/HDF5/bundled/files/msys2-mingw64/H5_gen.F90 | 7725 +++++++++++++++++ .../bundled/files/msys2-mingw64/H5f90i_gen.h | 49 + .../files/msys2-mingw64/H5fortran_types.F90 | 42 + .../bundled/files/msys2-mingw64/config.status | 2940 +++++++ H/HDF5/bundled/headers/pthread_time.h | 97 + H/HDF5/bundled/patches/CMakeLists.txt.patch | 209 + H/HDF5/bundled/patches/configure.ac.patch | 65 + .../patches/fortran-src-Makefile.patch | 22 + H/HDF5/bundled/patches/h5ls.c.patch | 13 + .../patches/hl-fortran-src-Makefile.patch | 17 + H/HDF5/bundled/patches/mkdir.patch | 15 + H/HDF5/bundled/patches/mpi.patch | 46 + H/HDF5/bundled/patches/src-Makefile.patch | 33 + H/HDF5/bundled/patches/strncpy.patch | 31 + H/HDF5/generate-H5Tinit/README.md | 26 + .../debian-amd64/H5LTff_gen.F90 | 6515 ++++++++++++++ .../debian-amd64/H5TBff_gen.F90 | 465 + .../generate-H5Tinit/debian-amd64/H5Tinit.c | 246 + .../generate-H5Tinit/debian-amd64/H5_gen.F90 | 7725 +++++++++++++++++ .../debian-amd64/H5f90i_gen.h | 49 + .../debian-amd64/H5fortran_types.F90 | 42 + .../debian-amd64/config.status | 2960 +++++++ .../debian-arm32v5/H5LTff_gen.F90 | 4195 +++++++++ .../debian-arm32v5/H5TBff_gen.F90 | 255 + .../generate-H5Tinit/debian-arm32v5/H5Tinit.c | 242 + .../debian-arm32v5/H5_gen.F90 | 5317 ++++++++++++ .../debian-arm32v5/H5f90i_gen.h | 44 + .../debian-arm32v5/H5fortran_types.F90 | 40 + .../debian-arm32v5/config.status | 2939 +++++++ .../debian-arm32v7/H5LTff_gen.F90 | 4195 +++++++++ .../debian-arm32v7/H5TBff_gen.F90 | 255 + .../generate-H5Tinit/debian-arm32v7/H5Tinit.c | 242 + .../debian-arm32v7/H5_gen.F90 | 5317 ++++++++++++ .../debian-arm32v7/H5f90i_gen.h | 44 + .../debian-arm32v7/H5fortran_types.F90 | 40 + .../debian-arm32v7/config.status | 2957 +++++++ .../debian-arm64v8/H5LTff_gen.F90 | 5659 ++++++++++++ .../debian-arm64v8/H5TBff_gen.F90 | 360 + .../generate-H5Tinit/debian-arm64v8/H5Tinit.c | 246 + .../debian-arm64v8/H5_gen.F90 | 6889 +++++++++++++++ .../debian-arm64v8/H5f90i_gen.h | 47 + .../debian-arm64v8/H5fortran_types.F90 | 41 + .../debian-arm64v8/config.status | 2958 +++++++ .../debian-i386/H5LTff_gen.F90 | 5907 +++++++++++++ .../debian-i386/H5TBff_gen.F90 | 465 + H/HDF5/generate-H5Tinit/debian-i386/H5Tinit.c | 244 + .../generate-H5Tinit/debian-i386/H5_gen.F90 | 6989 +++++++++++++++ .../generate-H5Tinit/debian-i386/H5f90i_gen.h | 48 + .../debian-i386/H5fortran_types.F90 | 42 + .../debian-i386/config.status | 2960 +++++++ .../debian-mips64le/H5LTff_gen.F90 | 5659 ++++++++++++ .../debian-mips64le/H5TBff_gen.F90 | 360 + .../debian-mips64le/H5Tinit.c | 246 + .../debian-mips64le/H5_gen.F90 | 6889 +++++++++++++++ .../debian-mips64le/H5f90i_gen.h | 47 + .../debian-mips64le/H5fortran_types.F90 | 41 + .../debian-mips64le/config.status | 2952 +++++++ .../debian-ppc64le/H5LTff_gen.F90 | 5659 ++++++++++++ .../debian-ppc64le/H5TBff_gen.F90 | 360 + .../generate-H5Tinit/debian-ppc64le/H5Tinit.c | 246 + .../debian-ppc64le/H5_gen.F90 | 6889 +++++++++++++++ .../debian-ppc64le/H5f90i_gen.h | 47 + .../debian-ppc64le/H5fortran_types.F90 | 41 + .../debian-ppc64le/config.status | 2961 +++++++ .../debian-riscv64/H5LTff_gen.F90 | 5659 ++++++++++++ .../debian-riscv64/H5TBff_gen.F90 | 360 + .../generate-H5Tinit/debian-riscv64/H5Tinit.c | 246 + .../debian-riscv64/H5_gen.F90 | 6889 +++++++++++++++ .../debian-riscv64/H5f90i_gen.h | 47 + .../debian-riscv64/H5fortran_types.F90 | 41 + .../debian-riscv64/config.status | 2956 +++++++ .../debian-s390x/H5LTff_gen.F90 | 5659 ++++++++++++ .../debian-s390x/H5TBff_gen.F90 | 360 + .../generate-H5Tinit/debian-s390x/H5Tinit.c | 246 + .../generate-H5Tinit/debian-s390x/H5_gen.F90 | 6889 +++++++++++++++ .../debian-s390x/H5f90i_gen.h | 47 + .../debian-s390x/H5fortran_types.F90 | 41 + .../debian-s390x/config.status | 2958 +++++++ .../generate-h5tinit.dockerfile | 30 + H/HDF5/generate-H5Tinit/generate-h5tinit.sh | 19 + 176 files changed, 371275 insertions(+), 46 deletions(-) create mode 100644 H/HDF5/bundled/files/darwin-amd64/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/darwin-amd64/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/darwin-amd64/H5Tinit.c create mode 100644 H/HDF5/bundled/files/darwin-amd64/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/darwin-amd64/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/darwin-amd64/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/darwin-amd64/config.status create mode 100644 H/HDF5/bundled/files/darwin-arm64v8/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/darwin-arm64v8/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c create mode 100644 H/HDF5/bundled/files/darwin-arm64v8/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/darwin-arm64v8/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/darwin-arm64v8/H5fortran_types.F90 create mode 100755 H/HDF5/bundled/files/darwin-arm64v8/config.status create mode 100644 H/HDF5/bundled/files/debian-amd64/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-amd64/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-amd64/H5Tinit.c create mode 100644 H/HDF5/bundled/files/debian-amd64/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-amd64/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/debian-amd64/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/debian-amd64/config.status create mode 100644 H/HDF5/bundled/files/debian-arm32v5/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-arm32v5/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-arm32v5/H5Tinit.c create mode 100644 H/HDF5/bundled/files/debian-arm32v5/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-arm32v5/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/debian-arm32v5/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/debian-arm32v5/config.status create mode 100644 H/HDF5/bundled/files/debian-arm32v7/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-arm32v7/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-arm32v7/H5Tinit.c create mode 100644 H/HDF5/bundled/files/debian-arm32v7/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-arm32v7/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/debian-arm32v7/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/debian-arm32v7/config.status create mode 100644 H/HDF5/bundled/files/debian-arm64v8/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-arm64v8/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-arm64v8/H5Tinit.c create mode 100644 H/HDF5/bundled/files/debian-arm64v8/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-arm64v8/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/debian-arm64v8/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/debian-arm64v8/config.status create mode 100644 H/HDF5/bundled/files/debian-i386/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-i386/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-i386/H5Tinit.c create mode 100644 H/HDF5/bundled/files/debian-i386/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-i386/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/debian-i386/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/debian-i386/config.status create mode 100644 H/HDF5/bundled/files/debian-mips64le/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-mips64le/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-mips64le/H5Tinit.c create mode 100644 H/HDF5/bundled/files/debian-mips64le/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-mips64le/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/debian-mips64le/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/debian-mips64le/config.status create mode 100644 H/HDF5/bundled/files/debian-ppc64le/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-ppc64le/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-ppc64le/H5Tinit.c create mode 100644 H/HDF5/bundled/files/debian-ppc64le/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-ppc64le/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/debian-ppc64le/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/debian-ppc64le/config.status create mode 100644 H/HDF5/bundled/files/debian-riscv64/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-riscv64/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-riscv64/H5Tinit.c create mode 100644 H/HDF5/bundled/files/debian-riscv64/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-riscv64/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/debian-riscv64/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/debian-riscv64/config.status create mode 100644 H/HDF5/bundled/files/debian-s390x/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-s390x/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-s390x/H5Tinit.c create mode 100644 H/HDF5/bundled/files/debian-s390x/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/debian-s390x/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/debian-s390x/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/debian-s390x/config.status create mode 100644 H/HDF5/bundled/files/freebsd-amd64/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/freebsd-amd64/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/freebsd-amd64/H5Tinit.c create mode 100644 H/HDF5/bundled/files/freebsd-amd64/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/freebsd-amd64/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/freebsd-amd64/H5fortran_types.F90 create mode 100755 H/HDF5/bundled/files/freebsd-amd64/config.status create mode 100755 H/HDF5/bundled/files/get_config_setting create mode 100644 H/HDF5/bundled/files/msys2-mingw32/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/msys2-mingw32/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/msys2-mingw32/H5Tinit.c create mode 100644 H/HDF5/bundled/files/msys2-mingw32/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/msys2-mingw32/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/msys2-mingw32/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/msys2-mingw32/config.status create mode 100644 H/HDF5/bundled/files/msys2-mingw64/H5LTff_gen.F90 create mode 100644 H/HDF5/bundled/files/msys2-mingw64/H5TBff_gen.F90 create mode 100644 H/HDF5/bundled/files/msys2-mingw64/H5Tinit.c create mode 100644 H/HDF5/bundled/files/msys2-mingw64/H5_gen.F90 create mode 100644 H/HDF5/bundled/files/msys2-mingw64/H5f90i_gen.h create mode 100644 H/HDF5/bundled/files/msys2-mingw64/H5fortran_types.F90 create mode 100644 H/HDF5/bundled/files/msys2-mingw64/config.status create mode 100644 H/HDF5/bundled/headers/pthread_time.h create mode 100644 H/HDF5/bundled/patches/CMakeLists.txt.patch create mode 100644 H/HDF5/bundled/patches/configure.ac.patch create mode 100644 H/HDF5/bundled/patches/fortran-src-Makefile.patch create mode 100644 H/HDF5/bundled/patches/h5ls.c.patch create mode 100644 H/HDF5/bundled/patches/hl-fortran-src-Makefile.patch create mode 100644 H/HDF5/bundled/patches/mkdir.patch create mode 100644 H/HDF5/bundled/patches/mpi.patch create mode 100644 H/HDF5/bundled/patches/src-Makefile.patch create mode 100644 H/HDF5/bundled/patches/strncpy.patch create mode 100644 H/HDF5/generate-H5Tinit/README.md create mode 100644 H/HDF5/generate-H5Tinit/debian-amd64/H5LTff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-amd64/H5TBff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-amd64/H5Tinit.c create mode 100644 H/HDF5/generate-H5Tinit/debian-amd64/H5_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-amd64/H5f90i_gen.h create mode 100644 H/HDF5/generate-H5Tinit/debian-amd64/H5fortran_types.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-amd64/config.status create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v5/H5LTff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v5/H5TBff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v5/H5Tinit.c create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v5/H5_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v5/H5f90i_gen.h create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v5/H5fortran_types.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v5/config.status create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v7/H5LTff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v7/H5TBff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v7/H5Tinit.c create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v7/H5_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v7/H5f90i_gen.h create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v7/H5fortran_types.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm32v7/config.status create mode 100644 H/HDF5/generate-H5Tinit/debian-arm64v8/H5LTff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm64v8/H5TBff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm64v8/H5Tinit.c create mode 100644 H/HDF5/generate-H5Tinit/debian-arm64v8/H5_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm64v8/H5f90i_gen.h create mode 100644 H/HDF5/generate-H5Tinit/debian-arm64v8/H5fortran_types.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-arm64v8/config.status create mode 100644 H/HDF5/generate-H5Tinit/debian-i386/H5LTff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-i386/H5TBff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-i386/H5Tinit.c create mode 100644 H/HDF5/generate-H5Tinit/debian-i386/H5_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-i386/H5f90i_gen.h create mode 100644 H/HDF5/generate-H5Tinit/debian-i386/H5fortran_types.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-i386/config.status create mode 100644 H/HDF5/generate-H5Tinit/debian-mips64le/H5LTff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-mips64le/H5TBff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-mips64le/H5Tinit.c create mode 100644 H/HDF5/generate-H5Tinit/debian-mips64le/H5_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-mips64le/H5f90i_gen.h create mode 100644 H/HDF5/generate-H5Tinit/debian-mips64le/H5fortran_types.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-mips64le/config.status create mode 100644 H/HDF5/generate-H5Tinit/debian-ppc64le/H5LTff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-ppc64le/H5TBff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-ppc64le/H5Tinit.c create mode 100644 H/HDF5/generate-H5Tinit/debian-ppc64le/H5_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-ppc64le/H5f90i_gen.h create mode 100644 H/HDF5/generate-H5Tinit/debian-ppc64le/H5fortran_types.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-ppc64le/config.status create mode 100644 H/HDF5/generate-H5Tinit/debian-riscv64/H5LTff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-riscv64/H5TBff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-riscv64/H5Tinit.c create mode 100644 H/HDF5/generate-H5Tinit/debian-riscv64/H5_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-riscv64/H5f90i_gen.h create mode 100644 H/HDF5/generate-H5Tinit/debian-riscv64/H5fortran_types.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-riscv64/config.status create mode 100644 H/HDF5/generate-H5Tinit/debian-s390x/H5LTff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-s390x/H5TBff_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-s390x/H5Tinit.c create mode 100644 H/HDF5/generate-H5Tinit/debian-s390x/H5_gen.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-s390x/H5f90i_gen.h create mode 100644 H/HDF5/generate-H5Tinit/debian-s390x/H5fortran_types.F90 create mode 100644 H/HDF5/generate-H5Tinit/debian-s390x/config.status create mode 100644 H/HDF5/generate-H5Tinit/generate-h5tinit.dockerfile create mode 100755 H/HDF5/generate-H5Tinit/generate-h5tinit.sh diff --git a/H/HDF5/build_tarballs.jl b/H/HDF5/build_tarballs.jl index 29df485fe46..ea0d0d59002 100644 --- a/H/HDF5/build_tarballs.jl +++ b/H/HDF5/build_tarballs.jl @@ -1,42 +1,47 @@ -using BinaryBuilder +# Note that this script can accept some limited command-line arguments, +# run `julia build_tarballs.jl --help` to see a usage message. +using BinaryBuilder, Pkg +using Base.BinaryPlatforms +const YGGDRASIL_DIR = "../.." +include(joinpath(YGGDRASIL_DIR, "platforms", "mpi.jl")) -# Collection of sources required to build HDF5 name = "HDF5" -version = v"1.12.2" +version = v"1.14.0" +# Collection of sources required to complete build sources = [ + ArchiveSource("https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-$(version.major).$(version.minor)/hdf5-$(version)/src/hdf5-$(version).tar.gz", + "a571cc83efda62e1a51a0a912dd916d01895801c5025af91669484a1575a6ef4"), + DirectorySource("./bundled"), + + # We don't build HDF5 on Windows; instead, we use packages from msys there: + # 32-bit Windows from https://packages.msys2.org/package/mingw-w64-i686-hdf5 - ArchiveSource("https://mirror.msys2.org/mingw/mingw32/mingw-w64-i686-hdf5-1.12.2-1-any.pkg.tar.zst", "f37511b6208245b081a5b72a1f2021a73b67da07835ede1e092f7d7f20569319"; unpack_target="i686-w64-mingw32"), - ArchiveSource("https://mirror.msys2.org/mingw/mingw32/mingw-w64-i686-libaec-1.0.6-2-any.pkg.tar.zst", "c6cff1a6f8a9f75e986589d8debc35e8076a7af38aa32cbda78bb6c2fbbbe58c"; unpack_target="i686-w64-mingw32"), - ArchiveSource("https://mirror.msys2.org/mingw/mingw32/mingw-w64-i686-zlib-1.2.12-1-any.pkg.tar.zst", "74ace327d8e28cdb0c777fffc6003f5097836c247be40cf3b483bd9fd1c23183"; unpack_target="i686-w64-mingw32"), + ArchiveSource("https://mirror.msys2.org/mingw/mingw32/mingw-w64-i686-hdf5-1.14.0-6-any.pkg.tar.zst", + "3812ce5147aad8cc8bb8bbd5879ecc3131c2267296eecc2d35cd3c8515b3fbc8"; unpack_target="i686-w64-mingw32"), + ArchiveSource("https://mirror.msys2.org/mingw/mingw32/mingw-w64-i686-zlib-1.2.13-3-any.pkg.tar.zst", + "ed62c6f77f9cce488aed15726349d5d4537689583caab46bace8d41173db48b7"; unpack_target="i686-w64-mingw32"), # We need some special compiler support libraries from mingw for i686 (libgcc_s_dw2) - ArchiveSource("https://mirror.msys2.org/mingw/mingw32/mingw-w64-i686-gcc-libs-11.2.0-6-any.pkg.tar.zst", "bdc359047f61c8e96401ba25b17c80f5f8039c25a063c622e3680123bb0de9d1"; unpack_target="i686-w64-mingw32"), + ArchiveSource("https://mirror.msys2.org/mingw/mingw32/mingw-w64-i686-gcc-libs-11.2.0-9-any.pkg.tar.zst", + "c04ce4ecf40cb4c87fe6f38ba4dc7d568f24dcb69c8babfc507fa3de8ddb54a2"; unpack_target="i686-w64-mingw32"), # 64-bit Windows from https://packages.msys2.org/package/mingw-w64-x86_64-hdf5 - ArchiveSource("https://mirror.msys2.org/mingw/mingw64/mingw-w64-x86_64-hdf5-1.12.2-1-any.pkg.tar.zst", "3ba6521d45368aabb334131e10282b25fab9891a20fb9129d897c65c8b6cdbda"; unpack_target="x86_64-w64-mingw32"), - ArchiveSource("https://mirror.msys2.org/mingw/mingw64/mingw-w64-x86_64-libaec-1.0.6-2-any.pkg.tar.zst", "d970bd71e55fc5bd4a55e95ef22355d8c479631973860f2a9c37b49c931c5f35"; unpack_target="x86_64-w64-mingw32"), - ArchiveSource("https://mirror.msys2.org/mingw/mingw64/mingw-w64-x86_64-zlib-1.2.12-1-any.pkg.tar.zst", "e728df08b4db7b291a52d8fd60b96f19016f059ab15170fc98120e5d580c86ac"; unpack_target="x86_64-w64-mingw32"), - - # x86_64 and aarch64 for Linux and macOS from https://anaconda.org/conda-forge/hdf5/files - # NOTE: make sure to select those compatible with OpenSSL 1.1.1 (click info icon) - # Unfortunately we cannot use conda-forge HDF 1.12.2 binaries since their libcurl is too new for us. - # The MinGW 1.12.1 binaries work for HDF5.jl but not with libnetcdf. To have a HDF5_jll version - # that works on all platforms, we resort to mixing two different patch versions. - # See discussion following https://github.com/JuliaPackaging/Yggdrasil/issues/4511#issuecomment-1198134988 - ArchiveSource("https://anaconda.org/conda-forge/hdf5/1.12.1/download/linux-64/hdf5-1.12.1-nompi_h2750804_103.tar.bz2", "bd7bb0657d63acf52c9d30d1b89276356c6da4ff8a90dd5fcbd0cfde6578f317"; unpack_target="x86_64-linux-gnu"), - ArchiveSource("https://anaconda.org/conda-forge/hdf5/1.12.1/download/linux-aarch64/hdf5-1.12.1-nompi_h774d4d8_103.tar.bz2", "8688cfc983962bf7a59a97becb0d67ee64eb4a7dd5793b915cf50dccd90bfa2d"; unpack_target="aarch64-linux-gnu"), - ArchiveSource("https://anaconda.org/conda-forge/hdf5/1.12.1/download/osx-64/hdf5-1.12.1-nompi_h2f0ef1a_102.tar.bz2", "4a4640e44adea33833e7efb6ac3070dd4c80a8a156c2fd3aa7cfcac8865f5a26"; unpack_target="x86_64-apple-darwin14"), - ArchiveSource("https://anaconda.org/conda-forge/hdf5/1.12.1/download/osx-arm64/hdf5-1.12.1-nompi_had0e5e0_103.tar.bz2", "ef48b684b22c6b0077bc9836e0cc6d15abb88868d7a6c842226666ebb8bbd449"; unpack_target="aarch64-apple-darwin20"), + ArchiveSource("https://mirror.msys2.org/mingw/mingw64/mingw-w64-x86_64-hdf5-1.14.0-6-any.pkg.tar.zst", + "5faed72eb9406fd8e3bfa0e3110543d84e9f266037fd9f4c1fca49613b44db1a"; unpack_target="x86_64-w64-mingw32"), + ArchiveSource("https://mirror.msys2.org/mingw/mingw64/mingw-w64-x86_64-zlib-1.2.13-3-any.pkg.tar.zst", + "7fc6ac1629180e205f0fdbe7abd04353136a44d73d16924f0c64fd10828329a7"; unpack_target="x86_64-w64-mingw32"), + ] # Bash recipe for building across all platforms script = raw""" -cd ${WORKSPACE}/srcdir/ -mkdir -p ${libdir} ${includedir} +cd ${WORKSPACE}/srcdir +# We don't build HDF5 on Windows; instead, we use packages from msys there: if [[ ${target} == *mingw* ]]; then cd ${target}/mingw${nbits} + mkdir -p ${libdir} ${includedir} rm -f lib/{*_cpp*,*fortran*,*f90*} # we do not need these rm -f bin/{*_cpp*,*fortran*,*f90*} # we do not need these @@ -45,46 +50,397 @@ if [[ ${target} == *mingw* ]]; then mv -v include/* ${includedir} install_license share/doc/hdf5/COPYING + exit 0 +fi + +cd hdf5-* + +if [[ ${target} == *-mingw* ]]; then + atomic_patch -p1 ${WORKSPACE}/srcdir/patches/h5ls.c.patch + atomic_patch -p1 ${WORKSPACE}/srcdir/patches/mkdir.patch + atomic_patch -p1 ${WORKSPACE}/srcdir/patches/strncpy.patch + cp ${WORKSPACE}/srcdir/headers/pthread_time.h "/opt/${target}/${target}/sys-root/include/pthread_time.h" +fi + +# HDF5 assumes that some MPI constants are C constants, but they are not +atomic_patch -p1 ${WORKSPACE}/srcdir/patches/mpi.patch + +# Idea: +# - provide the registered filter plugins (BZIP2, JPEG, LZF, BLOSC, MAFISC, LZ4, Bitshuffle, and ZFP) + +# Building via `configure` instead of via `cmake` has one advantage: +# The `h5cc` etc. scripts are generated, and some other packages might expect these. +if false; then + +# Option 1: Build with cmake +# This is now outdated, e.g. it doesn't enable C++ nor Fortran. + +# Patch `CMakeLists.txt`: +# - HDF5 would also try to build and run `H5detect` to collect ABI information. +# We know this information, and thus can provide it manually. +# - HDF5 would try to build and run `H5make_libsettings` to collect +# build-time information. That information seems entirely optional, so +# we do mostly nothing instead. +atomic_patch -p1 ${WORKSPACE}/srcdir/patches/CMakeLists.txt.patch + +# Prepare the pre-generated file `H5Tinit.c` that cmake will expect: +case "${target}" in + aarch64-apple-darwin*) + cat ../../files/H5Tinit-darwin-arm64v8.c + ;; + aarch64-linux-*) + cat ../../files/H5Tinit-debian-arm64v8.c + ;; + arm-linux-*) + cat ../../files/H5Tinit-debian-arm32v7.c + ;; + i686-linux-*) + cat ../../files/H5Tinit-debian-i386.c + ;; + i686-w64-mingw32) + # sizeof(long double) == 12 + # layout seems to be 16-bit sign+exponent and 64-bit mantissa + # same as for Linux + cat ../../files/H5Tinit-debian-i386.c + ;; + powerpc64le-linux-*) + cat ../../files/H5Tinit-debian-ppc64le.c + ;; + x86_64-apple-darwin*) + cat ../../files/H5Tinit-darwin-amd64.c + ;; + x86_64-linux-* | x86_64-*-freebsd*) + cat ../../files/H5Tinit-debian-amd64.c + ;; + x86_64-w64-mingw32) + # sizeof(long double) == 16 + # layout seems to be 16-bit sign+exponent and 64-bit mantissa + # same as for Linux + cat ../../files/H5Tinit-debian-amd64.c + ;; + *) + echo "Unsupported target architecture ${target}" >&2 + exit 1 + ;; +esac >src/H5Tinit.c +echo 'char H5libhdf5_settings[]="";' >src/H5lib_settings.c + +mkdir build +pushd build + +cmake \ + -DCMAKE_FIND_ROOT_PATH=${prefix} \ + -DCMAKE_INSTALL_PREFIX=${prefix} \ + -DCMAKE_TOOLCHAIN_FILE=${CMAKE_TARGET_TOOLCHAIN} \ + -DBUILD_STATIC_LIBS=OFF \ + -DBUILD_TESTING=OFF \ + -DHDF5_BUILD_EXAMPLES=OFF \ + -DHDF5_BUILD_HL_LIB=ON \ + -DHDF5_BUILD_TOOLS=ON \ + -DHAVE_IOEO_EXITCODE=0 \ + -DTEST_LFS_WORKS_RUN=0 \ + -DH5_LDOUBLE_TO_LONG_SPECIAL_RUN=1 \ + -DH5_LDOUBLE_TO_LONG_SPECIAL_RUN__TRYRUN_OUTPUT= \ + -DH5_LONG_TO_LDOUBLE_SPECIAL_RUN=1 \ + -DH5_LONG_TO_LDOUBLE_SPECIAL_RUN__TRYRUN_OUTPUT= \ + -DH5_LDOUBLE_TO_LLONG_ACCURATE_RUN=0 \ + -DH5_LDOUBLE_TO_LLONG_ACCURATE_RUN__TRYRUN_OUTPUT= \ + -DH5_LLONG_TO_LDOUBLE_CORRECT_RUN=0 \ + -DH5_LLONG_TO_LDOUBLE_CORRECT_RUN__TRYRUN_OUTPUT= \ + -DH5_DISABLE_SOME_LDOUBLE_CONV_RUN=1 \ + -DH5_DISABLE_SOME_LDOUBLE_CONV_RUN__TRYRUN_OUTPUT= \ + .. +cmake --build . --config RelWithDebInfo --parallel ${nproc} +cmake --build . --config RelWithDebInfo --parallel ${nproc} --target install + +popd + else - cd ${target} - - # Delete the C++ and Fortran libraries, we can't use them because they'd restrict the - # ABIs we can use this package for (e.g., *only* libgfortran5 and C++11 string ABI), - # which would be overly restrictive, as Julia on Linux comes with libgfortran4, thus - # making this package completely unusable there. The only way to use the C++ and - # Fortran libraries is for BinaryBuilder to be able to actually build them: - # . - rm -f lib/{*_cpp*,*_fortran*} - mv -v lib/* ${libdir} - mv -v include/* ${includedir} - install_license info/licenses/COPYING +# Option 2: Build with configure +# This is the currently supported way. + +# Patch `configure.ac`: +atomic_patch -p1 ${WORKSPACE}/srcdir/patches/configure.ac.patch + +# Prepare the files `H5init.c` and `config.saved` that contain predetermined +# configuration information +mkdir saved +case "${target}" in + aarch64-apple-darwin*) + cp ../files/darwin-arm64v8/* saved + ;; + aarch64-linux-*) + cp ../files/debian-arm64v8/* saved + ;; + arm-linux-*) + cp ../files/debian-arm32v7/* saved + ;; + i686-linux-*) + cp ../files/debian-i386/* saved + ;; + i686-w64-mingw32) + # sizeof(long double) == 12 + # layout seems to be 16-bit sign+exponent and 64-bit mantissa + # same as for Linux + cp ../files/msys2-mingw32/* saved + ;; + powerpc64le-linux-*) + cp ../files/debian-ppc64le/* saved + ;; + x86_64-apple-darwin*) + cp ../files/darwin-amd64/* saved + ;; + x86_64-linux-*) + cp ../files/debian-amd64/* saved + ;; + x86_64-*-freebsd*) + # same as for Linux + cp ../files/freebsd-amd64/* saved + ;; + x86_64-w64-mingw32) + # sizeof(long double) == 16 + # layout seems to be 16-bit sign+exponent and 64-bit mantissa + # same as for Linux + cp ../files/msys2-mingw64/* saved + ;; + *) + echo "Unsupported target architecture ${target}" >&2 + exit 1 + ;; +esac +cp ../files/get_config_setting saved + +env \ + HDF5_ACLOCAL=/usr/bin/aclocal \ + HDF5_AUTOHEADER=/usr/bin/autoheader \ + HDF5_AUTOMAKE=/usr/bin/automake \ + HDF5_AUTOCONF=/usr/bin/autoconf \ + HDF5_LIBTOOL=/usr/bin/libtool \ + HDF5_M4=/usr/bin/m4 \ + ./autogen.sh + +mkdir build +pushd build + +# Required for x86_64-linux-musl: +# - Some HDF5 C code requires C99, but configure only requests C89. +# - Some HDF5 C++ code requires C++11, but configure does not request this. +# This might not be necessary if we switch to newer GCC versions. +export CFLAGS="${CFLAGS} -std=c99" +export CXXFLAGS="${CXXFLAGS} -std=c++11" + +if [[ ${target} == x86_64-linux-musl ]]; then + # ${libdir}/libcurl.so needs a libnghttp, and it prefers to load /usr/lib/libnghttp2.so for this. + # Unfortunately, that library is missing a symbol. Setting LD_LIBRARY_PATH is not enough to avoid this. + rm /usr/lib/libcurl.* + rm /usr/lib/libnghttp2.* fi + +FLAGS=() +if [[ ${target} == *-mingw* ]]; then + FLAGS+=(LDFLAGS='-no-undefined') +fi + +# Check which VFD are available +ENABLE_DIRECT_VFD=yes +ENABLE_MIRROR_VFD=yes +if [[ ${target} == *-darwin* ]]; then + ENABLE_DIRECT_VFD=no +elif [[ ${target} == *-w64-mingw32 ]]; then + ENABLE_DIRECT_VFD=no + ENABLE_MIRROR_VFD=no +fi + +# Configure MPI +ENABLE_PARALLEL=yes +if grep -q MPICH_NAME ${prefix}/include/mpi.h; then + # MPICH + export CC=mpicc + export CXX=mpicxx + export FC=mpifort +elif grep -q MPITRAMPOLINE_MPI_H ${prefix}/include/mpi.h; then + # MPItrampoline + export MPITRAMPOLINE_CC="$(which $CC)" + export MPITRAMPOLINE_CXX="$(which $CXX)" + export MPITRAMPOLINE_FC="$(which $FC)" + export CC=mpicc + export CXX=mpicxx + export FC=mpifort +elif grep -q MSMPI_VER ${prefix}/include/mpi.h; then + # Microsoft MPI + if [[ ${target} == i686-* ]]; then + # 32-bit system + # Do not enable MPI; the function MPI_File_close is not defined + # in the 32-bit version of Microsoft MPI 10.1.12498.18 + ENABLE_PARALLEL=no + else + # Hide static libraries + rm ${prefix}/lib/msmpi*.lib + # Make shared libraries visible + ln -s msmpi.dll ${libdir}/libmsmpi.dll + export FCFLAGS="$FCFLAGS -I${prefix}/src -I${prefix}/include -fno-range-check" + export LIBS="-L${libdir} -lmsmpi" + fi +elif grep -q OMPI_MAJOR_VERSION ${prefix}/include/mpi.h; then + # OpenMPI + export CC=mpicc + export CXX=mpicxx + export FC=mpifort +else + # Unknown MPI + exit 1 +fi + +../configure \ + --prefix=${prefix} \ + --build=${MACHTYPE} \ + --host=${target} \ + --enable-cxx=yes \ + --enable-direct-vfd="$ENABLE_DIRECT_VFD" \ + --enable-fortran=yes \ + --enable-hl=yes \ + --enable-mirror-vfd="$ENABLE_MIRROR_VFD" \ + --enable-parallel="$ENABLE_PARALLEL" \ + --enable-ros3-vfd=yes \ + --enable-static=no \ + --enable-tests=no \ + --enable-tools=yes \ + --enable-unsupported=yes \ + --with-examplesdir=/tmp \ + --with-szlib=${prefix} \ + hdf5_cv_ldouble_to_long_special=no \ + hdf5_cv_long_to_ldouble_special=no \ + hdf5_cv_ldouble_to_llong_accurate=yes \ + hdf5_cv_llong_to_ldouble_correct=yes \ + hdf5_cv_disable_some_ldouble_conv=no \ + hdf5_cv_szlib_can_encode=yes \ + "$(../saved/get_config_setting PAC_C_MAX_REAL_PRECISION ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FC_ALL_REAL_KINDS ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FC_MAX_REAL_PRECISION ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FORTRAN_NUM_INTEGER_KINDS ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FC_ALL_INTEGER_KINDS ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FC_ALL_REAL_KINDS_SIZEOF ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FC_ALL_INTEGER_KINDS_SIZEOF ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FORTRAN_NATIVE_INTEGER_KIND ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FORTRAN_NATIVE_INTEGER_SIZEOF ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FORTRAN_NATIVE_REAL_KIND ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FORTRAN_NATIVE_REAL_SIZEOF ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FORTRAN_NATIVE_DOUBLE_KIND ../saved/config.status)" \ + "$(../saved/get_config_setting PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF ../saved/config.status)" \ + "$(../saved/get_config_setting HAVE_Fortran_INTEGER_SIZEOF ../saved/config.status)" \ + "$(../saved/get_config_setting FORTRAN_HAVE_C_LONG_DOUBLE ../saved/config.status)" \ + "$(../saved/get_config_setting FORTRAN_C_LONG_DOUBLE_IS_UNIQUE ../saved/config.status)" \ + "$(../saved/get_config_setting H5CONFIG_F_NUM_RKIND ../saved/config.status)" \ + "$(../saved/get_config_setting H5CONFIG_F_RKIND ../saved/config.status)" \ + "$(../saved/get_config_setting H5CONFIG_F_RKIND_SIZEOF ../saved/config.status)" \ + "$(../saved/get_config_setting H5CONFIG_F_NUM_IKIND ../saved/config.status)" \ + "$(../saved/get_config_setting H5CONFIG_F_IKIND ../saved/config.status)" + +# Patch the generated `Makefile`: +# (We could instead patch `Makefile.in`, or maybe even `Makefile.am`.) +# - HDF5 would also try to build and run `H5detect` to collect ABI information. +# We know this information, and thus can provide it manually. +# - HDF5 would try to build and run `H5make_libsettings` to collect +# build-time information. That information seems entirely optional, so +# we do mostly nothing instead. +atomic_patch -p1 ${WORKSPACE}/srcdir/patches/src-Makefile.patch +atomic_patch -p1 ${WORKSPACE}/srcdir/patches/fortran-src-Makefile.patch +atomic_patch -p1 ${WORKSPACE}/srcdir/patches/hl-fortran-src-Makefile.patch + +# `AM_V_P` is not defined. This must be a shell command that returns +# true or false depending on whether `make` should be verbose. This is +# probably caused by a bug in automake, or in how automake was used. +make -j${nproc} AM_V_P=: "${FLAGS[@]}" + +make install + +popd + +fi + +install_license COPYING +""" + +augment_platform_block = """ + using Base.BinaryPlatforms + $(MPI.augment) + augment_platform!(platform::Platform) = augment_mpi!(platform) """ # These are the platforms we will build for by default, unless further # platforms are passed in on the command line -platforms = [ - Platform("x86_64", "linux"), - Platform("aarch64", "linux"; libc="glibc"), - Platform("x86_64", "macos"), - Platform("x86_64", "windows"), - Platform("i686", "windows"), - Platform("aarch64", "macos"), -] +platforms = supported_platforms() +# TODO: Don't expand ABIs for Windows since we're not providing either C++ or Fortran bindings there. +platforms = expand_cxxstring_abis(platforms) +platforms = expand_gfortran_versions(platforms) + +# TODO: Don't require MPI for Windows since we're using the non-MPI msys libraries there. +platforms, platform_dependencies = MPI.augment_platforms(platforms; MPItrampoline_compat="5.3.0") + +# Avoid platforms where the MPI implementation isn't supported +# OpenMPI +platforms = filter(p -> !(p["mpi"] == "openmpi" && arch(p) == "armv6l" && libc(p) == "glibc"), platforms) +# MPItrampoline +platforms = filter(p -> !(p["mpi"] == "mpitrampoline" && libc(p) == "musl"), platforms) +platforms = filter(p -> !(p["mpi"] == "mpitrampoline" && Sys.isfreebsd(p)), platforms) # The products that we will ensure are always built products = [ + # Since we use the msys binaries for Windows, we can only define + # those products that are provided by msys as well. These are + # just the regular and the high-level libraries. + + # # HDF5 tools + # ExecutableProduct("h5clear", :h5clear), + # ExecutableProduct("h5copy", :h5copy), + # ExecutableProduct("h5debug", :h5debug), + # ExecutableProduct("h5delete", :h5delete), + # ExecutableProduct("h5diff", :h5diff), + # ExecutableProduct("h5dump", :h5dump), + # ExecutableProduct("h5format_convert", :h5format_convert), + # ExecutableProduct("h5import", :h5import), + # ExecutableProduct("h5jam",:h5jam), + # ExecutableProduct("h5ls", :h5ls), + # ExecutableProduct("h5mkgrp", :h5mkgrp), + # ExecutableProduct("h5perf_serial",:h5perf_serial), + # ExecutableProduct("h5repack", :h5repack), + # ExecutableProduct("h5repart", :h5repart), + # ExecutableProduct("h5stat", :h5stat), + # ExecutableProduct("h5unjam", :h5unjam), + # ExecutableProduct("h5watch", :h5watch), + + # HDF5 libraries LibraryProduct("libhdf5", :libhdf5), + # LibraryProduct("libhdf5_cpp", :libhdf5_cpp), + # LibraryProduct("libhdf5_fortran", :libhdf5_fortran), LibraryProduct("libhdf5_hl", :libhdf5_hl), + # LibraryProduct("libhdf5_hl_cpp", :libhdf5_hl_cpp), + # LibraryProduct("libhdf5hl_fortran", :libhdf5_hl_fortran), ] # Dependencies that must be installed before this package can be built dependencies = [ - Dependency("Zlib_jll"), - Dependency("OpenSSL_jll"; compat="1.1.10"), + # For OpenMP we use libomp from `LLVMOpenMP_jll` where we use LLVM as compiler (BSD + # systems), and libgomp from `CompilerSupportLibraries_jll` everywhere else. + Dependency(PackageSpec(name="CompilerSupportLibraries_jll", uuid="e66e0078-7015-5450-92f7-15fbd957f2ae"); + platforms=filter(!Sys.isbsd, platforms)), + Dependency(PackageSpec(name="LLVMOpenMP_jll", uuid="1d63c593-3942-5779-bab2-d838dc0a180e"); + platforms=filter(Sys.isbsd, platforms)), Dependency("LibCURL_jll"), + # The msys Windows libraries require OpenSSL@3 + Dependency("OpenSSL_jll"; compat="3.0.8"), + Dependency("Zlib_jll"), + # Dependency("dlfcn_win32_jll"; platforms=filter(Sys.iswindows, platforms)), + Dependency("libaec_jll"), # This is the successor of szlib ] +append!(dependencies, platform_dependencies) + +# Don't look for `mpiwrapper.so` when BinaryBuilder examines and `dlopen`s the shared libraries. +# (MPItrampoline will skip its automatic initialization.) +ENV["MPITRAMPOLINE_DELAY_INIT"] = "1" # Build the tarballs, and possibly a `build.jl` as well. -build_tarballs(ARGS, name, version, sources, script, platforms, products, dependencies; julia_compat="1.6") +# GCC 5 reports an ICE on i686-linux-gnu-libgfortran3-cxx11-mpi+mpich +build_tarballs(ARGS, name, version, sources, script, platforms, products, dependencies; + augment_platform_block, julia_compat="1.6", preferred_gcc_version=v"6") diff --git a/H/HDF5/bundled/files/darwin-amd64/H5LTff_gen.F90 b/H/HDF5/bundled/files/darwin-amd64/H5LTff_gen.F90 new file mode 100644 index 00000000000..ef1cde7759e --- /dev/null +++ b/H/HDF5/bundled/files/darwin-amd64/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 COPYING 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/H/HDF5/bundled/files/darwin-amd64/H5TBff_gen.F90 b/H/HDF5/bundled/files/darwin-amd64/H5TBff_gen.F90 new file mode 100644 index 00000000000..9317ae5340f --- /dev/null +++ b/H/HDF5/bundled/files/darwin-amd64/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 COPYING 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/H/HDF5/bundled/files/darwin-amd64/H5Tinit.c b/H/HDF5/bundled/files/darwin-amd64/H5Tinit.c new file mode 100644 index 00000000000..93aa8cbb3af --- /dev/null +++ b/H/HDF5/bundled/files/darwin-amd64/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 14, 2023 + * Erik Schnetter + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * ???????? ???????? ???????? ???????? + * 11 10 9 8 + * ???????? ???????? SEEEEEEE EEEEEEEE + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? no + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 80; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 79; +dt->shared->u.atomic.u.f.epos = 64; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 64; +dt->shared->u.atomic.u.f.norm = H5T_NORM_NONE; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/darwin-amd64/H5_gen.F90 b/H/HDF5/bundled/files/darwin-amd64/H5_gen.F90 new file mode 100644 index 00000000000..841ccd659fb --- /dev/null +++ b/H/HDF5/bundled/files/darwin-amd64/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 COPYING 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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/H/HDF5/bundled/files/darwin-amd64/H5f90i_gen.h b/H/HDF5/bundled/files/darwin-amd64/H5f90i_gen.h new file mode 100644 index 00000000000..1400983def5 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-amd64/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 COPYING 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 long double + +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/H/HDF5/bundled/files/darwin-amd64/H5fortran_types.F90 b/H/HDF5/bundled/files/darwin-amd64/H5fortran_types.F90 new file mode 100644 index 00000000000..5cd5b2ac7c3 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-amd64/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 COPYING 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/H/HDF5/bundled/files/darwin-amd64/config.status b/H/HDF5/bundled/files/darwin-amd64/config.status new file mode 100644 index 00000000000..7c98d2e3355 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-amd64/config.status @@ -0,0 +1,2944 @@ +#! /bin/sh +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/tmp/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/opt/local/libexec/gnubin/install -c' +MKDIR_P='/opt/local/libexec/gnubin/mkdir -p' +AWK='gawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/sh '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/sh $*" >&6 + CONFIG_SHELL='/bin/sh' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/sh' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='x86_64-apple-darwin22.4.0' +host_os='darwin22.4.0' +build_alias='' +build='x86_64-apple-darwin22.4.0' +build_os='darwin22.4.0' +SED='/opt/local/libexec/gnubin/sed' +Xsed='/opt/local/libexec/gnubin/sed -e 1s/^X//' +GREP='/opt/local/libexec/gnubin/grep' +EGREP='/opt/local/libexec/gnubin/grep -E' +FGREP='/opt/local/libexec/gnubin/grep -F' +LD='/opt/local/libexec/llvm-15/bin/ld' +NM='/opt/local/bin/nm -B' +LN_S='ln -s' +max_cmd_len='786432' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='yes' +CC='clang' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*_\([_A-Za-z][_A-Za-z0-9]*\)$/\1 _\2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/opt/local/libexec/gnubin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin -fno-rtti -fno-exceptions' +lt_prog_compiler_pic=' -fno-common -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='dsymutil' +NMEDIT='nmedit' +LIPO='lipo' +OTOOL='otool' +OTOOL64=':' +libext='a' +shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='' +whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module' +archive_expsym_cmds='sed '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +module_cmds='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags' +module_expsym_cmds='sed -e '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +with_gnu_ld='no' +allow_undefined_flag='$wl-flat_namespace $wl-undefined ${wl}suppress' +no_undefined_flag='' +hardcode_libdir_flag_spec='' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='yes' +inherit_rpath='no' +link_all_deplibs='yes' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH DYLD_LIBRARY_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='darwin' +runpath_var='' +shlibpath_var='DYLD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$major$shared_ext $libname$shared_ext' +soname_spec='$libname$release$major$shared_ext' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='' +finish_eval='' +hardcode_into_libs='no' +sys_lib_search_path_spec='/opt/local/libexec/llvm-15/lib/clang/15.0.7 /usr/local/lib' +configure_time_dlsearch_path='/usr/local/lib /lib /usr/lib' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='yes' +old_striplib='strip -S' +striplib='strip -x' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/opt/local/libexec/llvm-15/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs' +reload_cmds_FC='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fno-common' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='yes' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='sed '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +module_cmds_CXX='' +module_cmds_FC='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='sed -e '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +with_gnu_ld_CXX='' +with_gnu_ld_FC='no' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='$wl-flat_namespace $wl-undefined ${wl}suppress' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='yes' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='yes' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='clang' +LTCFLAGS=' ' +compiler='clang' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/opt/local/libexec/gnubin/mkdir -p java/src/.classes; + /opt/local/libexec/gnubin/mkdir -p java/test/.classes; + /opt/local/libexec/gnubin/mkdir -p java/examples/intro/.classes; + /opt/local/libexec/gnubin/mkdir -p java/examples/datasets/.classes; + /opt/local/libexec/gnubin/mkdir -p java/examples/datatypes/.classes; + /opt/local/libexec/gnubin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="" +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/tmp/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/Users/eschnett/.juliaup/bin/ (../configure: line 33059: -version: command not found)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/opt/local/bin/gfortran" +S["CC_VERSION"]="/opt/local/bin/clang" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="eschnett@redshift.pi.local" +S["CONFIG_DATE"]="Fri Apr 14 16:53:56 EDT 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="yes" +S["EXTERNAL_FILTERS"]="deflate(zlib)" +S["H5_IS_DARWIN"]="yes" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]=":" +S["OTOOL"]="otool" +S["LIPO"]="lipo" +S["NMEDIT"]="nmedit" +S["DSYMUTIL"]="dsymutil" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/opt/local/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/opt/local/libexec/llvm-15/bin/ld" +S["FGREP"]="/opt/local/libexec/gnubin/grep -F" +S["SED"]="/opt/local/libexec/gnubin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="time" +S["TR"]="/opt/local/libexec/gnubin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="clang++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 4" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,10,16}" +S["FCLIBS"]=" -L/opt/local/lib/gcc12/gcc/x86_64-apple-darwin22/12.2.0 -L/opt/local/lib/gcc12/gcc/x86_64-apple-darwin22/12.2.0/../../.. -lgfortran -lquadmath" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="21" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/opt/local/libexec/gnubin/grep -E" +S["GREP"]="/opt/local/libexec/gnubin/grep" +S["CPP"]="clang -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="clang" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="clang" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Darwin redshift.pi.local 22.4.0 Darwin Kernel Version 22.4.0: Mon Mar 6 21:00:17 PST 2023; root:xnu-8796.101.5~3/RELEASE_X86_64 x86_64 i386 Darwin" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/tmp/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]=" -Wl,-commons,use_dylibs" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Warray-bounds -Wcast-qual -Wconversion -Wdouble-promotion -Wextra -Wformat=2 -Wframe-larger-than=16384 -Wimplicit-fallthrough -W"\ +"null-dereference -Wunused-const-variable -Wwrite-strings -Wpedantic -Wvolatile-register-var -Wno-c++-compat -Wbad-function-cast -Wimplicit-funct"\ +"ion-declaration -Wincompatible-pointer-types -Wmissing-declarations -Wpacked -Wshadow -Wswitch -Wno-error=incompatible-pointer-types-discards-qualif"\ +"iers -Wunused-function -Wunused-variable -Wunused-parameter -Wcast-align -Wformat -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]=" -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Warray-bounds -Wcast-qual -Wconversion -Wdouble-promotion -Wextra -Wformat=2 -Wframe-larger-than=16384 -Wimplicit-fallthrough -Wnu"\ +"ll-dereference -Wunused-const-variable -Wwrite-strings -Wpedantic -Wvolatile-register-var -Wno-c++-compat -Wbad-function-cast -Wimplicit-functio"\ +"n-declaration -Wincompatible-pointer-types -Wmissing-declarations -Wpacked -Wshadow -Wswitch -Wno-error=incompatible-pointer-types-discards-qualifie"\ +"rs -Wunused-function -Wunused-variable -Wunused-parameter -Wcast-align -Wformat -Wno-missing-noreturn -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="darwin22.4.0" +S["host_vendor"]="apple" +S["host_cpu"]="x86_64" +S["host"]="x86_64-apple-darwin22.4.0" +S["build_os"]="darwin22.4.0" +S["build_vendor"]="apple" +S["build_cpu"]="x86_64" +S["build"]="x86_64-apple-darwin22.4.0" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="gawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/opt/local/libexec/gnubin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /tmp/hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /tmp/hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /tmp/hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /tmp/hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /tmp/hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /tmp/hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-lz -ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="" +S["ECHO_C"]="\\c" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/tmp/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/sh" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 21" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_DARWIN"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 2" +D["SIZEOF_UINT_FAST16_T"]=" 2" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_ZLIB_H"]=" 1" +D["HAVE_LIBZ"]=" 1" +D["HAVE_FILTER_DEFLATE"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGSETJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/darwin-arm64v8/H5LTff_gen.F90 b/H/HDF5/bundled/files/darwin-arm64v8/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/darwin-arm64v8/H5TBff_gen.F90 b/H/HDF5/bundled/files/darwin-arm64v8/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c b/H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c new file mode 100644 index 00000000000..3faf579c8a2 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c @@ -0,0 +1,242 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 17, 2023 + * Mark Kittisopikul + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 8; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/darwin-arm64v8/H5_gen.F90 b/H/HDF5/bundled/files/darwin-arm64v8/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/bundled/files/darwin-arm64v8/H5f90i_gen.h b/H/HDF5/bundled/files/darwin-arm64v8/H5f90i_gen.h new file mode 100644 index 00000000000..fd681999127 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5f90i_gen.h @@ -0,0 +1,45 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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 + +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_int_8 hid_t_f; +typedef c_float_4 real_f; +typedef c_float_8 double_f; + +#endif /* _H5f90i_gen_H */ diff --git a/H/HDF5/bundled/files/darwin-arm64v8/H5fortran_types.F90 b/H/HDF5/bundled/files/darwin-arm64v8/H5fortran_types.F90 new file mode 100644 index 00000000000..8a4a09c4613 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5fortran_types.F90 @@ -0,0 +1,40 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 :: HID_T = 8 + INTEGER, PARAMETER :: Fortran_REAL = C_FLOAT + INTEGER, PARAMETER :: Fortran_DOUBLE = C_LONG_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/H/HDF5/bundled/files/darwin-arm64v8/config.status b/H/HDF5/bundled/files/darwin-arm64v8/config.status new file mode 100755 index 00000000000..6842a8528c3 --- /dev/null +++ b/H/HDF5/bundled/files/darwin-arm64v8/config.status @@ -0,0 +1,2944 @@ +#! /bin/sh +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/Users/kittisopikulm/Documents/src/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='../bin/install-sh -c -d' +AWK='awk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/sh '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/sh $*" >&6 + CONFIG_SHELL='/bin/sh' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/sh' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='arm-apple-darwin22.3.0' +host_os='darwin22.3.0' +build_alias='' +build='arm-apple-darwin22.3.0' +build_os='darwin22.3.0' +SED='/usr/bin/sed' +Xsed='/usr/bin/sed -e 1s/^X//' +GREP='/usr/bin/grep' +EGREP='/usr/bin/grep -E' +FGREP='/usr/bin/grep -F' +LD='/Library/Developer/CommandLineTools/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='786432' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='yes' +CC='clang' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*_\([_A-Za-z][_A-Za-z0-9]*\)$/\1 _\2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin -fno-rtti -fno-exceptions' +lt_prog_compiler_pic=' -fno-common -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='dsymutil' +NMEDIT='nmedit' +LIPO='lipo' +OTOOL='otool' +OTOOL64=':' +libext='a' +shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='' +whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module' +archive_expsym_cmds='sed '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +module_cmds='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags' +module_expsym_cmds='sed -e '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +with_gnu_ld='no' +allow_undefined_flag='$wl-flat_namespace $wl-undefined ${wl}suppress' +no_undefined_flag='' +hardcode_libdir_flag_spec='' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='yes' +inherit_rpath='no' +link_all_deplibs='yes' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH DYLD_LIBRARY_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='darwin' +runpath_var='' +shlibpath_var='DYLD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$major$shared_ext $libname$shared_ext' +soname_spec='$libname$release$major$shared_ext' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='' +finish_eval='' +hardcode_into_libs='no' +sys_lib_search_path_spec='/Library/Developer/CommandLineTools/usr/lib/clang/14.0.0 /usr/local/lib' +configure_time_dlsearch_path='/usr/local/lib /lib /usr/lib' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='yes' +old_striplib='strip -S' +striplib='strip -x' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/Library/Developer/CommandLineTools/usr/bin/ld' +LD_FC='/Library/Developer/CommandLineTools/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs' +reload_cmds_FC='$LTCC $LTCFLAGS -nostdlib $wl-r -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='clang++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fno-common -DPIC' +lt_prog_compiler_pic_FC=' -fno-common' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='' +whole_archive_flag_spec_CXX='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' +whole_archive_flag_spec_FC='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience $wl-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='yes' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module' +archive_cmds_FC='$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module' +archive_expsym_cmds_CXX='sed '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +archive_expsym_cmds_FC='sed '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC -dynamiclib $allow_undefined_flag -o $lib $libobjs $deplibs $compiler_flags -install_name $rpath/$soname $verstring $single_module $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +module_cmds_CXX='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags' +module_cmds_FC='$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags' +module_expsym_cmds_CXX='sed -e '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +module_expsym_cmds_FC='sed -e '\''s|^|_|'\'' < $export_symbols > $output_objdir/$libname-symbols.expsym~$CC $allow_undefined_flag -o $lib -bundle $libobjs $deplibs $compiler_flags $wl-exported_symbols_list,$output_objdir/$libname-symbols.expsym' +with_gnu_ld_CXX='no' +with_gnu_ld_FC='no' +allow_undefined_flag_CXX='$wl-flat_namespace $wl-undefined ${wl}suppress' +allow_undefined_flag_FC='$wl-flat_namespace $wl-undefined ${wl}suppress' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='yes' +hardcode_automatic_FC='yes' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='yes' +link_all_deplibs_FC='yes' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='clang' +LTCFLAGS=' ' +compiler='clang' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +../bin/install-sh -c -d java/src/.classes; + ../bin/install-sh -c -d java/test/.classes; + ../bin/install-sh -c -d java/examples/intro/.classes; + ../bin/install-sh -c -d java/examples/datasets/.classes; + ../bin/install-sh -c -d java/examples/datatypes/.classes; + ../bin/install-sh -c -d java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="" +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/Users/kittisopikulm/Documents/src/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/Users/kittisopikulm/.juliaup/bin/ (../configure: line 33059: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/clang++ ( Apple clang version 14.0.0 )" +S["FC_VERSION"]="/usr/local/bin/gfortran ( GNU Fortran (GCC) 12.2.0)" +S["CC_VERSION"]="/usr/bin/clang ( Apple clang version 14.0.0 )" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="kittisopikulm@kittisopikulm-wm1" +S["CONFIG_DATE"]="Mon Apr 17 19:51:07 EDT 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="yes" +S["EXTERNAL_FILTERS"]="deflate(zlib)" +S["H5_IS_DARWIN"]="yes" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]=":" +S["OTOOL"]="otool" +S["LIPO"]="lipo" +S["NMEDIT"]="nmedit" +S["DSYMUTIL"]="dsymutil" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/Library/Developer/CommandLineTools/usr/bin/ld" +S["FGREP"]="/usr/bin/grep -F" +S["SED"]="/usr/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="time" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="clang++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="clang++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="0" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/local/gfortran/lib/gcc/aarch64-apple-darwin22/12.2.0 -L/usr/local/gfortran/lib/gcc/aarch64-apple-darwin22/12.2.0/../../.. -lgfortran -lemutl"\ +"s_w -lquadmath" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="17" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/usr/bin/grep -E" +S["GREP"]="/usr/bin/grep" +S["CPP"]="clang -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="clang" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="clang" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Darwin kittisopikulm-wm1 22.3.0 Darwin Kernel Version 22.3.0: Mon Jan 30 20:38:37 PST 2023; root:xnu-8792.81.3~2/RELEASE_ARM64_T6000 arm64" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/Users/kittisopikulm/Documents/src/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]=" -Wl,-commons,use_dylibs" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Warray-bounds -Wcast-qual -Wconversion -Wdouble-promotion -Wextra -Wformat=2 -Wframe-larger-than=16384 -Wimplicit-fallthrough -W"\ +"null-dereference -Wunused-const-variable -Wwrite-strings -Wpedantic -Wvolatile-register-var -Wno-c++-compat -Wbad-function-cast -Wimplicit-funct"\ +"ion-declaration -Wincompatible-pointer-types -Wmissing-declarations -Wpacked -Wshadow -Wswitch -Wno-error=incompatible-pointer-types-discards-qualif"\ +"iers -Wunused-function -Wunused-variable -Wunused-parameter -Wcast-align -Wformat -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]=" -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Warray-bounds -Wcast-qual -Wconversion -Wdouble-promotion -Wextra -Wformat=2 -Wframe-larger-than=16384 -Wimplicit-fallthrough -Wnu"\ +"ll-dereference -Wunused-const-variable -Wwrite-strings -Wpedantic -Wvolatile-register-var -Wno-c++-compat -Wbad-function-cast -Wimplicit-functio"\ +"n-declaration -Wincompatible-pointer-types -Wmissing-declarations -Wpacked -Wshadow -Wswitch -Wno-error=incompatible-pointer-types-discards-qualifie"\ +"rs -Wunused-function -Wunused-variable -Wunused-parameter -Wcast-align -Wformat -Wno-missing-noreturn -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="darwin22.3.0" +S["host_vendor"]="apple" +S["host_cpu"]="arm" +S["host"]="arm-apple-darwin22.3.0" +S["build_os"]="darwin22.3.0" +S["build_vendor"]="apple" +S["build_cpu"]="arm" +S["build"]="arm-apple-darwin22.3.0" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="awk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="../bin/install-sh -c -d" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /Users/kittisopikulm/Documents/src/hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /Users/kittisopikulm/Documents/src/hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /Users/kittisopikulm/Documents/src/hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /Users/kittisopikulm/Documents/src/hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /Users/kittisopikulm/Documents/src/hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /Users/kittisopikulm/Documents/src/hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-lz -ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="" +S["ECHO_C"]="\\c" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/Users/kittisopikulm/Documents/src/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/sh" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 8" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 17" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"8\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_DARWIN"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 2" +D["SIZEOF_UINT_FAST16_T"]=" 2" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_ZLIB_H"]=" 1" +D["HAVE_LIBZ"]=" 1" +D["HAVE_FILTER_DEFLATE"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGSETJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/debian-amd64/H5LTff_gen.F90 b/H/HDF5/bundled/files/debian-amd64/H5LTff_gen.F90 new file mode 100644 index 00000000000..ef1cde7759e --- /dev/null +++ b/H/HDF5/bundled/files/debian-amd64/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 COPYING 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/H/HDF5/bundled/files/debian-amd64/H5TBff_gen.F90 b/H/HDF5/bundled/files/debian-amd64/H5TBff_gen.F90 new file mode 100644 index 00000000000..9317ae5340f --- /dev/null +++ b/H/HDF5/bundled/files/debian-amd64/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 COPYING 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/H/HDF5/bundled/files/debian-amd64/H5Tinit.c b/H/HDF5/bundled/files/debian-amd64/H5Tinit.c new file mode 100644 index 00000000000..e202f580844 --- /dev/null +++ b/H/HDF5/bundled/files/debian-amd64/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 14, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * ???????? ???????? ???????? ???????? + * 11 10 9 8 + * ???????? ???????? SEEEEEEE EEEEEEEE + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? no + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 80; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 79; +dt->shared->u.atomic.u.f.epos = 64; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 64; +dt->shared->u.atomic.u.f.norm = H5T_NORM_NONE; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/debian-amd64/H5_gen.F90 b/H/HDF5/bundled/files/debian-amd64/H5_gen.F90 new file mode 100644 index 00000000000..841ccd659fb --- /dev/null +++ b/H/HDF5/bundled/files/debian-amd64/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 COPYING 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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/H/HDF5/bundled/files/debian-amd64/H5f90i_gen.h b/H/HDF5/bundled/files/debian-amd64/H5f90i_gen.h new file mode 100644 index 00000000000..961c11feb4e --- /dev/null +++ b/H/HDF5/bundled/files/debian-amd64/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 COPYING 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/H/HDF5/bundled/files/debian-amd64/H5fortran_types.F90 b/H/HDF5/bundled/files/debian-amd64/H5fortran_types.F90 new file mode 100644 index 00000000000..5cd5b2ac7c3 --- /dev/null +++ b/H/HDF5/bundled/files/debian-amd64/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 COPYING 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/H/HDF5/bundled/files/debian-amd64/config.status b/H/HDF5/bundled/files/debian-amd64/config.status new file mode 100644 index 00000000000..37655e85967 --- /dev/null +++ b/H/HDF5/bundled/files/debian-amd64/config.status @@ -0,0 +1,2960 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='x86_64-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='x86_64-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/x86_64-linux-gnu/10 /usr/lib/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/x86_64-linux-gnu /lib/x86_64-linux-gnu /usr/lib/x86_64-linux-gnu ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Fri Apr 14 16:26:17 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 4" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,10,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/x86_64-linux-gnu/10 -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../../lib "\ +"-L/lib/x86_64-linux-gnu -L/lib/../lib -L/usr/lib/x86_64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/10/../../.. -lgfortran -lm -lqua"\ +"dmath" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="33" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 x86_64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="x86_64" +S["host"]="x86_64-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="x86_64" +S["build"]="x86_64-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 16" +D["SIZEOF__QUAD"]=" 0" +D["HAVE_QUADMATH_H"]=" 1" +D["HAVE_FLOAT128"]=" 1" +D["PAC_C_MAX_REAL_PRECISION"]=" 33" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/debian-arm32v5/H5LTff_gen.F90 b/H/HDF5/bundled/files/debian-arm32v5/H5LTff_gen.F90 new file mode 100644 index 00000000000..449f1560bc6 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v5/H5LTff_gen.F90 @@ -0,0 +1,4195 @@ +!****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 COPYING 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_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 + 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_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 + 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 + 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 + 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 + 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 + 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 + 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 + 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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_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 :: 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_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 +END MODULE H5LT diff --git a/H/HDF5/bundled/files/debian-arm32v5/H5TBff_gen.F90 b/H/HDF5/bundled/files/debian-arm32v5/H5TBff_gen.F90 new file mode 100644 index 00000000000..8a9c13a62b1 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v5/H5TBff_gen.F90 @@ -0,0 +1,255 @@ +!****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 COPYING 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 + 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 + 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 + 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 + END INTERFACE + INTERFACE h5tbinsert_field_f + MODULE PROCEDURE h5tbinsert_field_kind_4_rank_1 + MODULE PROCEDURE h5tbinsert_field_kind_8_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 :: 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 :: 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 :: 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 :: 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 +END MODULE H5TB diff --git a/H/HDF5/bundled/files/debian-arm32v5/H5Tinit.c b/H/HDF5/bundled/files/debian-arm32v5/H5Tinit.c new file mode 100644 index 00000000000..9b735fbb523 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v5/H5Tinit.c @@ -0,0 +1,242 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 14, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 8; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/debian-arm32v5/H5_gen.F90 b/H/HDF5/bundled/files/debian-arm32v5/H5_gen.F90 new file mode 100644 index 00000000000..766a16bf535 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v5/H5_gen.F90 @@ -0,0 +1,5317 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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 h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_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_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_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 + END INTERFACE + INTERFACE h5pget_fill_value_f + MODULE PROCEDURE h5pget_fill_value_kind_4 + MODULE PROCEDURE h5pget_fill_value_kind_8 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(prp_id, type_id, f_ptr) + END SUBROUTINE h5pset_fill_value_kind_8 +!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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(prp_id, type_id, f_ptr) + END SUBROUTINE h5pget_fill_value_kind_8 +!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 :: 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 :: 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 :: 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 +END MODULE H5_gen diff --git a/H/HDF5/bundled/files/debian-arm32v5/H5f90i_gen.h b/H/HDF5/bundled/files/debian-arm32v5/H5f90i_gen.h new file mode 100644 index 00000000000..799ee92ed82 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v5/H5f90i_gen.h @@ -0,0 +1,44 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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 long +#define c_size_t_4 size_t +#define c_time_t_4 time_t +#define c_int_8 long long +#define c_hsize_t_8 hsize_t +#define c_float_4 float +#define c_float_8 double + +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_4 size_t_f; +typedef c_time_t_4 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_int_8 hid_t_f; +typedef c_float_4 real_f; +typedef c_float_8 double_f; + +#endif /* _H5f90i_gen_H */ diff --git a/H/HDF5/bundled/files/debian-arm32v5/H5fortran_types.F90 b/H/HDF5/bundled/files/debian-arm32v5/H5fortran_types.F90 new file mode 100644 index 00000000000..c572a3ddf41 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v5/H5fortran_types.F90 @@ -0,0 +1,40 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 4 + INTEGER, PARAMETER :: HADDR_T = 8 + INTEGER, PARAMETER :: HSIZE_T = 8 + INTEGER, PARAMETER :: HSSIZE_T = 8 + INTEGER, PARAMETER :: OFF_T = 8 + INTEGER, PARAMETER :: SIZE_T = 4 + INTEGER, PARAMETER :: TIME_T = 4 + INTEGER, PARAMETER :: Fortran_INTEGER = 4 + INTEGER, DIMENSION(1:4), PARAMETER :: Fortran_INTEGER_AVAIL_KINDS = (/1,2,4,8/) + INTEGER, PARAMETER :: Fortran_REAL_C_FLOAT = 4 + INTEGER, PARAMETER :: Fortran_REAL_C_DOUBLE = 8 + INTEGER, PARAMETER :: HID_T = 8 + INTEGER, PARAMETER :: Fortran_REAL = C_FLOAT + INTEGER, PARAMETER :: Fortran_DOUBLE = C_LONG_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/H/HDF5/bundled/files/debian-arm32v5/config.status b/H/HDF5/bundled/files/debian-arm32v5/config.status new file mode 100644 index 00000000000..df2b9ffc8b3 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v5/config.status @@ -0,0 +1,2939 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='armv7l-unknown-linux-gnueabi' +host_os='linux-gnueabi' +build_alias='' +build='armv7l-unknown-linux-gnueabi' +build_os='linux-gnueabi' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/arm-linux-gnueabi/10 /usr/lib/arm-linux-gnueabi /usr/lib /lib/arm-linux-gnueabi /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib/arm-linux-gnueabi /lib/arm-linux-gnueabi /usr/lib/arm-linux-gnueabi /usr/local/lib ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Fri Apr 14 19:57:45 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="g++" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 4" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 2" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="0" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="0" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="4" +S["PAC_FC_MAX_REAL_PRECISION"]="15" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8}" +S["FCLIBS"]=" -L/usr/lib/gcc/arm-linux-gnueabi/10 -L/usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi -L/usr/lib/gcc/arm-linux-gnueabi/10/../../.. -L/"\ +"lib/arm-linux-gnueabi -L/usr/lib/arm-linux-gnueabi -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="gfortran" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="17" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 armv7l GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]="-D_FILE_OFFSET_BITS=64 -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" " +S["H5_FCFLAGS"]=" " +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" " +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnueabi" +S["host_vendor"]="unknown" +S["host_cpu"]="armv7l" +S["host"]="armv7l-unknown-linux-gnueabi" +S["build_os"]="linux-gnueabi" +S["build_vendor"]="unknown" +S["build_cpu"]="armv7l" +S["build"]="armv7l-unknown-linux-gnueabi" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 4" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 8" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 17" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 15" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 15" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 0" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"8\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["_FILE_OFFSET_BITS"]=" 64" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 4" +D["SIZEOF_UINT_FAST16_T"]=" 4" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 4" +D["SIZEOF_SIZE_T"]=" 4" +D["SIZEOF_SSIZE_T"]=" 4" +D["SIZEOF_TIME_T"]=" 4" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/debian-arm32v7/H5LTff_gen.F90 b/H/HDF5/bundled/files/debian-arm32v7/H5LTff_gen.F90 new file mode 100644 index 00000000000..449f1560bc6 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v7/H5LTff_gen.F90 @@ -0,0 +1,4195 @@ +!****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 COPYING 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_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 + 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_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 + 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 + 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 + 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 + 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 + 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 + 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 + 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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_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 :: 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_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 +END MODULE H5LT diff --git a/H/HDF5/bundled/files/debian-arm32v7/H5TBff_gen.F90 b/H/HDF5/bundled/files/debian-arm32v7/H5TBff_gen.F90 new file mode 100644 index 00000000000..8a9c13a62b1 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v7/H5TBff_gen.F90 @@ -0,0 +1,255 @@ +!****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 COPYING 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 + 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 + 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 + 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 + END INTERFACE + INTERFACE h5tbinsert_field_f + MODULE PROCEDURE h5tbinsert_field_kind_4_rank_1 + MODULE PROCEDURE h5tbinsert_field_kind_8_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 :: 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 :: 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 :: 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 :: 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 +END MODULE H5TB diff --git a/H/HDF5/bundled/files/debian-arm32v7/H5Tinit.c b/H/HDF5/bundled/files/debian-arm32v7/H5Tinit.c new file mode 100644 index 00000000000..9b735fbb523 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v7/H5Tinit.c @@ -0,0 +1,242 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 14, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 8; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/debian-arm32v7/H5_gen.F90 b/H/HDF5/bundled/files/debian-arm32v7/H5_gen.F90 new file mode 100644 index 00000000000..766a16bf535 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v7/H5_gen.F90 @@ -0,0 +1,5317 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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 h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_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_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_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 + END INTERFACE + INTERFACE h5pget_fill_value_f + MODULE PROCEDURE h5pget_fill_value_kind_4 + MODULE PROCEDURE h5pget_fill_value_kind_8 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(prp_id, type_id, f_ptr) + END SUBROUTINE h5pset_fill_value_kind_8 +!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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(prp_id, type_id, f_ptr) + END SUBROUTINE h5pget_fill_value_kind_8 +!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 :: 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 :: 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 :: 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 +END MODULE H5_gen diff --git a/H/HDF5/bundled/files/debian-arm32v7/H5f90i_gen.h b/H/HDF5/bundled/files/debian-arm32v7/H5f90i_gen.h new file mode 100644 index 00000000000..799ee92ed82 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v7/H5f90i_gen.h @@ -0,0 +1,44 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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 long +#define c_size_t_4 size_t +#define c_time_t_4 time_t +#define c_int_8 long long +#define c_hsize_t_8 hsize_t +#define c_float_4 float +#define c_float_8 double + +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_4 size_t_f; +typedef c_time_t_4 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_int_8 hid_t_f; +typedef c_float_4 real_f; +typedef c_float_8 double_f; + +#endif /* _H5f90i_gen_H */ diff --git a/H/HDF5/bundled/files/debian-arm32v7/H5fortran_types.F90 b/H/HDF5/bundled/files/debian-arm32v7/H5fortran_types.F90 new file mode 100644 index 00000000000..c572a3ddf41 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v7/H5fortran_types.F90 @@ -0,0 +1,40 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 4 + INTEGER, PARAMETER :: HADDR_T = 8 + INTEGER, PARAMETER :: HSIZE_T = 8 + INTEGER, PARAMETER :: HSSIZE_T = 8 + INTEGER, PARAMETER :: OFF_T = 8 + INTEGER, PARAMETER :: SIZE_T = 4 + INTEGER, PARAMETER :: TIME_T = 4 + INTEGER, PARAMETER :: Fortran_INTEGER = 4 + INTEGER, DIMENSION(1:4), PARAMETER :: Fortran_INTEGER_AVAIL_KINDS = (/1,2,4,8/) + INTEGER, PARAMETER :: Fortran_REAL_C_FLOAT = 4 + INTEGER, PARAMETER :: Fortran_REAL_C_DOUBLE = 8 + INTEGER, PARAMETER :: HID_T = 8 + INTEGER, PARAMETER :: Fortran_REAL = C_FLOAT + INTEGER, PARAMETER :: Fortran_DOUBLE = C_LONG_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/H/HDF5/bundled/files/debian-arm32v7/config.status b/H/HDF5/bundled/files/debian-arm32v7/config.status new file mode 100644 index 00000000000..449eae53c4f --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm32v7/config.status @@ -0,0 +1,2957 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='armv7l-unknown-linux-gnueabihf' +host_os='linux-gnueabihf' +build_alias='' +build='armv7l-unknown-linux-gnueabihf' +build_os='linux-gnueabihf' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/arm-linux-gnueabihf/10 /usr/lib/arm-linux-gnueabihf /usr/lib /lib/arm-linux-gnueabihf /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib/arm-linux-gnueabihf /lib/arm-linux-gnueabihf /usr/lib/arm-linux-gnueabihf /usr/local/lib ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Fri Apr 14 20:06:53 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 4" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 2" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="0" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="0" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="4" +S["PAC_FC_MAX_REAL_PRECISION"]="15" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8}" +S["FCLIBS"]=" -L/usr/lib/gcc/arm-linux-gnueabihf/10 -L/usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf -L/usr/lib/gcc/arm-linux-gnueabihf/10/../."\ +"./.. -L/lib/arm-linux-gnueabihf -L/usr/lib/arm-linux-gnueabihf -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="17" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 armv7l GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]="-D_FILE_OFFSET_BITS=64 -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnueabihf" +S["host_vendor"]="unknown" +S["host_cpu"]="armv7l" +S["host"]="armv7l-unknown-linux-gnueabihf" +S["build_os"]="linux-gnueabihf" +S["build_vendor"]="unknown" +S["build_cpu"]="armv7l" +S["build"]="armv7l-unknown-linux-gnueabihf" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 4" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 8" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 17" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 15" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 15" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 0" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"8\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["_FILE_OFFSET_BITS"]=" 64" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 4" +D["SIZEOF_UINT_FAST16_T"]=" 4" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 4" +D["SIZEOF_SIZE_T"]=" 4" +D["SIZEOF_SSIZE_T"]=" 4" +D["SIZEOF_TIME_T"]=" 4" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/debian-arm64v8/H5LTff_gen.F90 b/H/HDF5/bundled/files/debian-arm64v8/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm64v8/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-arm64v8/H5TBff_gen.F90 b/H/HDF5/bundled/files/debian-arm64v8/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm64v8/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-arm64v8/H5Tinit.c b/H/HDF5/bundled/files/debian-arm64v8/H5Tinit.c new file mode 100644 index 00000000000..8816a4e4d98 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm64v8/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 14, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * SEEEEEEE EEEEEEEE MMMMMMMM MMMMMMMM + * 11 10 9 8 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 128; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 127; +dt->shared->u.atomic.u.f.epos = 112; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 112; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/debian-arm64v8/H5_gen.F90 b/H/HDF5/bundled/files/debian-arm64v8/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm64v8/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/bundled/files/debian-arm64v8/H5f90i_gen.h b/H/HDF5/bundled/files/debian-arm64v8/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm64v8/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/bundled/files/debian-arm64v8/H5fortran_types.F90 b/H/HDF5/bundled/files/debian-arm64v8/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm64v8/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/bundled/files/debian-arm64v8/config.status b/H/HDF5/bundled/files/debian-arm64v8/config.status new file mode 100644 index 00000000000..67149c21072 --- /dev/null +++ b/H/HDF5/bundled/files/debian-arm64v8/config.status @@ -0,0 +1,2958 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='aarch64-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='aarch64-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/aarch64-linux-gnu/10 /usr/lib/aarch64-linux-gnu /usr/lib /lib/aarch64-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib/aarch64-linux-gnu /lib/aarch64-linux-gnu /usr/lib/aarch64-linux-gnu /usr/local/lib ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Fri Apr 14 20:17:56 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/aarch64-linux-gnu/10 -L/usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu -L/usr/lib/gcc/aarch64-linux-gnu/10/../../../../"\ +"lib -L/lib/aarch64-linux-gnu -L/lib/../lib -L/usr/lib/aarch64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/aarch64-linux-gnu/10/../../.. -lgfortran -l"\ +"m" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="36" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 aarch64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="aarch64" +S["host"]="aarch64-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="aarch64" +S["build"]="aarch64-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 36" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/debian-i386/H5LTff_gen.F90 b/H/HDF5/bundled/files/debian-i386/H5LTff_gen.F90 new file mode 100644 index 00000000000..8e1e001d65f --- /dev/null +++ b/H/HDF5/bundled/files/debian-i386/H5LTff_gen.F90 @@ -0,0 +1,5907 @@ +!****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 COPYING 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 + 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 + 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 + 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 + 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_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 :: 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_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 +END MODULE H5LT diff --git a/H/HDF5/bundled/files/debian-i386/H5TBff_gen.F90 b/H/HDF5/bundled/files/debian-i386/H5TBff_gen.F90 new file mode 100644 index 00000000000..9317ae5340f --- /dev/null +++ b/H/HDF5/bundled/files/debian-i386/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 COPYING 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/H/HDF5/bundled/files/debian-i386/H5Tinit.c b/H/HDF5/bundled/files/debian-i386/H5Tinit.c new file mode 100644 index 00000000000..e0e8dac2083 --- /dev/null +++ b/H/HDF5/bundled/files/debian-i386/H5Tinit.c @@ -0,0 +1,244 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 15, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 4; + + /* + * 11 10 9 8 + * ???????? ???????? SEEEEEEE EEEEEEEE + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? no + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 12; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 80; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 79; +dt->shared->u.atomic.u.f.epos = 64; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 64; +dt->shared->u.atomic.u.f.norm = H5T_NORM_NONE; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 4; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/debian-i386/H5_gen.F90 b/H/HDF5/bundled/files/debian-i386/H5_gen.F90 new file mode 100644 index 00000000000..bfe1a5ad28e --- /dev/null +++ b/H/HDF5/bundled/files/debian-i386/H5_gen.F90 @@ -0,0 +1,6989 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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/H/HDF5/bundled/files/debian-i386/H5f90i_gen.h b/H/HDF5/bundled/files/debian-i386/H5f90i_gen.h new file mode 100644 index 00000000000..60f1ba92c15 --- /dev/null +++ b/H/HDF5/bundled/files/debian-i386/H5f90i_gen.h @@ -0,0 +1,48 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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 long +#define c_size_t_4 size_t +#define c_time_t_4 time_t +#define c_int_8 long long +#define c_hsize_t_8 hsize_t +#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_4 size_t_f; +typedef c_time_t_4 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/H/HDF5/bundled/files/debian-i386/H5fortran_types.F90 b/H/HDF5/bundled/files/debian-i386/H5fortran_types.F90 new file mode 100644 index 00000000000..98635be8a73 --- /dev/null +++ b/H/HDF5/bundled/files/debian-i386/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 COPYING 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 = 4 + INTEGER, PARAMETER :: HADDR_T = 8 + INTEGER, PARAMETER :: HSIZE_T = 8 + INTEGER, PARAMETER :: HSSIZE_T = 8 + INTEGER, PARAMETER :: OFF_T = 8 + INTEGER, PARAMETER :: SIZE_T = 4 + INTEGER, PARAMETER :: TIME_T = 4 + INTEGER, PARAMETER :: Fortran_INTEGER = 4 + INTEGER, DIMENSION(1:4), PARAMETER :: Fortran_INTEGER_AVAIL_KINDS = (/1,2,4,8/) + 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/H/HDF5/bundled/files/debian-i386/config.status b/H/HDF5/bundled/files/debian-i386/config.status new file mode 100644 index 00000000000..1ce76742628 --- /dev/null +++ b/H/HDF5/bundled/files/debian-i386/config.status @@ -0,0 +1,2960 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='x86_64-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='x86_64-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/i686-linux-gnu/10 /usr/lib/i386-linux-gnu /usr/lib /lib/i386-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib/i386-linux-gnu /lib/i386-linux-gnu /usr/lib/i386-linux-gnu /usr/local/lib/i686-linux-gnu /lib/i686-linux-gnu /usr/lib/i686-linux-gnu /usr/local/lib ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Sat Apr 15 21:02:55 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 4" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,12,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 4" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="0" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,12,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="4" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,10,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/i686-linux-gnu/10 -L/usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu -L/usr/lib/gcc/i686-linux-gnu/10/../../../../lib -L/lib/i"\ +"386-linux-gnu -L/lib/../lib -L/usr/lib/i386-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/i686-linux-gnu/10/../../.. -lgfortran -lm -lquadmath" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="33" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 x86_64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]="-D_FILE_OFFSET_BITS=64 -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="x86_64" +S["host"]="x86_64-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="x86_64" +S["build"]="x86_64-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 4" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 12" +D["SIZEOF___FLOAT128"]=" 16" +D["SIZEOF__QUAD"]=" 0" +D["HAVE_QUADMATH_H"]=" 1" +D["HAVE_FLOAT128"]=" 1" +D["PAC_C_MAX_REAL_PRECISION"]=" 33" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 0" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"12\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,12,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["_FILE_OFFSET_BITS"]=" 64" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 4" +D["SIZEOF_UINT_FAST16_T"]=" 4" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 4" +D["SIZEOF_SIZE_T"]=" 4" +D["SIZEOF_SSIZE_T"]=" 4" +D["SIZEOF_TIME_T"]=" 4" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/debian-mips64le/H5LTff_gen.F90 b/H/HDF5/bundled/files/debian-mips64le/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/bundled/files/debian-mips64le/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-mips64le/H5TBff_gen.F90 b/H/HDF5/bundled/files/debian-mips64le/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/bundled/files/debian-mips64le/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-mips64le/H5Tinit.c b/H/HDF5/bundled/files/debian-mips64le/H5Tinit.c new file mode 100644 index 00000000000..8816a4e4d98 --- /dev/null +++ b/H/HDF5/bundled/files/debian-mips64le/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 14, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * SEEEEEEE EEEEEEEE MMMMMMMM MMMMMMMM + * 11 10 9 8 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 128; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 127; +dt->shared->u.atomic.u.f.epos = 112; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 112; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/debian-mips64le/H5_gen.F90 b/H/HDF5/bundled/files/debian-mips64le/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/bundled/files/debian-mips64le/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/bundled/files/debian-mips64le/H5f90i_gen.h b/H/HDF5/bundled/files/debian-mips64le/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/bundled/files/debian-mips64le/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/bundled/files/debian-mips64le/H5fortran_types.F90 b/H/HDF5/bundled/files/debian-mips64le/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/bundled/files/debian-mips64le/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/bundled/files/debian-mips64le/config.status b/H/HDF5/bundled/files/debian-mips64le/config.status new file mode 100644 index 00000000000..3668f773795 --- /dev/null +++ b/H/HDF5/bundled/files/debian-mips64le/config.status @@ -0,0 +1,2952 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='no' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='mips64el-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='mips64el-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld -m elf' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='yes' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='' +whole_archive_flag_spec='' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='' +archive_expsym_cmds='' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='no' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/mips64el-linux-gnuabi64/10 /usr/lib/mips64el-linux-gnuabi64 /usr/lib /lib/mips64el-linux-gnuabi64 /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/mips64el-linux-gnuabi64 /lib/mips64el-linux-gnuabi64 /usr/lib/mips64el-linux-gnuabi64 ' +configure_time_lt_sys_library_path='' +hardcode_action='unsupported' +enable_dlopen='yes' +enable_dlopen_self='no' +enable_dlopen_self_static='unknown' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/usr/bin/ld -m elf' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='unsupported' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="#" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="no" +S["STATIC_SHARED"]="static" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Fri Apr 14 20:26:11 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld -m elf" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/mips64el-linux-gnuabi64/10 -L/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64 -L/usr/lib/gcc/mips64el-linux-"\ +"gnuabi64/10/../../../../lib -L/lib/mips64el-linux-gnuabi64 -L/lib/../lib -L/usr/lib/mips64el-linux-gnuabi64 -L/usr/lib/../lib -L/usr/lib/gcc/mips64e"\ +"l-linux-gnuabi64/10/../../.. -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="36" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 mips64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="mips64el" +S["host"]="mips64el-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="mips64el" +S["build"]="mips64el-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 36" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/debian-ppc64le/H5LTff_gen.F90 b/H/HDF5/bundled/files/debian-ppc64le/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/bundled/files/debian-ppc64le/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-ppc64le/H5TBff_gen.F90 b/H/HDF5/bundled/files/debian-ppc64le/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/bundled/files/debian-ppc64le/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-ppc64le/H5Tinit.c b/H/HDF5/bundled/files/debian-ppc64le/H5Tinit.c new file mode 100644 index 00000000000..9d9f42cb42b --- /dev/null +++ b/H/HDF5/bundled/files/debian-ppc64le/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 14, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * ???????? ???????? ???????? ???????? + * 11 10 9 8 + * ???????? ???????? ???????? ???????? + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/debian-ppc64le/H5_gen.F90 b/H/HDF5/bundled/files/debian-ppc64le/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/bundled/files/debian-ppc64le/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/bundled/files/debian-ppc64le/H5f90i_gen.h b/H/HDF5/bundled/files/debian-ppc64le/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/bundled/files/debian-ppc64le/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/bundled/files/debian-ppc64le/H5fortran_types.F90 b/H/HDF5/bundled/files/debian-ppc64le/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/bundled/files/debian-ppc64le/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/bundled/files/debian-ppc64le/config.status b/H/HDF5/bundled/files/debian-ppc64le/config.status new file mode 100644 index 00000000000..1256dfe59c2 --- /dev/null +++ b/H/HDF5/bundled/files/debian-ppc64le/config.status @@ -0,0 +1,2961 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='powerpc64le-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='powerpc64le-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/powerpc64le-linux-gnu/10 /usr/lib/powerpc64le-linux-gnu /usr/lib /lib/powerpc64le-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/powerpc64le-linux-gnu /lib/powerpc64le-linux-gnu /usr/lib/powerpc64le-linux-gnu ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Fri Apr 14 20:36:10 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="31" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/powerpc64le-linux-gnu/10 -L/usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu -L/usr/lib/gcc/powerpc64le-linux-gnu"\ +"/10/../../../../lib -L/lib/powerpc64le-linux-gnu -L/lib/../lib -L/usr/lib/powerpc64le-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/powerpc64le-linux-g"\ +"nu/10/../../.. -lgfortran -lm -lquadmath" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="33" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 ppc64le GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="powerpc64le" +S["host"]="powerpc64le-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="powerpc64le" +S["build"]="powerpc64le-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 16" +D["SIZEOF__QUAD"]=" 0" +D["HAVE_QUADMATH_H"]=" 1" +D["HAVE_FLOAT128"]=" 1" +D["PAC_C_MAX_REAL_PRECISION"]=" 33" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 31" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 31" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["DISABLE_SOME_LDOUBLE_CONV"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/debian-riscv64/H5LTff_gen.F90 b/H/HDF5/bundled/files/debian-riscv64/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/bundled/files/debian-riscv64/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-riscv64/H5TBff_gen.F90 b/H/HDF5/bundled/files/debian-riscv64/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/bundled/files/debian-riscv64/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-riscv64/H5Tinit.c b/H/HDF5/bundled/files/debian-riscv64/H5Tinit.c new file mode 100644 index 00000000000..c6459820540 --- /dev/null +++ b/H/HDF5/bundled/files/debian-riscv64/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 19, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * SEEEEEEE EEEEEEEE MMMMMMMM MMMMMMMM + * 11 10 9 8 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 128; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 127; +dt->shared->u.atomic.u.f.epos = 112; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 112; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/debian-riscv64/H5_gen.F90 b/H/HDF5/bundled/files/debian-riscv64/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/bundled/files/debian-riscv64/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/bundled/files/debian-riscv64/H5f90i_gen.h b/H/HDF5/bundled/files/debian-riscv64/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/bundled/files/debian-riscv64/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/bundled/files/debian-riscv64/H5fortran_types.F90 b/H/HDF5/bundled/files/debian-riscv64/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/bundled/files/debian-riscv64/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/bundled/files/debian-riscv64/config.status b/H/HDF5/bundled/files/debian-riscv64/config.status new file mode 100644 index 00000000000..5656e9a5d06 --- /dev/null +++ b/H/HDF5/bundled/files/debian-riscv64/config.status @@ -0,0 +1,2956 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/usr/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='riscv64-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='riscv64-unknown-linux-gnu' +build_os='linux-gnu' +SED='/usr/bin/sed' +Xsed='/usr/bin/sed -e 1s/^X//' +GREP='/usr/bin/grep' +EGREP='/usr/bin/grep -E' +FGREP='/usr/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/usr/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/riscv64-linux-gnu/12 /lib/riscv64-linux-gnu /lib /usr/lib/riscv64-linux-gnu /usr/lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/riscv64-linux-gnu /lib/riscv64-linux-gnu /usr/lib/riscv64-linux-gnu ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='$wl--export-dynamic' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/riscv64-linux-gnu/12 /lib/riscv64-linux-gnu /usr/lib/riscv64-linux-gnu' +compiler_lib_search_dirs_FC='/usr/lib/gcc/riscv64-linux-gnu/12 /lib/riscv64-linux-gnu /usr/lib/riscv64-linux-gnu' +predep_objects_CXX='/usr/lib/gcc/riscv64-linux-gnu/12/crti.o /usr/lib/gcc/riscv64-linux-gnu/12/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/riscv64-linux-gnu/12/crti.o /usr/lib/gcc/riscv64-linux-gnu/12/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/riscv64-linux-gnu/12/crtendS.o /usr/lib/gcc/riscv64-linux-gnu/12/crtn.o' +postdep_objects_FC='/usr/lib/gcc/riscv64-linux-gnu/12/crtendS.o /usr/lib/gcc/riscv64-linux-gnu/12/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/riscv64-linux-gnu/12 -L/lib/riscv64-linux-gnu -L/usr/lib/riscv64-linux-gnu' +compiler_lib_search_path_FC='-L/usr/lib/gcc/riscv64-linux-gnu/12 -L/lib/riscv64-linux-gnu -L/usr/lib/riscv64-linux-gnu' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/usr/bin/mkdir -p java/src/.classes; + /usr/bin/mkdir -p java/test/.classes; + /usr/bin/mkdir -p java/examples/intro/.classes; + /usr/bin/mkdir -p java/examples/datasets/.classes; + /usr/bin/mkdir -p java/examples/datatypes/.classes; + /usr/bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Wed Apr 19 22:54:52 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/usr/bin/grep -F" +S["SED"]="/usr/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/riscv64-linux-gnu/12 -L/lib/riscv64-linux-gnu -L/usr/lib/riscv64-linux-gnu -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="36" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/usr/bin/grep -E" +S["GREP"]="/usr/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 riscv64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="riscv64" +S["host"]="riscv64-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="riscv64" +S["build"]="riscv64-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/usr/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 36" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/debian-s390x/H5LTff_gen.F90 b/H/HDF5/bundled/files/debian-s390x/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/bundled/files/debian-s390x/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-s390x/H5TBff_gen.F90 b/H/HDF5/bundled/files/debian-s390x/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/bundled/files/debian-s390x/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/bundled/files/debian-s390x/H5Tinit.c b/H/HDF5/bundled/files/debian-s390x/H5Tinit.c new file mode 100644 index 00000000000..62883e12efd --- /dev/null +++ b/H/HDF5/bundled/files/debian-s390x/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 14, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 0 1 2 3 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_BE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 0 1 2 3 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 4 5 6 7 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_BE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 0 1 2 3 + * SEEEEEEE EEEEEEEE MMMMMMMM MMMMMMMM + * 4 5 6 7 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 8 9 10 11 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 12 13 14 15 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_BE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 128; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 127; +dt->shared->u.atomic.u.f.epos = 112; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 112; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 8; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_BE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/debian-s390x/H5_gen.F90 b/H/HDF5/bundled/files/debian-s390x/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/bundled/files/debian-s390x/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/bundled/files/debian-s390x/H5f90i_gen.h b/H/HDF5/bundled/files/debian-s390x/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/bundled/files/debian-s390x/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/bundled/files/debian-s390x/H5fortran_types.F90 b/H/HDF5/bundled/files/debian-s390x/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/bundled/files/debian-s390x/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/bundled/files/debian-s390x/config.status b/H/HDF5/bundled/files/debian-s390x/config.status new file mode 100644 index 00000000000..fd2b2a4261c --- /dev/null +++ b/H/HDF5/bundled/files/debian-s390x/config.status @@ -0,0 +1,2958 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='s390x-ibm-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='s390x-ibm-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/s390x-linux-gnu/10 /usr/lib/s390x-linux-gnu /usr/lib /lib/s390x-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/s390x-linux-gnu /lib/s390x-linux-gnu /usr/lib/s390x-linux-gnu ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="yes" +S["BYTESEX"]="big-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Fri Apr 14 20:43:49 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/s390x-linux-gnu/10 -L/usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu -L/usr/lib/gcc/s390x-linux-gnu/10/../../../../lib -L/l"\ +"ib/s390x-linux-gnu -L/lib/../lib -L/usr/lib/s390x-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/s390x-linux-gnu/10/../../.. -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="36" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 s390x GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="ibm" +S["host_cpu"]="s390x" +S["host"]="s390x-ibm-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="ibm" +S["build_cpu"]="s390x" +S["build"]="s390x-ibm-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["WORDS_BIGENDIAN"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 36" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/freebsd-amd64/H5LTff_gen.F90 b/H/HDF5/bundled/files/freebsd-amd64/H5LTff_gen.F90 new file mode 100644 index 00000000000..ef1cde7759e --- /dev/null +++ b/H/HDF5/bundled/files/freebsd-amd64/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 COPYING 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/H/HDF5/bundled/files/freebsd-amd64/H5TBff_gen.F90 b/H/HDF5/bundled/files/freebsd-amd64/H5TBff_gen.F90 new file mode 100644 index 00000000000..9317ae5340f --- /dev/null +++ b/H/HDF5/bundled/files/freebsd-amd64/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 COPYING 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/H/HDF5/bundled/files/freebsd-amd64/H5Tinit.c b/H/HDF5/bundled/files/freebsd-amd64/H5Tinit.c new file mode 100644 index 00000000000..90e83a5fa8e --- /dev/null +++ b/H/HDF5/bundled/files/freebsd-amd64/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 15, 2023 + * Erik Schnetter + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * ???????? ???????? ???????? ???????? + * 11 10 9 8 + * ???????? ???????? SEEEEEEE EEEEEEEE + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? no + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 80; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 79; +dt->shared->u.atomic.u.f.epos = 64; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 64; +dt->shared->u.atomic.u.f.norm = H5T_NORM_NONE; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/freebsd-amd64/H5_gen.F90 b/H/HDF5/bundled/files/freebsd-amd64/H5_gen.F90 new file mode 100644 index 00000000000..841ccd659fb --- /dev/null +++ b/H/HDF5/bundled/files/freebsd-amd64/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 COPYING 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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/H/HDF5/bundled/files/freebsd-amd64/H5f90i_gen.h b/H/HDF5/bundled/files/freebsd-amd64/H5f90i_gen.h new file mode 100644 index 00000000000..1400983def5 --- /dev/null +++ b/H/HDF5/bundled/files/freebsd-amd64/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 COPYING 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 long double + +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/H/HDF5/bundled/files/freebsd-amd64/H5fortran_types.F90 b/H/HDF5/bundled/files/freebsd-amd64/H5fortran_types.F90 new file mode 100644 index 00000000000..5cd5b2ac7c3 --- /dev/null +++ b/H/HDF5/bundled/files/freebsd-amd64/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 COPYING 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/H/HDF5/bundled/files/freebsd-amd64/config.status b/H/HDF5/bundled/files/freebsd-amd64/config.status new file mode 100755 index 00000000000..3009a8a0f4c --- /dev/null +++ b/H/HDF5/bundled/files/freebsd-amd64/config.status @@ -0,0 +1,2941 @@ +#! /bin/sh +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-c++' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/home/eschnett/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='../bin/install-sh -c -d' +AWK='nawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/sh '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/sh $*" >&6 + CONFIG_SHELL='/bin/sh' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/sh' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='x86_64-unknown-freebsd13.2' +host_os='freebsd13.2' +build_alias='' +build='x86_64-unknown-freebsd13.2' +build_os='freebsd13.2' +SED='/usr/bin/sed' +Xsed='/usr/bin/sed -e 1s/^X//' +GREP='/usr/bin/grep' +EGREP='/usr/bin/grep -E' +FGREP='/usr/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/local/bin/nm -B' +LN_S='ln -s' +max_cmd_len='393216' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='cc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin -fno-rtti -fno-exceptions' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='freebsd-elf' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/clang/14.0.5 /usr/lib ' +configure_time_dlsearch_path='/lib /usr/lib' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='' +striplib='' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='' +compiler_FC='gfortran' +GCC_CXX='' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='' +compiler_lib_search_dirs_FC='' +predep_objects_CXX='' +predep_objects_FC='' +postdep_objects_CXX='' +postdep_objects_FC='' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='' +postdeps_FC='' +compiler_lib_search_path_CXX='' +compiler_lib_search_path_FC='' + +LTCC='cc' +LTCFLAGS=' ' +compiler='cc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +../bin/install-sh -c -d java/src/.classes; + ../bin/install-sh -c -d java/test/.classes; + ../bin/install-sh -c -d java/examples/intro/.classes; + ../bin/install-sh -c -d java/examples/datasets/.classes; + ../bin/install-sh -c -d java/examples/datatypes/.classes; + ../bin/install-sh -c -d java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="" +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="" +S["BUILD_CXX_CONDITIONAL_TRUE"]="#" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/usr/home/eschnett/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/sbin/ (../configure: -version: Permission denied)" +S["CXX_VERSION"]="no" +S["FC_VERSION"]="/usr/local/bin/gfortran" +S["CC_VERSION"]="/usr/bin/cc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="eschnett@freebsd" +S["CONFIG_DATE"]="Sat Apr 15 13:59:01 EDT 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="yes" +S["EXTERNAL_FILTERS"]="deflate(zlib)" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/local/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/usr/bin/grep -F" +S["SED"]="/usr/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="time" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="c++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="no" +S["HDF_CXX"]="no" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 4" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,10,16}" +S["FCLIBS"]=" -L/usr/local/lib/gcc12/gcc/x86_64-portbld-freebsd13.1/12.2.0 -L/usr/local/lib/gcc12/gcc/x86_64-portbld-freebsd13.1/12.2.0/../../../../../x86_64-por"\ +"tbld-freebsd13.1/lib -L/usr/local/lib/gcc12/gcc/x86_64-portbld-freebsd13.1/12.2.0/../../.. -lgfortran -lm -lquadmath" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="gfortran" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="21" +S["HDF5_INTERFACES"]=" fortran" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/usr/bin/grep -E" +S["GREP"]="/usr/bin/grep" +S["CPP"]="cc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="cc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="cc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="FreeBSD freebsd 13.2-RELEASE FreeBSD 13.2-RELEASE releng/13.2-n254617-525ecfdad597 GENERIC amd64" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/home/eschnett/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Warray-bounds -Wcast-qual -Wconversion -Wdouble-promotion -Wextra -Wformat=2 -Wframe-larger-than=16384 -Wimplicit-fallthrough -W"\ +"null-dereference -Wunused-const-variable -Wwrite-strings -Wpedantic -Wvolatile-register-var -Wno-c++-compat -Wbad-function-cast -Wimplicit-funct"\ +"ion-declaration -Wincompatible-pointer-types -Wmissing-declarations -Wpacked -Wshadow -Wswitch -Wno-error=incompatible-pointer-types-discards-qualif"\ +"iers -Wunused-function -Wunused-variable -Wunused-parameter -Wcast-align -Wformat -O3" +S["H5_FCFLAGS"]=" " +S["H5_CPPFLAGS"]=" -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Warray-bounds -Wcast-qual -Wconversion -Wdouble-promotion -Wextra -Wformat=2 -Wframe-larger-than=16384 -Wimplicit-fallthrough -Wnu"\ +"ll-dereference -Wunused-const-variable -Wwrite-strings -Wpedantic -Wvolatile-register-var -Wno-c++-compat -Wbad-function-cast -Wimplicit-functio"\ +"n-declaration -Wincompatible-pointer-types -Wmissing-declarations -Wpacked -Wshadow -Wswitch -Wno-error=incompatible-pointer-types-discards-qualifie"\ +"rs -Wunused-function -Wunused-variable -Wunused-parameter -Wcast-align -Wformat -Wno-missing-noreturn -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="freebsd13.2" +S["host_vendor"]="unknown" +S["host_cpu"]="x86_64" +S["host"]="x86_64-unknown-freebsd13.2" +S["build_os"]="freebsd13.2" +S["build_vendor"]="unknown" +S["build_cpu"]="x86_64" +S["build"]="x86_64-unknown-freebsd13.2" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="nawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="../bin/install-sh -c -d" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /home/eschnett/hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /home/eschnett/hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /home/eschnett/hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /home/eschnett/hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /home/eschnett/hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /home/eschnett/hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-lz -ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/home/eschnett/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/sh" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 21" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 4" +D["SIZEOF_UINT_FAST8_T"]=" 4" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 4" +D["SIZEOF_UINT_FAST16_T"]=" 4" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_ZLIB_H"]=" 1" +D["HAVE_LIBZ"]=" 1" +D["HAVE_FILTER_DEFLATE"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGSETJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/get_config_setting b/H/HDF5/bundled/files/get_config_setting new file mode 100755 index 00000000000..096135b8f28 --- /dev/null +++ b/H/HDF5/bundled/files/get_config_setting @@ -0,0 +1,15 @@ +#!/bin/bash + +# Extract a config setting from a previous `config.status` file, +# and create a setting that can be passed to `./configure`. This would look like +# hdf_cv_PAC_C_MAX_REAL_PRECISION=33 +# This setting might contains spaces, and yet it is *not* enclosed in quotes. +# Instead, this script is supposed to be called inside double quotes, as in +# "$(../get_config_setting PAC_C_MAX_REAL_PRECISION ../config.saved)" +# Shell programming is fun. + +set -exuo pipefail +name="$1" +values="$2" +grep '^S.*"'"$name"'"' "$values" | +sed -e 's/^S\["'"$name"'"\]="\(.*\)"$/hdf5_cv_'"$name"'=\1/' diff --git a/H/HDF5/bundled/files/msys2-mingw32/H5LTff_gen.F90 b/H/HDF5/bundled/files/msys2-mingw32/H5LTff_gen.F90 new file mode 100644 index 00000000000..8e1e001d65f --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/H5LTff_gen.F90 @@ -0,0 +1,5907 @@ +!****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 COPYING 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 + 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 + 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 + 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 + 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_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 :: 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_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 +END MODULE H5LT diff --git a/H/HDF5/bundled/files/msys2-mingw32/H5TBff_gen.F90 b/H/HDF5/bundled/files/msys2-mingw32/H5TBff_gen.F90 new file mode 100644 index 00000000000..9317ae5340f --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/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 COPYING 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/H/HDF5/bundled/files/msys2-mingw32/H5Tinit.c b/H/HDF5/bundled/files/msys2-mingw32/H5Tinit.c new file mode 100644 index 00000000000..246750604f6 --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/H5Tinit.c @@ -0,0 +1,244 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 18, 2023 + * + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 11 10 9 8 + * ???????? ???????? SEEEEEEE EEEEEEEE + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? no + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 12; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 80; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 79; +dt->shared->u.atomic.u.f.epos = 64; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 64; +dt->shared->u.atomic.u.f.norm = H5T_NORM_NONE; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 4; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/msys2-mingw32/H5_gen.F90 b/H/HDF5/bundled/files/msys2-mingw32/H5_gen.F90 new file mode 100644 index 00000000000..bfe1a5ad28e --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/H5_gen.F90 @@ -0,0 +1,6989 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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/H/HDF5/bundled/files/msys2-mingw32/H5f90i_gen.h b/H/HDF5/bundled/files/msys2-mingw32/H5f90i_gen.h new file mode 100644 index 00000000000..60f1ba92c15 --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/H5f90i_gen.h @@ -0,0 +1,48 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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 long +#define c_size_t_4 size_t +#define c_time_t_4 time_t +#define c_int_8 long long +#define c_hsize_t_8 hsize_t +#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_4 size_t_f; +typedef c_time_t_4 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/H/HDF5/bundled/files/msys2-mingw32/H5fortran_types.F90 b/H/HDF5/bundled/files/msys2-mingw32/H5fortran_types.F90 new file mode 100644 index 00000000000..98635be8a73 --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/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 COPYING 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 = 4 + INTEGER, PARAMETER :: HADDR_T = 8 + INTEGER, PARAMETER :: HSIZE_T = 8 + INTEGER, PARAMETER :: HSSIZE_T = 8 + INTEGER, PARAMETER :: OFF_T = 8 + INTEGER, PARAMETER :: SIZE_T = 4 + INTEGER, PARAMETER :: TIME_T = 4 + INTEGER, PARAMETER :: Fortran_INTEGER = 4 + INTEGER, DIMENSION(1:4), PARAMETER :: Fortran_INTEGER_AVAIL_KINDS = (/1,2,4,8/) + 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/H/HDF5/bundled/files/msys2-mingw32/config.status b/H/HDF5/bundled/files/msys2-mingw32/config.status new file mode 100644 index 00000000000..177510d2180 --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/config.status @@ -0,0 +1,2942 @@ +#! /bin/sh +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran' '--with-szlib'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/home/kittisopikulm/hdf5-1.14.0/build32' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/usr/bin/mkdir -p' +AWK='gawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/sh '../configure' '--enable-cxx' '--enable-fortran' '--with-szlib' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/sh $*" >&6 + CONFIG_SHELL='/bin/sh' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/sh' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='i686-w64-mingw32' +host_os='mingw32' +build_alias='i686-w64-mingw32' +build='i686-w64-mingw32' +build_os='mingw32' +SED='/usr/bin/sed' +Xsed='/usr/bin/sed -e 1s/^X//' +GREP='/usr/bin/grep' +EGREP='/usr/bin/grep -E' +FGREP='/usr/bin/grep -F' +LD='D:/msys64/mingw32/i686-w64-mingw32/bin/ld.exe' +NM='/mingw32/bin/nm -B' +LN_S='cp -pR' +max_cmd_len='8192' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_msys_to_w32' +lt_cv_to_tool_file_cmd='func_convert_file_msys_to_w32' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' +file_magic_cmd='func_win32_libid' +file_magic_glob='' +want_nocaseglob='yes' +DLLTOOL='dlltool' +sharedlib_from_linklib_cmd='func_cygming_dll_for_implib' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*_\([_A-Za-z][_A-Za-z0-9]*\) \{0,1\}$/\1 _\2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/usr/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -DDLL_EXPORT -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.dll' +extract_expsyms_cmds='' +archive_cmds_need_lc='yes' +enable_shared_with_static_runtimes='yes' +export_dynamic_flag_spec='$wl--export-all-symbols' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='unsupported' +no_undefined_flag='' +hardcode_libdir_flag_spec='-L$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='windows' +runpath_var='LD_RUN_PATH' +shlibpath_var='PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname.dll.a' +soname_spec='$libname`echo $release | $SED -e s/[.]/-/g`$versuffix$shared_ext' +install_override_mode='' +postinstall_cmds='base_file=`basename \$file`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname~ + chmod a+x \$dldir/$dlname~ + if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then + eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; + fi' +postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $RM \$dlpath' +finish_cmds='' +finish_eval='' +hardcode_into_libs='no' +sys_lib_search_path_spec='D:/msys64/mingw32/lib/gcc/i686-w64-mingw32/12.2.0 D:/msys64/mingw32/lib/gcc D:/msys64/mingw32/i686-w64-mingw32/lib D:/msys64/mingw32/lib ' +configure_time_dlsearch_path='/lib /usr/lib' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='unknown' +enable_dlopen_self_static='unknown' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='D:/msys64/mingw32/i686-w64-mingw32/bin/ld.exe' +LD_FC='D:/msys64/mingw32/i686-w64-mingw32/bin/ld.exe' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -DDLL_EXPORT -DPIC' +lt_prog_compiler_pic_FC=' -DDLL_EXPORT' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='yes' +enable_shared_with_static_runtimes_FC='yes' +export_dynamic_flag_spec_CXX='$wl--export-all-symbols' +export_dynamic_flag_spec_FC='$wl--export-all-symbols' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +archive_expsym_cmds_CXX='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +archive_expsym_cmds_FC='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='unsupported' +allow_undefined_flag_FC='unsupported' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='-L$libdir' +hardcode_libdir_flag_spec_FC='-L$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' +exclude_expsyms_FC='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0 D:/msys64/mingw32/bin/../lib/gcc D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../i686-w64-mingw32/lib/../lib D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../lib D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../i686-w64-mingw32/lib D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../..' +compiler_lib_search_dirs_FC='D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0 D:/msys64/mingw32/bin/../lib/gcc D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../i686-w64-mingw32/lib/../lib D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../lib D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../i686-w64-mingw32/lib D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../..' +predep_objects_CXX='D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../lib/dllcrt2.o D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/crtbegin.o' +predep_objects_FC='D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../lib/dllcrt2.o D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/crtbegin.o' +postdep_objects_CXX='D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/crtend.o' +postdep_objects_FC='D:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/crtend.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32 -lpthread -ladvapi32 -lshell32 -luser32 -lkernel32 -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32' +postdeps_FC='-lgfortran -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32 -lquadmath -lm -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32 -lpthread -ladvapi32 -lshell32 -luser32 -lkernel32 -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32' +compiler_lib_search_path_CXX='-LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0 -LD:/msys64/mingw32/bin/../lib/gcc -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../i686-w64-mingw32/lib/../lib -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../lib -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../i686-w64-mingw32/lib -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../..' +compiler_lib_search_path_FC='-LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0 -LD:/msys64/mingw32/bin/../lib/gcc -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../i686-w64-mingw32/lib/../lib -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../lib -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../i686-w64-mingw32/lib -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../..' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/usr/bin/mkdir -p java/src/.classes; + /usr/bin/mkdir -p java/test/.classes; + /usr/bin/mkdir -p java/examples/intro/.classes; + /usr/bin/mkdir -p java/examples/datasets/.classes; + /usr/bin/mkdir -p java/examples/datatypes/.classes; + /usr/bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="#" +S["am__EXEEXT_TRUE"]="" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="" +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/home/kittisopikulm/hdf5-1.14.0/build32" +S["JAVA_VERSION"]="/mingw32/bin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/mingw32/bin/g++" +S["FC_VERSION"]="/mingw32/bin/gfortran" +S["CC_VERSION"]="/mingw32/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="kittisopikulm@KITTISOPIKULM-2" +S["CONFIG_DATE"]="Tue Apr 18 11:47:25 EDT 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="yes" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="yes" +S["EXTERNAL_FILTERS"]="deflate(zlib),szip(encoder)" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="dlltool" +S["OBJDUMP"]="objdump" +S["LN_S"]="cp -pR" +S["NM"]="/mingw32/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="D:/msys64/mingw32/i686-w64-mingw32/bin/ld.exe" +S["FGREP"]="/usr/bin/grep -F" +S["SED"]="/usr/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="time" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="g++" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 4" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,12,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 4" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="0" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,12,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="4" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,10,16}" +S["FCLIBS"]=" -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0 -LD:/msys64/mingw32/bin/../lib/gcc -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/1"\ +"2.2.0/../../../../i686-w64-mingw32/lib/../lib -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../../../lib -LD:/msys64/mingw32/bin/../"\ +"lib/gcc/i686-w64-mingw32/12.2.0/../../../../i686-w64-mingw32/lib -LD:/msys64/mingw32/bin/../lib/gcc/i686-w64-mingw32/12.2.0/../../.. -lgfortran -lmi"\ +"ngw32 -lmoldname -lmingwex -lmsvcrt -lkernel32 -lquadmath -lm -lkernel32 -lpthread -ladvapi32 -lshell32 -luser32 -lkernel32 -lkernel32" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="gfortran" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="33" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/usr/bin/grep -E" +S["GREP"]="/usr/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]=".exe" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="MINGW32_NT-10.0-19044 KITTISOPIKULM-2 3.3.6-341.x86_64 2022-11-20 15:12 UTC x86_64 Msys" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]="-D_FILE_OFFSET_BITS=64 -I/home/kittisopikulm/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]=" -no-undefined" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" " +S["H5_FCFLAGS"]=" " +S["H5_CPPFLAGS"]=" -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" " +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="mingw32" +S["host_vendor"]="w64" +S["host_cpu"]="i686" +S["host"]="i686-w64-mingw32" +S["build_os"]="mingw32" +S["build_vendor"]="w64" +S["build_cpu"]="i686" +S["build"]="i686-w64-mingw32" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="gawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/usr/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="cygpath -w" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="i686-w64-mingw32" +S["LIBS"]="-lsz -lz -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/mingw32" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/sh" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 4" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 12" +D["SIZEOF___FLOAT128"]=" 16" +D["SIZEOF__QUAD"]=" 0" +D["HAVE_QUADMATH_H"]=" 1" +D["HAVE_FLOAT128"]=" 1" +D["PAC_C_MAX_REAL_PRECISION"]=" 33" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 0" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"12\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,12,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["_FILE_OFFSET_BITS"]=" 64" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 2" +D["SIZEOF_UINT_FAST16_T"]=" 2" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 4" +D["SIZEOF_SIZE_T"]=" 4" +D["SIZEOF_SSIZE_T"]=" 4" +D["SIZEOF_TIME_T"]=" 4" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_ZLIB_H"]=" 1" +D["HAVE_LIBZ"]=" 1" +D["HAVE_FILTER_DEFLATE"]=" 1" +D["HAVE_SZLIB_H"]=" 1" +D["HAVE_LIBSZ"]=" 1" +D["HAVE_FILTER_SZIP"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["HAVE_WINDOW_PATH"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/files/msys2-mingw64/H5LTff_gen.F90 b/H/HDF5/bundled/files/msys2-mingw64/H5LTff_gen.F90 new file mode 100644 index 00000000000..ef1cde7759e --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw64/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 COPYING 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/H/HDF5/bundled/files/msys2-mingw64/H5TBff_gen.F90 b/H/HDF5/bundled/files/msys2-mingw64/H5TBff_gen.F90 new file mode 100644 index 00000000000..9317ae5340f --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw64/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 COPYING 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/H/HDF5/bundled/files/msys2-mingw64/H5Tinit.c b/H/HDF5/bundled/files/msys2-mingw64/H5Tinit.c new file mode 100644 index 00000000000..d84048d5068 --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw64/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 17, 2023 + * + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * ???????? ???????? ???????? ???????? + * 11 10 9 8 + * ???????? ???????? SEEEEEEE EEEEEEEE + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? no + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 80; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 79; +dt->shared->u.atomic.u.f.epos = 64; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 64; +dt->shared->u.atomic.u.f.norm = H5T_NORM_NONE; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/bundled/files/msys2-mingw64/H5_gen.F90 b/H/HDF5/bundled/files/msys2-mingw64/H5_gen.F90 new file mode 100644 index 00000000000..841ccd659fb --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw64/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 COPYING 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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/H/HDF5/bundled/files/msys2-mingw64/H5f90i_gen.h b/H/HDF5/bundled/files/msys2-mingw64/H5f90i_gen.h new file mode 100644 index 00000000000..a869826c810 --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw64/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 COPYING 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 long +#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/H/HDF5/bundled/files/msys2-mingw64/H5fortran_types.F90 b/H/HDF5/bundled/files/msys2-mingw64/H5fortran_types.F90 new file mode 100644 index 00000000000..5cd5b2ac7c3 --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw64/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 COPYING 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/H/HDF5/bundled/files/msys2-mingw64/config.status b/H/HDF5/bundled/files/msys2-mingw64/config.status new file mode 100644 index 00000000000..6fd6f2748d3 --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw64/config.status @@ -0,0 +1,2940 @@ +#! /bin/sh +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/sh} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/home/kittisopikulm/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/usr/bin/mkdir -p' +AWK='gawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/sh '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/sh $*" >&6 + CONFIG_SHELL='/bin/sh' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/sh' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='x86_64-w64-mingw32' +host_os='mingw32' +build_alias='x86_64-w64-mingw32' +build='x86_64-w64-mingw32' +build_os='mingw32' +SED='/usr/bin/sed' +Xsed='/usr/bin/sed -e 1s/^X//' +GREP='/usr/bin/grep' +EGREP='/usr/bin/grep -E' +FGREP='/usr/bin/grep -F' +LD='D:/msys64/mingw64/x86_64-w64-mingw32/bin/ld.exe' +NM='/mingw64/bin/nm -B' +LN_S='cp -pR' +max_cmd_len='8192' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_msys_to_w32' +lt_cv_to_tool_file_cmd='func_convert_file_msys_to_w32' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' +file_magic_cmd='func_win32_libid' +file_magic_glob='' +want_nocaseglob='yes' +DLLTOOL='dlltool' +sharedlib_from_linklib_cmd='func_cygming_dll_for_implib' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\) \{0,1\}$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/usr/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -DDLL_EXPORT -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.dll' +extract_expsyms_cmds='' +archive_cmds_need_lc='yes' +enable_shared_with_static_runtimes='yes' +export_dynamic_flag_spec='$wl--export-all-symbols' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +archive_expsym_cmds='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='unsupported' +no_undefined_flag='' +hardcode_libdir_flag_spec='-L$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='windows' +runpath_var='LD_RUN_PATH' +shlibpath_var='PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname.dll.a' +soname_spec='$libname`echo $release | $SED -e s/[.]/-/g`$versuffix$shared_ext' +install_override_mode='' +postinstall_cmds='base_file=`basename \$file`~ + dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\$base_file'\''i; echo \$dlname'\''`~ + dldir=$destdir/`dirname \$dlpath`~ + test -d \$dldir || mkdir -p \$dldir~ + $install_prog $dir/$dlname \$dldir/$dlname~ + chmod a+x \$dldir/$dlname~ + if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then + eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; + fi' +postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ + dlpath=$dir/\$dldll~ + $RM \$dlpath' +finish_cmds='' +finish_eval='' +hardcode_into_libs='no' +sys_lib_search_path_spec='D:/msys64/mingw64/lib/gcc/x86_64-w64-mingw32/12.2.0 D:/msys64/mingw64/lib/gcc D:/msys64/mingw64/x86_64-w64-mingw32/lib D:/msys64/mingw64/lib ' +configure_time_dlsearch_path='/lib /usr/lib' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='unknown' +enable_dlopen_self_static='unknown' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='D:/msys64/mingw64/x86_64-w64-mingw32/bin/ld.exe' +LD_FC='D:/msys64/mingw64/x86_64-w64-mingw32/bin/ld.exe' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -DDLL_EXPORT -DPIC' +lt_prog_compiler_pic_FC=' -DDLL_EXPORT' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='yes' +enable_shared_with_static_runtimes_FC='yes' +export_dynamic_flag_spec_CXX='$wl--export-all-symbols' +export_dynamic_flag_spec_FC='$wl--export-all-symbols' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +archive_cmds_FC='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +archive_expsym_cmds_CXX='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +archive_expsym_cmds_FC='if test DEF = "`$SED -n -e '\''s/^[ ]*//'\'' -e '\''/^\(;.*\)*$/d'\'' -e '\''s/^\(EXPORTS\|LIBRARY\)\([ ].*\)*$/DEF/p'\'' -e q $export_symbols`" ; then + cp $export_symbols $output_objdir/$soname.def; + else + echo EXPORTS > $output_objdir/$soname.def; + cat $export_symbols >> $output_objdir/$soname.def; + fi~ + $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname $wl--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='unsupported' +allow_undefined_flag_FC='unsupported' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='-L$libdir' +hardcode_libdir_flag_spec_FC='-L$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' +exclude_expsyms_FC='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0 D:/msys64/mingw64/bin/../lib/gcc D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../x86_64-w64-mingw32/lib/../lib D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../lib D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../x86_64-w64-mingw32/lib D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../..' +compiler_lib_search_dirs_FC='D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0 D:/msys64/mingw64/bin/../lib/gcc D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../x86_64-w64-mingw32/lib/../lib D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../lib D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../x86_64-w64-mingw32/lib D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../..' +predep_objects_CXX='D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../lib/dllcrt2.o D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/crtbegin.o' +predep_objects_FC='D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../lib/dllcrt2.o D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/crtbegin.o' +postdep_objects_CXX='D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/crtend.o' +postdep_objects_FC='D:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/crtend.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32 -lpthread -ladvapi32 -lshell32 -luser32 -lkernel32 -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32' +postdeps_FC='-lgfortran -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32 -lquadmath -lm -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32 -lpthread -ladvapi32 -lshell32 -luser32 -lkernel32 -lmingw32 -lgcc_s -lgcc -lmoldname -lmingwex -lmsvcrt -lkernel32' +compiler_lib_search_path_CXX='-LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0 -LD:/msys64/mingw64/bin/../lib/gcc -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../x86_64-w64-mingw32/lib/../lib -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../lib -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../x86_64-w64-mingw32/lib -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../..' +compiler_lib_search_path_FC='-LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0 -LD:/msys64/mingw64/bin/../lib/gcc -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../x86_64-w64-mingw32/lib/../lib -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../lib -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../x86_64-w64-mingw32/lib -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../..' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/usr/bin/mkdir -p java/src/.classes; + /usr/bin/mkdir -p java/test/.classes; + /usr/bin/mkdir -p java/examples/intro/.classes; + /usr/bin/mkdir -p java/examples/datasets/.classes; + /usr/bin/mkdir -p java/examples/datatypes/.classes; + /usr/bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="#" +S["am__EXEEXT_TRUE"]="" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="" +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/home/kittisopikulm/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/mingw64/bin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/mingw64/bin/g++" +S["FC_VERSION"]="/mingw64/bin/gfortran" +S["CC_VERSION"]="/mingw64/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="kittisopikulm@KITTISOPIKULM-2" +S["CONFIG_DATE"]="Mon Apr 17 19:08:20 EDT 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="yes" +S["EXTERNAL_FILTERS"]="deflate(zlib)" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="dlltool" +S["OBJDUMP"]="objdump" +S["LN_S"]="cp -pR" +S["NM"]="/mingw64/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="D:/msys64/mingw64/x86_64-w64-mingw32/bin/ld.exe" +S["FGREP"]="/usr/bin/grep -F" +S["SED"]="/usr/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="time" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="g++" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 4" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,10,16}" +S["FCLIBS"]=" -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0 -LD:/msys64/mingw64/bin/../lib/gcc -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw"\ +"32/12.2.0/../../../../x86_64-w64-mingw32/lib/../lib -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../lib -LD:/msys64/mingw64"\ +"/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../../../x86_64-w64-mingw32/lib -LD:/msys64/mingw64/bin/../lib/gcc/x86_64-w64-mingw32/12.2.0/../../.. -"\ +"lgfortran -lmingw32 -lmoldname -lmingwex -lmsvcrt -lkernel32 -lquadmath -lm -lkernel32 -lpthread -ladvapi32 -lshell32 -luser32 -lkernel32 -lkernel32" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="gfortran" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="33" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/usr/bin/grep -E" +S["GREP"]="/usr/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]=".exe" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="MINGW64_NT-10.0-19044 KITTISOPIKULM-2 3.3.6-341.x86_64 2022-11-20 15:12 UTC x86_64 Msys" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]="-D_FILE_OFFSET_BITS=64 -I/home/kittisopikulm/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]=" -no-undefined" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" " +S["H5_FCFLAGS"]=" " +S["H5_CPPFLAGS"]=" -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" " +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="mingw32" +S["host_vendor"]="w64" +S["host_cpu"]="x86_64" +S["host"]="x86_64-w64-mingw32" +S["build_os"]="mingw32" +S["build_vendor"]="w64" +S["build_cpu"]="x86_64" +S["build"]="x86_64-w64-mingw32" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="gawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/usr/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /home/kittisopikulm/hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="cygpath -w" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="x86_64-w64-mingw32" +S["LIBS"]="-lz -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/mingw64" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/sh" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 4" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 16" +D["SIZEOF__QUAD"]=" 0" +D["HAVE_QUADMATH_H"]=" 1" +D["HAVE_FLOAT128"]=" 1" +D["PAC_C_MAX_REAL_PRECISION"]=" 33" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["_FILE_OFFSET_BITS"]=" 64" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 2" +D["SIZEOF_UINT_FAST16_T"]=" 2" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_ZLIB_H"]=" 1" +D["HAVE_LIBZ"]=" 1" +D["HAVE_FILTER_DEFLATE"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_GETCONSOLESCREENBUFFERINFO"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["HAVE_WINDOW_PATH"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/bundled/headers/pthread_time.h b/H/HDF5/bundled/headers/pthread_time.h new file mode 100644 index 00000000000..edf6e1c52d4 --- /dev/null +++ b/H/HDF5/bundled/headers/pthread_time.h @@ -0,0 +1,97 @@ +/* + Copyright (c) 2011-2016 mingw-w64 project + + Permission is hereby granted, free of charge, to any person obtaining a + copy of this software and associated documentation files (the "Software"), + to deal in the Software without restriction, including without limitation + the rights to use, copy, modify, merge, publish, distribute, sublicense, + and/or sell copies of the Software, and to permit persons to whom the + Software is furnished to do so, subject to the following conditions: + + The above copyright notice and this permission notice shall be included in + all copies or substantial portions of the Software. + + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR + IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, + FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE + AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER + LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING + FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER + DEALINGS IN THE SOFTWARE. +*/ + +#include + +#ifndef WIN_PTHREADS_TIME_H +#define WIN_PTHREADS_TIME_H + +/* Posix timers are supported */ +#ifndef _POSIX_TIMERS +#define _POSIX_TIMERS 200809L +#endif + +/* Monotonic clocks are available. */ +#ifndef _POSIX_MONOTONIC_CLOCK +#define _POSIX_MONOTONIC_CLOCK 200809L +#endif + +/* CPU-time clocks are available. */ +#ifndef _POSIX_CPUTIME +#define _POSIX_CPUTIME 200809L +#endif + +/* Clock support in threads are available. */ +#ifndef _POSIX_THREAD_CPUTIME +#define _POSIX_THREAD_CPUTIME 200809L +#endif + +#ifndef __clockid_t_defined +typedef int clockid_t; +#define __clockid_t_defined 1 +#endif /* __clockid_t_defined */ + +#ifndef TIMER_ABSTIME +#define TIMER_ABSTIME 1 +#endif + +#ifndef CLOCK_REALTIME +#define CLOCK_REALTIME 0 +#endif + +#ifndef CLOCK_MONOTONIC +#define CLOCK_MONOTONIC 1 +#endif + +#ifndef CLOCK_PROCESS_CPUTIME_ID +#define CLOCK_PROCESS_CPUTIME_ID 2 +#endif + +#ifndef CLOCK_THREAD_CPUTIME_ID +#define CLOCK_THREAD_CPUTIME_ID 3 +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +/* Make sure we provide default for WINPTHREAD_API, if not defined. */ +#pragma push_macro("WINPTHREAD_API") +#ifndef WINPTHREAD_API +#define WINPTHREAD_API +#endif + +/* These should really be dllimport'ed if using winpthread dll */ +int __cdecl WINPTHREAD_API nanosleep(const struct timespec *request, struct timespec *remain); + +int __cdecl WINPTHREAD_API clock_nanosleep(clockid_t clock_id, int flags, const struct timespec *request, struct timespec *remain); +int __cdecl WINPTHREAD_API clock_getres(clockid_t clock_id, struct timespec *res); +int __cdecl WINPTHREAD_API clock_gettime(clockid_t clock_id, struct timespec *tp); +int __cdecl WINPTHREAD_API clock_settime(clockid_t clock_id, const struct timespec *tp); + +#pragma pop_macro("WINPTHREAD_API") + +#ifdef __cplusplus +} +#endif + +#endif /* WIN_PTHREADS_TIME_H */ diff --git a/H/HDF5/bundled/patches/CMakeLists.txt.patch b/H/HDF5/bundled/patches/CMakeLists.txt.patch new file mode 100644 index 00000000000..4aed5604f81 --- /dev/null +++ b/H/HDF5/bundled/patches/CMakeLists.txt.patch @@ -0,0 +1,209 @@ +diff -ru hdf5-1.14.0.old/src/CMakeLists.txt hdf5-1.14.0.new/src/CMakeLists.txt +--- hdf5-1.14.0.old/src/CMakeLists.txt 2022-12-28 11:50:30 ++++ hdf5-1.14.0.new/src/CMakeLists.txt 2023-04-09 16:06:25 +@@ -8,6 +8,7 @@ + ${HDF5_SRC_DIR}/H5.c + ${HDF5_SRC_DIR}/H5checksum.c + ${HDF5_SRC_DIR}/H5dbg.c ++ ${HDF5_SRC_DIR}/H5lib_settings.c + ${HDF5_SRC_DIR}/H5mpi.c + ${HDF5_SRC_DIR}/H5system.c + ${HDF5_SRC_DIR}/H5timer.c +@@ -635,6 +636,7 @@ + ${HDF5_SRC_DIR}/H5Tfields.c + ${HDF5_SRC_DIR}/H5Tfixed.c + ${HDF5_SRC_DIR}/H5Tfloat.c ++ ${HDF5_SRC_DIR}/H5Tinit.c + ${HDF5_SRC_DIR}/H5Tnative.c + ${HDF5_SRC_DIR}/H5Toffset.c + ${HDF5_SRC_DIR}/H5Toh.c +@@ -1075,159 +1077,8 @@ + endif () + endif () + +-#### make the H5detect program +-set (lib_prog_deps) +-add_executable (H5detect ${HDF5_SRC_DIR}/H5detect.c) +-target_include_directories (H5detect PRIVATE "${HDF5_SRC_INCLUDE_DIRS};${HDF5_SRC_BINARY_DIR};$<$:${MPI_C_INCLUDE_DIRS}>") +-target_compile_definitions(H5detect PUBLIC ${HDF_EXTRA_C_FLAGS} ${HDF_EXTRA_FLAGS}) +-TARGET_C_PROPERTIES (H5detect STATIC) +-target_link_libraries (H5detect +- PRIVATE "$<$:MPI::MPI_C>" $<$,$>:ws2_32.lib> +-) +-target_compile_options(H5detect +- PRIVATE "$<$:-O0>" +-) +-set (lib_prog_deps ${lib_prog_deps} H5detect) +- +-# check if a pregenerated H5Tinit.c file is present +-if (NOT EXISTS "${HDF5_GENERATED_SOURCE_DIR}/H5Tinit.c") +- # execute the H5detect program +- if (HDF5_BATCH_H5DETECT) +- configure_file ( +- ${HDF5_SOURCE_DIR}/bin/batch/${HDF5_BATCH_H5DETECT_SCRIPT}.in.cmake +- ${HDF5_BINARY_DIR}/${HDF5_BATCH_H5DETECT_SCRIPT} ESCAPE_QUOTES @ONLY +- ) +- add_custom_command ( +- OUTPUT gen_SRCS.stamp1 +- BYPRODUCTS H5Tinit.c +- COMMAND ${HDF5_BATCH_CMD} +- ARGS ${HDF5_BINARY_DIR}/${HDF5_BATCH_H5DETECT_SCRIPT} +- COMMAND ${CMAKE_COMMAND} +- ARGS -E echo "Executed batch command to create H5Tinit.c" +- COMMAND ${CMAKE_COMMAND} +- ARGS -E touch gen_SRCS.stamp1 +- DEPENDS H5detect +- WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} +- ) +- add_custom_target (gen_H5Tinit +- COMMAND ${CMAKE_COMMAND} -P ${HDF5_SOURCE_DIR}/config/cmake/wait_H5Tinit.cmake +- ) +- else () +- add_custom_command ( +- OUTPUT gen_SRCS.stamp1 +- BYPRODUCTS H5Tinit.c +- COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ +- ARGS H5Tinit.c +- COMMAND ${CMAKE_COMMAND} +- ARGS -E touch gen_SRCS.stamp1 +- DEPENDS H5detect +- WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} +- COMMENT "Create H5Tinit.c" +- ) +- if (BUILD_SHARED_LIBS) +- add_custom_command ( +- OUTPUT shared/shared_gen_SRCS.stamp1 +- BYPRODUCTS shared/H5Tinit.c +- COMMAND ${CMAKE_COMMAND} +- ARGS -E copy_if_different H5Tinit.c shared/H5Tinit.c +- COMMAND ${CMAKE_COMMAND} +- ARGS -E touch shared/shared_gen_SRCS.stamp1 +- DEPENDS H5detect gen_SRCS.stamp1 +- WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} +- COMMENT "Copy H5Tinit.c to shared folder" +- ) +- endif () +- endif () +-else () +- add_custom_command ( +- OUTPUT gen_SRCS.stamp1 +- COMMAND ${CMAKE_COMMAND} +- ARGS -E touch gen_SRCS.stamp1 +- DEPENDS H5Tinit.c +- WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} +- COMMENT "Touch existing H5Tinit.c" +- ) +- set_source_files_properties (${HDF5_GENERATED_SOURCE_DIR}/H5Tinit.c PROPERTIES GENERATED TRUE) +- if (BUILD_SHARED_LIBS) +- add_custom_command ( +- OUTPUT shared/shared_gen_SRCS.stamp1 +- BYPRODUCTS shared/H5Tinit.c +- COMMAND ${CMAKE_COMMAND} +- ARGS -E copy_if_different H5Tinit.c shared/H5Tinit.c +- COMMAND ${CMAKE_COMMAND} +- ARGS -E touch shared/shared_gen_SRCS.stamp1 +- DEPENDS H5Tinit.c gen_SRCS.stamp1 +- WORKING_DIRECTORY ${HDF5_GENERATED_SOURCE_DIR} +- COMMENT "Copy existing H5Tinit.c to shared folder" +- ) +- endif () +-endif () +- +-#----------------------------------------------------------------------------- +-# Add Target to clang-format +-#----------------------------------------------------------------------------- +-if (HDF5_ENABLE_FORMATTERS) +- clang_format (HDF5_SRC_DETECT_FORMAT ${HDF5_SRC_DIR}/H5detect.c) +-endif () +- +-# make the H5make_libsettings program +-add_executable (H5make_libsettings ${HDF5_SRC_DIR}/H5make_libsettings.c) +-target_include_directories (H5make_libsettings PRIVATE "${HDF5_SRC_INCLUDE_DIRS};${HDF5_SRC_BINARY_DIR};$<$:${MPI_C_INCLUDE_DIRS}>") +-target_compile_definitions(H5make_libsettings PUBLIC ${HDF_EXTRA_C_FLAGS} ${HDF_EXTRA_FLAGS}) +-TARGET_C_PROPERTIES (H5make_libsettings STATIC) +-target_link_libraries (H5make_libsettings +- PRIVATE "$<$:MPI::MPI_C>" $<$,$>:ws2_32.lib> +-) +-target_compile_options(H5make_libsettings +- PRIVATE "$<$:-O0>" +-) +-set (lib_prog_deps ${lib_prog_deps} H5make_libsettings) +- +-#----------------------------------------------------------------------------- +-# Add Target to clang-format +-#----------------------------------------------------------------------------- +-if (HDF5_ENABLE_FORMATTERS) +- clang_format (HDF5_SRC_LIBSETTINGS_FORMAT H5make_libsettings) +-endif () +- +-# execute the H5make_libsettings program +-add_custom_command ( +- OUTPUT gen_SRCS.stamp2 +- BYPRODUCTS H5lib_settings.c +- COMMAND ${CMAKE_CROSSCOMPILING_EMULATOR} $ +- ARGS H5lib_settings.c +- COMMAND ${CMAKE_COMMAND} +- ARGS -E touch gen_SRCS.stamp2 +- DEPENDS H5make_libsettings +- WORKING_DIRECTORY ${HDF5_SRC_BINARY_DIR} +- COMMENT "Create H5lib_settings.c" +-) +-set_source_files_properties (${HDF5_SRC_BINARY_DIR}/H5lib_settings.c PROPERTIES GENERATED TRUE) +-if (BUILD_SHARED_LIBS) +- add_custom_command ( +- OUTPUT shared/shared_gen_SRCS.stamp2 +- BYPRODUCTS shared/H5lib_settings.c +- COMMAND ${CMAKE_COMMAND} +- ARGS -E copy_if_different H5lib_settings.c shared/H5lib_settings.c +- COMMAND ${CMAKE_COMMAND} +- ARGS -E touch shared/shared_gen_SRCS.stamp2 +- DEPENDS H5make_libsettings gen_SRCS.stamp2 +- WORKING_DIRECTORY ${HDF5_SRC_BINARY_DIR} +- COMMENT "Copy H5lib_settings.c to shared folder" +- ) +-endif () +- +-#----------------------------------------------------------------------------- +-# Add H5Tinit source to build - generated by H5detect/CMake at configure time +-#----------------------------------------------------------------------------- + if (NOT ONLY_SHARED_LIBS) +- set (gen_SRCS ${HDF5_GENERATED_SOURCE_DIR}/H5Tinit.c ${HDF5_SRC_BINARY_DIR}/H5lib_settings.c) +- add_custom_target (gen_${HDF5_LIB_TARGET} ALL +- DEPENDS ${lib_prog_deps} ${HDF5_GENERATED_SOURCE_DIR}/gen_SRCS.stamp1 ${HDF5_SRC_BINARY_DIR}/gen_SRCS.stamp2 +- COMMENT "Generation target files" +- ) +- +- add_library (${HDF5_LIB_TARGET} STATIC ${common_SRCS} ${gen_SRCS} ${H5_PUBLIC_HEADERS} ${H5_PRIVATE_HEADERS} ${H5_GENERATED_HEADERS} ${H5_MODULE_HEADERS}) ++ add_library (${HDF5_LIB_TARGET} STATIC ${common_SRCS} ${H5_PUBLIC_HEADERS} ${H5_PRIVATE_HEADERS} ${H5_GENERATED_HEADERS} ${H5_MODULE_HEADERS}) + target_include_directories (${HDF5_LIB_TARGET} + PRIVATE "${HDF5_SRC_INCLUDE_DIRS};${HDF5_SRC_BINARY_DIR};$<$:${MPI_C_INCLUDE_DIRS}>" + INTERFACE "$/include>;$" +@@ -1255,19 +1106,12 @@ + set_global_variable (HDF5_LIBRARIES_TO_EXPORT ${HDF5_LIB_TARGET}) + H5_SET_LIB_OPTIONS (${HDF5_LIB_TARGET} ${HDF5_LIB_NAME} STATIC 0) + set_target_properties (${HDF5_LIB_TARGET} PROPERTIES FOLDER libraries) +- add_dependencies (${HDF5_LIB_TARGET} gen_${HDF5_LIB_TARGET}) + + set (install_targets ${HDF5_LIB_TARGET}) + endif () + + if (BUILD_SHARED_LIBS) +- set (shared_gen_SRCS ${HDF5_GENERATED_SOURCE_DIR}/shared/H5Tinit.c ${HDF5_SRC_BINARY_DIR}/shared/H5lib_settings.c) +- add_custom_target (gen_${HDF5_LIBSH_TARGET} ALL +- DEPENDS ${lib_prog_deps} ${HDF5_GENERATED_SOURCE_DIR}/shared/shared_gen_SRCS.stamp1 ${HDF5_SRC_BINARY_DIR}/shared/shared_gen_SRCS.stamp2 +- COMMENT "Shared generation target files" +- ) +- +- add_library (${HDF5_LIBSH_TARGET} SHARED ${common_SRCS} ${shared_gen_SRCS} ${H5_PUBLIC_HEADERS} ${H5_PRIVATE_HEADERS} ${H5_GENERATED_HEADERS} ${H5_MODULE_HEADERS}) ++ add_library (${HDF5_LIBSH_TARGET} SHARED ${common_SRCS} ${H5_PUBLIC_HEADERS} ${H5_PRIVATE_HEADERS} ${H5_GENERATED_HEADERS} ${H5_MODULE_HEADERS}) + target_include_directories (${HDF5_LIBSH_TARGET} + PRIVATE "${HDF5_SRC_INCLUDE_DIRS};${HDF5_SRC_BINARY_DIR};$<$:${MPI_C_INCLUDE_DIRS}>" + PUBLIC "$<$:${HDFS_INCLUDE_DIR}>" +@@ -1294,7 +1138,6 @@ + set_global_variable (HDF5_LIBRARIES_TO_EXPORT "${HDF5_LIBRARIES_TO_EXPORT};${HDF5_LIBSH_TARGET}") + H5_SET_LIB_OPTIONS (${HDF5_LIBSH_TARGET} ${HDF5_LIB_NAME} SHARED "LIB") + set_target_properties (${HDF5_LIBSH_TARGET} PROPERTIES FOLDER libraries) +- add_dependencies (${HDF5_LIBSH_TARGET} gen_${HDF5_LIBSH_TARGET}) + + set (install_targets ${install_targets} ${HDF5_LIBSH_TARGET}) + endif () diff --git a/H/HDF5/bundled/patches/configure.ac.patch b/H/HDF5/bundled/patches/configure.ac.patch new file mode 100644 index 00000000000..ca5c524fdb3 --- /dev/null +++ b/H/HDF5/bundled/patches/configure.ac.patch @@ -0,0 +1,65 @@ +--- hdf5-1.14.0.old/configure.ac 2022-12-28 16:18:22 ++++ hdf5-1.14.0.new/configure.ac 2023-04-14 16:50:12 +@@ -567,16 +567,13 @@ + AC_CHECK_SIZEOF([__float128]) + AC_CHECK_SIZEOF([_Quad]) + AC_CHECK_HEADERS([quadmath.h], [HAVE_QUADMATH=1], []) +- PAC_FC_LDBL_DIG + + AC_SUBST([PAC_C_MAX_REAL_PRECISION]) + + if test "$ac_cv_sizeof___float128" != 0 && test "$FLT128_DIG" != 0 ; then + AC_DEFINE([HAVE_FLOAT128], [1], [Determine if __float128 is available]) +- PAC_C_MAX_REAL_PRECISION=$FLT128_DIG +- else +- PAC_C_MAX_REAL_PRECISION=$LDBL_DIG + fi ++ PAC_C_MAX_REAL_PRECISION="$hdf5_cv_PAC_C_MAX_REAL_PRECISION" + AC_DEFINE_UNQUOTED([PAC_C_MAX_REAL_PRECISION], $PAC_C_MAX_REAL_PRECISION, [Determine the maximum decimal precision in C]) + AC_MSG_RESULT([$PAC_C_MAX_REAL_PRECISION]) + +@@ -668,14 +665,37 @@ + + ## See if the fortran compiler supports the intrinsic module "ISO_FORTRAN_ENV" + PAC_PROG_FC_ISO_FORTRAN_ENV +- ## Check KIND and size of native integer +- PAC_FC_NATIVE_INTEGER + +- ## Find all available KINDs +- PAC_FC_AVAIL_KINDS +- ## Find all sizeofs for available KINDs +- PAC_FC_SIZEOF_INT_KINDS +- PAC_FC_SIZEOF_REAL_KINDS ++ PAC_FC_ALL_REAL_KINDS="$hdf5_cv_PAC_FC_ALL_REAL_KINDS" ++ PAC_FC_MAX_REAL_PRECISION="$hdf5_cv_PAC_FC_MAX_REAL_PRECISION" ++ PAC_FORTRAN_NUM_INTEGER_KINDS="$hdf5_cv_PAC_FORTRAN_NUM_INTEGER_KINDS" ++ PAC_FC_ALL_INTEGER_KINDS="$hdf5_cv_PAC_FC_ALL_INTEGER_KINDS" ++ PAC_FC_ALL_REAL_KINDS_SIZEOF="$hdf5_cv_PAC_FC_ALL_REAL_KINDS_SIZEOF" ++ PAC_FC_ALL_INTEGER_KINDS_SIZEOF="$hdf5_cv_PAC_FC_ALL_INTEGER_KINDS_SIZEOF" ++ PAC_FORTRAN_NATIVE_INTEGER_KIND="$hdf5_cv_PAC_FORTRAN_NATIVE_INTEGER_KIND" ++ PAC_FORTRAN_NATIVE_INTEGER_SIZEOF="$hdf5_cv_PAC_FORTRAN_NATIVE_INTEGER_SIZEOF" ++ PAC_FORTRAN_NATIVE_REAL_KIND="$hdf5_cv_PAC_FORTRAN_NATIVE_REAL_KIND" ++ PAC_FORTRAN_NATIVE_REAL_SIZEOF="$hdf5_cv_PAC_FORTRAN_NATIVE_REAL_SIZEOF" ++ PAC_FORTRAN_NATIVE_DOUBLE_KIND="$hdf5_cv_PAC_FORTRAN_NATIVE_DOUBLE_KIND" ++ PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF="$hdf5_cv_PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF" ++ HAVE_Fortran_INTEGER_SIZEOF="$hdf5_cv_HAVE_Fortran_INTEGER_SIZEOF" ++ FORTRAN_HAVE_C_LONG_DOUBLE="$hdf5_cv_FORTRAN_HAVE_C_LONG_DOUBLE" ++ FORTRAN_C_LONG_DOUBLE_IS_UNIQUE="$hdf5_cv_FORTRAN_C_LONG_DOUBLE_IS_UNIQUE" ++ H5CONFIG_F_NUM_RKIND="$hdf5_cv_H5CONFIG_F_NUM_RKIND" ++ H5CONFIG_F_RKIND="$hdf5_cv_H5CONFIG_F_RKIND" ++ H5CONFIG_F_RKIND_SIZEOF="$hdf5_cv_H5CONFIG_F_RKIND_SIZEOF" ++ H5CONFIG_F_NUM_IKIND="$hdf5_cv_H5CONFIG_F_NUM_IKIND" ++ H5CONFIG_F_IKIND="$hdf5_cv_H5CONFIG_F_IKIND" ++ ++ AC_DEFINE_UNQUOTED([PAC_FC_MAX_REAL_PRECISION], $PAC_FC_MAX_REAL_PRECISION, [Define Fortran Maximum Real Decimal Precision]) ++ AC_DEFINE_UNQUOTED([H5CONFIG_F_NUM_RKIND], $H5CONFIG_F_NUM_RKIND, [Define number of valid Fortran REAL KINDs]) ++ AC_DEFINE_UNQUOTED([H5CONFIG_F_NUM_IKIND], $H5CONFIG_F_NUM_IKIND, [Define number of valid Fortran INTEGER KINDs]) ++ AC_DEFINE_UNQUOTED([H5CONFIG_F_RKIND], $H5CONFIG_F_RKIND, [Define valid Fortran REAL KINDs]) ++ AC_DEFINE_UNQUOTED([H5CONFIG_F_IKIND], $H5CONFIG_F_IKIND, [Define valid Fortran INTEGER KINDs]) ++ AC_DEFINE_UNQUOTED([H5CONFIG_F_NUM_RKIND], $H5CONFIG_F_NUM_RKIND, [Define number of valid Fortran REAL KINDs]) ++ AC_DEFINE_UNQUOTED([H5CONFIG_F_NUM_IKIND], $H5CONFIG_F_NUM_IKIND, [Define number of valid Fortran INTEGER KINDs]) ++ AC_DEFINE_UNQUOTED([H5CONFIG_F_RKIND], $H5CONFIG_F_RKIND, [Define valid Fortran REAL KINDs]) ++ AC_DEFINE_UNQUOTED([H5CONFIG_F_IKIND], $H5CONFIG_F_IKIND, [Define valid Fortran INTEGER KINDs]) + + AC_SUBST([PAC_FC_ALL_REAL_KINDS]) + AC_SUBST([PAC_FC_MAX_REAL_PRECISION]) diff --git a/H/HDF5/bundled/patches/fortran-src-Makefile.patch b/H/HDF5/bundled/patches/fortran-src-Makefile.patch new file mode 100644 index 00000000000..03dd1744d80 --- /dev/null +++ b/H/HDF5/bundled/patches/fortran-src-Makefile.patch @@ -0,0 +1,22 @@ +--- a/fortran/src/Makefile ++++ a/fortran/src/Makefile +@@ -1531,14 +1531,15 @@ + #Specify what Automake needs to create: first the H5fort_type_defines.h + # header, then H5match_types which includes that header, then + # it needs to run H5match_types. +-H5fortran_types.F90 H5f90i_gen.h: H5match_types$(EXEEXT) +- $(RUNSERIAL) ./H5match_types$(EXEEXT) ++H5fortran_types.F90 H5f90i_gen.h: ++ cat ../../../saved/H5fortran_types.F90 >H5fortran_types.F90 ++ cat ../../../saved/H5f90i_gen.h >H5f90i_gen.h + + # H5_buildiface.F90 generates all the APIs that have a KIND type associated + # with them. + +-H5_gen.F90: H5_buildiface$(EXEEXT) +- $(RUNSERIAL) ./H5_buildiface$(EXEEXT) ++H5_gen.F90: ++ cat ../../../saved/H5_gen.F90 >H5_gen.F90 + + # Hardcode the dependencies of these files. There isn't a known way of + # determining this automagically (like we do with the C files). So, when diff --git a/H/HDF5/bundled/patches/h5ls.c.patch b/H/HDF5/bundled/patches/h5ls.c.patch new file mode 100644 index 00000000000..b5bf1c129ea --- /dev/null +++ b/H/HDF5/bundled/patches/h5ls.c.patch @@ -0,0 +1,13 @@ +--- hdf5-1.14.0.old/tools/src/h5ls/h5ls.c 2022-12-13 14:52:35 ++++ hdf5-1.14.0.new/tools/src/h5ls/h5ls.c 2023-04-10 11:44:13 +@@ -25,6 +25,10 @@ + #include "h5tools_utils.h" + #include "h5tools_dump.h" + #include "h5trav.h" ++ ++#if defined(H5_HAVE_GETCONSOLESCREENBUFFERINFO) ++# include ++#endif + + /* Name of tool */ + #define PROGRAMNAME "h5ls" diff --git a/H/HDF5/bundled/patches/hl-fortran-src-Makefile.patch b/H/HDF5/bundled/patches/hl-fortran-src-Makefile.patch new file mode 100644 index 00000000000..fb846e3c113 --- /dev/null +++ b/H/HDF5/bundled/patches/hl-fortran-src-Makefile.patch @@ -0,0 +1,17 @@ +--- a/hl/fortran/src/Makefile ++++ a/hl/fortran/src/Makefile +@@ -1472,10 +1472,11 @@ + # H5HL_buildiface.F90 generates all the APIs that have a KIND type associated + # with them. + +-H5LTff_gen.F90: H5HL_buildiface$(EXEEXT) +- $(RUNSERIAL) ./H5HL_buildiface$(EXEEXT) ++H5LTff_gen.F90: ++ cat ../../../../saved/H5LTff_gen.F90 >H5LTff_gen.F90 + +-H5TBff_gen.F90: H5HL_buildiface$(EXEEXT) ++H5TBff_gen.F90: ++ cat ../../../../saved/H5TBff_gen.F90 >H5TBff_gen.F90 + # Hardcode the dependencies of these files. There isn't a known way of + # determining this automagically (like we do with the C files). So, when + # doing a parallel make, some modules could be made way before the diff --git a/H/HDF5/bundled/patches/mkdir.patch b/H/HDF5/bundled/patches/mkdir.patch new file mode 100644 index 00000000000..7c8c3c6036d --- /dev/null +++ b/H/HDF5/bundled/patches/mkdir.patch @@ -0,0 +1,15 @@ +--- hdf5-1.14.0.old/src/H5private.h 2022-12-13 14:52:35 ++++ hdf5-1.14.0.new/src/H5private.h 2023-04-10 11:51:05 +@@ -1068,7 +1068,11 @@ + #define HDmemset(X, C, Z) memset(X, C, Z) + #endif + #ifndef HDmkdir +-#define HDmkdir(S, M) mkdir(S, M) ++# if defined _WIN32 ++# define HDmkdir(S, M) mkdir(S) ++# else ++# define HDmkdir(S, M) mkdir(S, M) ++# endif + #endif + #ifndef HDmkfifo + #define HDmkfifo(S, M) mkfifo(S, M) diff --git a/H/HDF5/bundled/patches/mpi.patch b/H/HDF5/bundled/patches/mpi.patch new file mode 100644 index 00000000000..45f433f8ddc --- /dev/null +++ b/H/HDF5/bundled/patches/mpi.patch @@ -0,0 +1,46 @@ +--- a/src/H5Pfapl.c ++++ b/src/H5Pfapl.c +@@ -516,8 +516,12 @@ + H5F_ACS_COLL_MD_READ_FLAG_DEF; /* Default setting for the collective metedata read flag */ + static const hbool_t H5F_def_coll_md_write_flag_g = + H5F_ACS_COLL_MD_WRITE_FLAG_DEF; /* Default setting for the collective metedata write flag */ +-static const MPI_Comm H5F_def_mpi_params_comm_g = H5F_ACS_MPI_PARAMS_COMM_DEF; /* Default MPI communicator */ +-static const MPI_Info H5F_def_mpi_params_info_g = H5F_ACS_MPI_PARAMS_INFO_DEF; /* Default MPI info struct */ ++static MPI_Comm H5F_def_mpi_params_comm_g; /* Default MPI communicator */ ++static MPI_Info H5F_def_mpi_params_info_g; /* Default MPI info struct */ ++static void __attribute__((__constructor__)) H5F_def_mpi_params_init() { ++ H5F_def_mpi_params_comm_g = H5F_ACS_MPI_PARAMS_COMM_DEF; ++ H5F_def_mpi_params_info_g = H5F_ACS_MPI_PARAMS_INFO_DEF; ++} + #endif /* H5_HAVE_PARALLEL */ + static const H5AC_cache_image_config_t H5F_def_mdc_initCacheImageCfg_g = + H5F_ACS_META_CACHE_INIT_IMAGE_CONFIG_DEF; /* Default metadata cache image settings */ +--- a/src/H5FDsubfiling/H5subfiling_common.c ++++ b/src/H5FDsubfiling/H5subfiling_common.c +@@ -31,7 +31,10 @@ + int H5subfiling_mpi_error_str_len; + + /* MPI Datatype used to send/receive an RPC message */ +-MPI_Datatype H5_subfiling_rpc_msg_type = MPI_DATATYPE_NULL; ++MPI_Datatype H5_subfiling_rpc_msg_type; ++static void __attribute__((__constructor__)) H5_subfiling_rpc_msg_type_init() { ++ H5_subfiling_rpc_msg_type = MPI_DATATYPE_NULL; ++} + + static subfiling_context_t **sf_context_cache = NULL; + static sf_topology_t **sf_topology_cache = NULL; +--- a/tools/src/h5perf/pio_perf.c ++++ b/tools/src/h5perf/pio_perf.c +@@ -112,7 +112,11 @@ + #define HDF5_PARAPREFIX "" + #endif + char *paraprefix = NULL; /* for command line option para-prefix */ +-MPI_Info h5_io_info_g = MPI_INFO_NULL; /* MPI INFO object for IO */ ++MPI_Info h5_io_info_g; /* MPI INFO object for IO */ ++static void __attribute__((__constructor__)) h5_io_info_g_init() ++{ ++ h5_io_info_g = MPI_INFO_NULL; ++} + + /* + * Command-line options: The user can specify short or long-named diff --git a/H/HDF5/bundled/patches/src-Makefile.patch b/H/HDF5/bundled/patches/src-Makefile.patch new file mode 100644 index 00000000000..a9e3434800c --- /dev/null +++ b/H/HDF5/bundled/patches/src-Makefile.patch @@ -0,0 +1,33 @@ +--- a/src/Makefile ++++ a/src/Makefile +@@ -2175,26 +2175,16 @@ + # Things should have been all set during H5detect making. + # Remove the generated .c file if errors occur unless HDF5_Make_Ignore + # is set to ignore the error. +-H5Tinit.c: H5detect$(EXEEXT) +- @if $(AM_V_P); then set -x; else echo " GEN H5Tinit.c"; fi; \ +- LD_LIBRARY_PATH="$$LD_LIBRARY_PATH`echo $(LDFLAGS) | \ +- sed -e 's/-L/:/g' -e 's/ //g'`" \ +- $(RUNSERIAL) ./H5detect$(EXEEXT) $@ || \ +- (test $$HDF5_Make_Ignore && echo "*** Error ignored") || \ +- ($(RM) $@ ; exit 1) ++H5Tinit.c: ++ cat ../../saved/H5Tinit.c >$@ + + # Build configuration header file generation + # The LD_LIBRARY_PATH setting is a kludge. + # Things should have been all set during H5make_libsettings making. + # Remove the generated .c file if errors occur unless HDF5_Make_Ignore + # is set to ignore the error. +-H5lib_settings.c: H5make_libsettings$(EXEEXT) libhdf5.settings +- @if $(AM_V_P); then set -x; else echo " GEN H5lib_settings.c"; fi; \ +- LD_LIBRARY_PATH="$$LD_LIBRARY_PATH`echo $(LDFLAGS) | \ +- sed -e 's/-L/:/g' -e 's/ //g'`" \ +- $(RUNSERIAL) ./H5make_libsettings$(EXEEXT) $@ || \ +- (test $$HDF5_Make_Ignore && echo "*** Error ignored") || \ +- ($(RM) $@ ; exit 1) ++H5lib_settings.c: ++ echo 'char H5libhdf5_settings[]="";' >$@ + + # Error header generation + # diff --git a/H/HDF5/bundled/patches/strncpy.patch b/H/HDF5/bundled/patches/strncpy.patch new file mode 100644 index 00000000000..039f54dfa83 --- /dev/null +++ b/H/HDF5/bundled/patches/strncpy.patch @@ -0,0 +1,31 @@ +diff -ru hdf5-1.14.0.old/src/H5private.h hdf5-1.14.0.new/src/H5private.h +--- hdf5-1.14.0.old/src/H5private.h 2022-12-13 14:52:35 ++++ hdf5-1.14.0.new/src/H5private.h 2023-04-10 11:19:29 +@@ -1367,7 +1367,7 @@ + #define HDstrncpy(X, Y, Z) strncpy(X, Y, Z) + #endif + #ifndef HDstrndup +-#define HDstrndup(S, N) strndup(S, N) ++#define HDstrndup(S, N) H5_strndup(S, N) + #endif + #ifndef HDstrpbrk + #define HDstrpbrk(X, Y) strpbrk(X, Y) +$ diff -u hdf5-1.14.0.old/src/H5system.c hdf5-1.14.0.new/src/H5system.c +--- hdf5-1.14.0.old/src/H5system.c 2022-12-13 14:52:35 ++++ hdf5-1.14.0.new/src/H5system.c 2023-04-18 11:33:50 +@@ -918,6 +918,7 @@ + + FUNC_LEAVE_NOAPI(ret_value) + } /* end H5_expand_windows_env_vars() */ ++#endif /* H5_HAVE_WIN32_API */ + + /*------------------------------------------------------------------------- + * Function: H5_strndup +@@ -961,7 +962,6 @@ + done: + FUNC_LEAVE_NOAPI(ret_value) + } +-#endif /* H5_HAVE_WIN32_API */ + + /* dirname() and basename() are not easily ported to Windows and basename + * behavior varies depending on if you get POSIX vs. GNU. As a more diff --git a/H/HDF5/generate-H5Tinit/README.md b/H/HDF5/generate-H5Tinit/README.md new file mode 100644 index 00000000000..d7fa23c157c --- /dev/null +++ b/H/HDF5/generate-H5Tinit/README.md @@ -0,0 +1,26 @@ +# Generating H5Tinit.c + +The HDF5 library compiles and runs at build time, a file `H5detect.c` +which generates another file `H5Tinit.c` that is compiled as part of +the HDF5 library. This file contains ABI definitions of the supported +floating point types, usually `float`, `double`, and `long double`. + +Since BinaryBuilder cross-compiles, we cannot run `H5detect`, and we +thus collect the generated files `H5Tinit.c` ahead of time. This is +safe because the floating point ABI is a very basic feature of the +system ABI and will not change. The floating-point ABI depends on the +hardware (CPU) and conventions set by the operating system. + +In practice there are only three different operating system +conventions: Apple, Unix, and Windows. + +In practice, there are only two possible ABIs `float` and `double`, +namely a little-endian and a big-endian memory layout. For `long +double` there are a more choices: `long double` can either be +identical to `double`, can have 80 bits, or can have a full 128 bits. +When it has 80 bits, then its memory layout could additionally be +padded to 12 or 16 bytes. + +The scripts in this directory use Docker to generate these `H5Tinit.c` +files for various Linux architectures. For Apple (`darwin`) and +Windows these files were either generated or written manually. diff --git a/H/HDF5/generate-H5Tinit/debian-amd64/H5LTff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-amd64/H5LTff_gen.F90 new file mode 100644 index 00000000000..ef1cde7759e --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-amd64/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 COPYING 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/H/HDF5/generate-H5Tinit/debian-amd64/H5TBff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-amd64/H5TBff_gen.F90 new file mode 100644 index 00000000000..9317ae5340f --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-amd64/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 COPYING 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/H/HDF5/generate-H5Tinit/debian-amd64/H5Tinit.c b/H/HDF5/generate-H5Tinit/debian-amd64/H5Tinit.c new file mode 100644 index 00000000000..df5f9c78b15 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-amd64/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 17, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * ???????? ???????? ???????? ???????? + * 11 10 9 8 + * ???????? ???????? SEEEEEEE EEEEEEEE + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? no + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 80; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 79; +dt->shared->u.atomic.u.f.epos = 64; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 64; +dt->shared->u.atomic.u.f.norm = H5T_NORM_NONE; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/generate-H5Tinit/debian-amd64/H5_gen.F90 b/H/HDF5/generate-H5Tinit/debian-amd64/H5_gen.F90 new file mode 100644 index 00000000000..841ccd659fb --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-amd64/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 COPYING 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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/H/HDF5/generate-H5Tinit/debian-amd64/H5f90i_gen.h b/H/HDF5/generate-H5Tinit/debian-amd64/H5f90i_gen.h new file mode 100644 index 00000000000..961c11feb4e --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-amd64/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 COPYING 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/H/HDF5/generate-H5Tinit/debian-amd64/H5fortran_types.F90 b/H/HDF5/generate-H5Tinit/debian-amd64/H5fortran_types.F90 new file mode 100644 index 00000000000..5cd5b2ac7c3 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-amd64/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 COPYING 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/H/HDF5/generate-H5Tinit/debian-amd64/config.status b/H/HDF5/generate-H5Tinit/debian-amd64/config.status new file mode 100644 index 00000000000..3d75682432d --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-amd64/config.status @@ -0,0 +1,2960 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='x86_64-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='x86_64-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/x86_64-linux-gnu/10 /usr/lib/x86_64-linux-gnu /usr/lib /lib/x86_64-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/x86_64-linux-gnu /lib/x86_64-linux-gnu /usr/lib/x86_64-linux-gnu ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='$wl--export-dynamic' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/x86_64-linux-gnu/10 /usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu /usr/lib/gcc/x86_64-linux-gnu/10/../../../../lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /usr/lib/gcc/x86_64-linux-gnu/10/../../..' +compiler_lib_search_dirs_FC='/usr/lib/gcc/x86_64-linux-gnu/10 /usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu /usr/lib/gcc/x86_64-linux-gnu/10/../../../../lib /lib/x86_64-linux-gnu /lib/../lib /usr/lib/x86_64-linux-gnu /usr/lib/../lib /usr/lib/gcc/x86_64-linux-gnu/10/../../..' +predep_objects_CXX='/usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu/crti.o /usr/lib/gcc/x86_64-linux-gnu/10/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu/crti.o /usr/lib/gcc/x86_64-linux-gnu/10/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/x86_64-linux-gnu/10/crtendS.o /usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu/crtn.o' +postdep_objects_FC='/usr/lib/gcc/x86_64-linux-gnu/10/crtendS.o /usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lquadmath -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/x86_64-linux-gnu/10 -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../../lib -L/lib/x86_64-linux-gnu -L/lib/../lib -L/usr/lib/x86_64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/10/../../..' +compiler_lib_search_path_FC='-L/usr/lib/gcc/x86_64-linux-gnu/10 -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../../lib -L/lib/x86_64-linux-gnu -L/lib/../lib -L/usr/lib/x86_64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/10/../../..' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Mon Apr 17 23:57:55 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 4" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,10,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/x86_64-linux-gnu/10 -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../x86_64-linux-gnu -L/usr/lib/gcc/x86_64-linux-gnu/10/../../../../lib "\ +"-L/lib/x86_64-linux-gnu -L/lib/../lib -L/usr/lib/x86_64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/10/../../.. -lgfortran -lm -lqua"\ +"dmath" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="33" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 x86_64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="x86_64" +S["host"]="x86_64-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="x86_64" +S["build"]="x86_64-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 16" +D["SIZEOF__QUAD"]=" 0" +D["HAVE_QUADMATH_H"]=" 1" +D["HAVE_FLOAT128"]=" 1" +D["PAC_C_MAX_REAL_PRECISION"]=" 33" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v5/H5LTff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5LTff_gen.F90 new file mode 100644 index 00000000000..449f1560bc6 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5LTff_gen.F90 @@ -0,0 +1,4195 @@ +!****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 COPYING 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_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 + 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_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 + 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 + 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 + 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 + 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 + 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 + 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 + 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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_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 :: 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_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 +END MODULE H5LT diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v5/H5TBff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5TBff_gen.F90 new file mode 100644 index 00000000000..8a9c13a62b1 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5TBff_gen.F90 @@ -0,0 +1,255 @@ +!****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 COPYING 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 + 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 + 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 + 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 + END INTERFACE + INTERFACE h5tbinsert_field_f + MODULE PROCEDURE h5tbinsert_field_kind_4_rank_1 + MODULE PROCEDURE h5tbinsert_field_kind_8_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 :: 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 :: 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 :: 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 :: 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 +END MODULE H5TB diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v5/H5Tinit.c b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5Tinit.c new file mode 100644 index 00000000000..b54c87dc187 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5Tinit.c @@ -0,0 +1,242 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 18, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 8; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v5/H5_gen.F90 b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5_gen.F90 new file mode 100644 index 00000000000..766a16bf535 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5_gen.F90 @@ -0,0 +1,5317 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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 h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_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_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_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 + END INTERFACE + INTERFACE h5pget_fill_value_f + MODULE PROCEDURE h5pget_fill_value_kind_4 + MODULE PROCEDURE h5pget_fill_value_kind_8 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(prp_id, type_id, f_ptr) + END SUBROUTINE h5pset_fill_value_kind_8 +!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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(prp_id, type_id, f_ptr) + END SUBROUTINE h5pget_fill_value_kind_8 +!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 :: 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 :: 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 :: 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 +END MODULE H5_gen diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v5/H5f90i_gen.h b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5f90i_gen.h new file mode 100644 index 00000000000..799ee92ed82 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5f90i_gen.h @@ -0,0 +1,44 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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 long +#define c_size_t_4 size_t +#define c_time_t_4 time_t +#define c_int_8 long long +#define c_hsize_t_8 hsize_t +#define c_float_4 float +#define c_float_8 double + +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_4 size_t_f; +typedef c_time_t_4 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_int_8 hid_t_f; +typedef c_float_4 real_f; +typedef c_float_8 double_f; + +#endif /* _H5f90i_gen_H */ diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v5/H5fortran_types.F90 b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5fortran_types.F90 new file mode 100644 index 00000000000..c572a3ddf41 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v5/H5fortran_types.F90 @@ -0,0 +1,40 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 4 + INTEGER, PARAMETER :: HADDR_T = 8 + INTEGER, PARAMETER :: HSIZE_T = 8 + INTEGER, PARAMETER :: HSSIZE_T = 8 + INTEGER, PARAMETER :: OFF_T = 8 + INTEGER, PARAMETER :: SIZE_T = 4 + INTEGER, PARAMETER :: TIME_T = 4 + INTEGER, PARAMETER :: Fortran_INTEGER = 4 + INTEGER, DIMENSION(1:4), PARAMETER :: Fortran_INTEGER_AVAIL_KINDS = (/1,2,4,8/) + INTEGER, PARAMETER :: Fortran_REAL_C_FLOAT = 4 + INTEGER, PARAMETER :: Fortran_REAL_C_DOUBLE = 8 + INTEGER, PARAMETER :: HID_T = 8 + INTEGER, PARAMETER :: Fortran_REAL = C_FLOAT + INTEGER, PARAMETER :: Fortran_DOUBLE = C_LONG_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/H/HDF5/generate-H5Tinit/debian-arm32v5/config.status b/H/HDF5/generate-H5Tinit/debian-arm32v5/config.status new file mode 100644 index 00000000000..02eb69d14c8 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v5/config.status @@ -0,0 +1,2939 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='armv7l-unknown-linux-gnueabi' +host_os='linux-gnueabi' +build_alias='' +build='armv7l-unknown-linux-gnueabi' +build_os='linux-gnueabi' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/arm-linux-gnueabi/10 /usr/lib/arm-linux-gnueabi /usr/lib /lib/arm-linux-gnueabi /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib/arm-linux-gnueabi /lib/arm-linux-gnueabi /usr/lib/arm-linux-gnueabi /usr/local/lib ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='$wl--export-dynamic' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/arm-linux-gnueabi/10 /usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi /usr/lib/gcc/arm-linux-gnueabi/10/../../.. /lib/arm-linux-gnueabi /usr/lib/arm-linux-gnueabi' +compiler_lib_search_dirs_FC='/usr/lib/gcc/arm-linux-gnueabi/10 /usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi /usr/lib/gcc/arm-linux-gnueabi/10/../../.. /lib/arm-linux-gnueabi /usr/lib/arm-linux-gnueabi' +predep_objects_CXX='/usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi/crti.o /usr/lib/gcc/arm-linux-gnueabi/10/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi/crti.o /usr/lib/gcc/arm-linux-gnueabi/10/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/arm-linux-gnueabi/10/crtendS.o /usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi/crtn.o' +postdep_objects_FC='/usr/lib/gcc/arm-linux-gnueabi/10/crtendS.o /usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/arm-linux-gnueabi/10 -L/usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi -L/usr/lib/gcc/arm-linux-gnueabi/10/../../.. -L/lib/arm-linux-gnueabi -L/usr/lib/arm-linux-gnueabi' +compiler_lib_search_path_FC='-L/usr/lib/gcc/arm-linux-gnueabi/10 -L/usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi -L/usr/lib/gcc/arm-linux-gnueabi/10/../../.. -L/lib/arm-linux-gnueabi -L/usr/lib/arm-linux-gnueabi' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Tue Apr 18 00:01:09 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="g++" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 4" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 2" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="0" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="0" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="4" +S["PAC_FC_MAX_REAL_PRECISION"]="15" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8}" +S["FCLIBS"]=" -L/usr/lib/gcc/arm-linux-gnueabi/10 -L/usr/lib/gcc/arm-linux-gnueabi/10/../../../arm-linux-gnueabi -L/usr/lib/gcc/arm-linux-gnueabi/10/../../.. -L/"\ +"lib/arm-linux-gnueabi -L/usr/lib/arm-linux-gnueabi -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="gfortran" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="17" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 armv7l GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]="-D_FILE_OFFSET_BITS=64 -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" " +S["H5_FCFLAGS"]=" " +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" " +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnueabi" +S["host_vendor"]="unknown" +S["host_cpu"]="armv7l" +S["host"]="armv7l-unknown-linux-gnueabi" +S["build_os"]="linux-gnueabi" +S["build_vendor"]="unknown" +S["build_cpu"]="armv7l" +S["build"]="armv7l-unknown-linux-gnueabi" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 4" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 8" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 17" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 15" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 15" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 0" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"8\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["_FILE_OFFSET_BITS"]=" 64" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 4" +D["SIZEOF_UINT_FAST16_T"]=" 4" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 4" +D["SIZEOF_SIZE_T"]=" 4" +D["SIZEOF_SSIZE_T"]=" 4" +D["SIZEOF_TIME_T"]=" 4" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v7/H5LTff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5LTff_gen.F90 new file mode 100644 index 00000000000..449f1560bc6 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5LTff_gen.F90 @@ -0,0 +1,4195 @@ +!****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 COPYING 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_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 + 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_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 + 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 + 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 + 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 + 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 + 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 + 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 + 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 :: 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 :: 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 :: 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 :: 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 :: 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 :: 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_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 :: 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_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 +END MODULE H5LT diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v7/H5TBff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5TBff_gen.F90 new file mode 100644 index 00000000000..8a9c13a62b1 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5TBff_gen.F90 @@ -0,0 +1,255 @@ +!****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 COPYING 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 + 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 + 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 + 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 + END INTERFACE + INTERFACE h5tbinsert_field_f + MODULE PROCEDURE h5tbinsert_field_kind_4_rank_1 + MODULE PROCEDURE h5tbinsert_field_kind_8_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 :: 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 :: 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 :: 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 :: 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 +END MODULE H5TB diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v7/H5Tinit.c b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5Tinit.c new file mode 100644 index 00000000000..b54c87dc187 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5Tinit.c @@ -0,0 +1,242 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 18, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 8; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v7/H5_gen.F90 b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5_gen.F90 new file mode 100644 index 00000000000..766a16bf535 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5_gen.F90 @@ -0,0 +1,5317 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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 h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_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_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_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 + END INTERFACE + INTERFACE h5pget_fill_value_f + MODULE PROCEDURE h5pget_fill_value_kind_4 + MODULE PROCEDURE h5pget_fill_value_kind_8 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(prp_id, type_id, f_ptr) + END SUBROUTINE h5pset_fill_value_kind_8 +!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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(prp_id, type_id, f_ptr) + END SUBROUTINE h5pget_fill_value_kind_8 +!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 :: 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 :: 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 :: 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 +END MODULE H5_gen diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v7/H5f90i_gen.h b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5f90i_gen.h new file mode 100644 index 00000000000..799ee92ed82 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5f90i_gen.h @@ -0,0 +1,44 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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 long +#define c_size_t_4 size_t +#define c_time_t_4 time_t +#define c_int_8 long long +#define c_hsize_t_8 hsize_t +#define c_float_4 float +#define c_float_8 double + +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_4 size_t_f; +typedef c_time_t_4 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_int_8 hid_t_f; +typedef c_float_4 real_f; +typedef c_float_8 double_f; + +#endif /* _H5f90i_gen_H */ diff --git a/H/HDF5/generate-H5Tinit/debian-arm32v7/H5fortran_types.F90 b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5fortran_types.F90 new file mode 100644 index 00000000000..c572a3ddf41 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v7/H5fortran_types.F90 @@ -0,0 +1,40 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 4 + INTEGER, PARAMETER :: HADDR_T = 8 + INTEGER, PARAMETER :: HSIZE_T = 8 + INTEGER, PARAMETER :: HSSIZE_T = 8 + INTEGER, PARAMETER :: OFF_T = 8 + INTEGER, PARAMETER :: SIZE_T = 4 + INTEGER, PARAMETER :: TIME_T = 4 + INTEGER, PARAMETER :: Fortran_INTEGER = 4 + INTEGER, DIMENSION(1:4), PARAMETER :: Fortran_INTEGER_AVAIL_KINDS = (/1,2,4,8/) + INTEGER, PARAMETER :: Fortran_REAL_C_FLOAT = 4 + INTEGER, PARAMETER :: Fortran_REAL_C_DOUBLE = 8 + INTEGER, PARAMETER :: HID_T = 8 + INTEGER, PARAMETER :: Fortran_REAL = C_FLOAT + INTEGER, PARAMETER :: Fortran_DOUBLE = C_LONG_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/H/HDF5/generate-H5Tinit/debian-arm32v7/config.status b/H/HDF5/generate-H5Tinit/debian-arm32v7/config.status new file mode 100644 index 00000000000..a1b9c4d4998 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm32v7/config.status @@ -0,0 +1,2957 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='armv7l-unknown-linux-gnueabihf' +host_os='linux-gnueabihf' +build_alias='' +build='armv7l-unknown-linux-gnueabihf' +build_os='linux-gnueabihf' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/arm-linux-gnueabihf/10 /usr/lib/arm-linux-gnueabihf /usr/lib /lib/arm-linux-gnueabihf /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib/arm-linux-gnueabihf /lib/arm-linux-gnueabihf /usr/lib/arm-linux-gnueabihf /usr/local/lib ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='$wl--export-dynamic' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/arm-linux-gnueabihf/10 /usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf /usr/lib/gcc/arm-linux-gnueabihf/10/../../.. /lib/arm-linux-gnueabihf /usr/lib/arm-linux-gnueabihf' +compiler_lib_search_dirs_FC='/usr/lib/gcc/arm-linux-gnueabihf/10 /usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf /usr/lib/gcc/arm-linux-gnueabihf/10/../../.. /lib/arm-linux-gnueabihf /usr/lib/arm-linux-gnueabihf' +predep_objects_CXX='/usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf/crti.o /usr/lib/gcc/arm-linux-gnueabihf/10/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf/crti.o /usr/lib/gcc/arm-linux-gnueabihf/10/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/arm-linux-gnueabihf/10/crtendS.o /usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf/crtn.o' +postdep_objects_FC='/usr/lib/gcc/arm-linux-gnueabihf/10/crtendS.o /usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/arm-linux-gnueabihf/10 -L/usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf -L/usr/lib/gcc/arm-linux-gnueabihf/10/../../.. -L/lib/arm-linux-gnueabihf -L/usr/lib/arm-linux-gnueabihf' +compiler_lib_search_path_FC='-L/usr/lib/gcc/arm-linux-gnueabihf/10 -L/usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf -L/usr/lib/gcc/arm-linux-gnueabihf/10/../../.. -L/lib/arm-linux-gnueabihf -L/usr/lib/arm-linux-gnueabihf' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Tue Apr 18 00:07:46 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 4" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 2" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="0" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="0" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="4" +S["PAC_FC_MAX_REAL_PRECISION"]="15" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8}" +S["FCLIBS"]=" -L/usr/lib/gcc/arm-linux-gnueabihf/10 -L/usr/lib/gcc/arm-linux-gnueabihf/10/../../../arm-linux-gnueabihf -L/usr/lib/gcc/arm-linux-gnueabihf/10/../."\ +"./.. -L/lib/arm-linux-gnueabihf -L/usr/lib/arm-linux-gnueabihf -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="17" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 armv7l GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]="-D_FILE_OFFSET_BITS=64 -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnueabihf" +S["host_vendor"]="unknown" +S["host_cpu"]="armv7l" +S["host"]="armv7l-unknown-linux-gnueabihf" +S["build_os"]="linux-gnueabihf" +S["build_vendor"]="unknown" +S["build_cpu"]="armv7l" +S["build"]="armv7l-unknown-linux-gnueabihf" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 4" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 8" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 17" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 15" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 15" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 0" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"8\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 2" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["_FILE_OFFSET_BITS"]=" 64" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 4" +D["SIZEOF_UINT_FAST16_T"]=" 4" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 4" +D["SIZEOF_SIZE_T"]=" 4" +D["SIZEOF_SSIZE_T"]=" 4" +D["SIZEOF_TIME_T"]=" 4" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/generate-H5Tinit/debian-arm64v8/H5LTff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-arm64v8/H5TBff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-arm64v8/H5Tinit.c b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5Tinit.c new file mode 100644 index 00000000000..ab048a9fc04 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 18, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * SEEEEEEE EEEEEEEE MMMMMMMM MMMMMMMM + * 11 10 9 8 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 128; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 127; +dt->shared->u.atomic.u.f.epos = 112; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 112; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/generate-H5Tinit/debian-arm64v8/H5_gen.F90 b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-arm64v8/H5f90i_gen.h b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/generate-H5Tinit/debian-arm64v8/H5fortran_types.F90 b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm64v8/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/generate-H5Tinit/debian-arm64v8/config.status b/H/HDF5/generate-H5Tinit/debian-arm64v8/config.status new file mode 100644 index 00000000000..e53a580ec50 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-arm64v8/config.status @@ -0,0 +1,2958 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='aarch64-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='aarch64-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/aarch64-linux-gnu/10 /usr/lib/aarch64-linux-gnu /usr/lib /lib/aarch64-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib/aarch64-linux-gnu /lib/aarch64-linux-gnu /usr/lib/aarch64-linux-gnu /usr/local/lib ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='$wl--export-dynamic' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/aarch64-linux-gnu/10 /usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu /usr/lib/gcc/aarch64-linux-gnu/10/../../../../lib /lib/aarch64-linux-gnu /lib/../lib /usr/lib/aarch64-linux-gnu /usr/lib/../lib /usr/lib/gcc/aarch64-linux-gnu/10/../../..' +compiler_lib_search_dirs_FC='/usr/lib/gcc/aarch64-linux-gnu/10 /usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu /usr/lib/gcc/aarch64-linux-gnu/10/../../../../lib /lib/aarch64-linux-gnu /lib/../lib /usr/lib/aarch64-linux-gnu /usr/lib/../lib /usr/lib/gcc/aarch64-linux-gnu/10/../../..' +predep_objects_CXX='/usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu/crti.o /usr/lib/gcc/aarch64-linux-gnu/10/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu/crti.o /usr/lib/gcc/aarch64-linux-gnu/10/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/aarch64-linux-gnu/10/crtendS.o /usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu/crtn.o' +postdep_objects_FC='/usr/lib/gcc/aarch64-linux-gnu/10/crtendS.o /usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/aarch64-linux-gnu/10 -L/usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu -L/usr/lib/gcc/aarch64-linux-gnu/10/../../../../lib -L/lib/aarch64-linux-gnu -L/lib/../lib -L/usr/lib/aarch64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/aarch64-linux-gnu/10/../../..' +compiler_lib_search_path_FC='-L/usr/lib/gcc/aarch64-linux-gnu/10 -L/usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu -L/usr/lib/gcc/aarch64-linux-gnu/10/../../../../lib -L/lib/aarch64-linux-gnu -L/lib/../lib -L/usr/lib/aarch64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/aarch64-linux-gnu/10/../../..' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Tue Apr 18 00:14:45 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/aarch64-linux-gnu/10 -L/usr/lib/gcc/aarch64-linux-gnu/10/../../../aarch64-linux-gnu -L/usr/lib/gcc/aarch64-linux-gnu/10/../../../../"\ +"lib -L/lib/aarch64-linux-gnu -L/lib/../lib -L/usr/lib/aarch64-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/aarch64-linux-gnu/10/../../.. -lgfortran -l"\ +"m" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="36" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 aarch64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="aarch64" +S["host"]="aarch64-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="aarch64" +S["build"]="aarch64-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 36" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/generate-H5Tinit/debian-i386/H5LTff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-i386/H5LTff_gen.F90 new file mode 100644 index 00000000000..8e1e001d65f --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-i386/H5LTff_gen.F90 @@ -0,0 +1,5907 @@ +!****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 COPYING 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 + 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 + 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 + 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 + 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_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 :: 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_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 +END MODULE H5LT diff --git a/H/HDF5/generate-H5Tinit/debian-i386/H5TBff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-i386/H5TBff_gen.F90 new file mode 100644 index 00000000000..9317ae5340f --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-i386/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 COPYING 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/H/HDF5/generate-H5Tinit/debian-i386/H5Tinit.c b/H/HDF5/generate-H5Tinit/debian-i386/H5Tinit.c new file mode 100644 index 00000000000..64b43a6c6c5 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-i386/H5Tinit.c @@ -0,0 +1,244 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 18, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 4; + + /* + * 11 10 9 8 + * ???????? ???????? SEEEEEEE EEEEEEEE + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? no + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 12; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 80; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 79; +dt->shared->u.atomic.u.f.epos = 64; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 64; +dt->shared->u.atomic.u.f.norm = H5T_NORM_NONE; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 4; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/generate-H5Tinit/debian-i386/H5_gen.F90 b/H/HDF5/generate-H5Tinit/debian-i386/H5_gen.F90 new file mode 100644 index 00000000000..bfe1a5ad28e --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-i386/H5_gen.F90 @@ -0,0 +1,6989 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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/H/HDF5/generate-H5Tinit/debian-i386/H5f90i_gen.h b/H/HDF5/generate-H5Tinit/debian-i386/H5f90i_gen.h new file mode 100644 index 00000000000..60f1ba92c15 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-i386/H5f90i_gen.h @@ -0,0 +1,48 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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 long +#define c_size_t_4 size_t +#define c_time_t_4 time_t +#define c_int_8 long long +#define c_hsize_t_8 hsize_t +#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_4 size_t_f; +typedef c_time_t_4 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/H/HDF5/generate-H5Tinit/debian-i386/H5fortran_types.F90 b/H/HDF5/generate-H5Tinit/debian-i386/H5fortran_types.F90 new file mode 100644 index 00000000000..98635be8a73 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-i386/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 COPYING 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 = 4 + INTEGER, PARAMETER :: HADDR_T = 8 + INTEGER, PARAMETER :: HSIZE_T = 8 + INTEGER, PARAMETER :: HSSIZE_T = 8 + INTEGER, PARAMETER :: OFF_T = 8 + INTEGER, PARAMETER :: SIZE_T = 4 + INTEGER, PARAMETER :: TIME_T = 4 + INTEGER, PARAMETER :: Fortran_INTEGER = 4 + INTEGER, DIMENSION(1:4), PARAMETER :: Fortran_INTEGER_AVAIL_KINDS = (/1,2,4,8/) + 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/H/HDF5/generate-H5Tinit/debian-i386/config.status b/H/HDF5/generate-H5Tinit/debian-i386/config.status new file mode 100644 index 00000000000..4538c8eeea9 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-i386/config.status @@ -0,0 +1,2960 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='x86_64-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='x86_64-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/i686-linux-gnu/10 /usr/lib/i386-linux-gnu /usr/lib /lib/i386-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib/i386-linux-gnu /lib/i386-linux-gnu /usr/lib/i386-linux-gnu /usr/local/lib/i686-linux-gnu /lib/i686-linux-gnu /usr/lib/i686-linux-gnu /usr/local/lib ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='$wl--export-dynamic' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/i686-linux-gnu/10 /usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu /usr/lib/gcc/i686-linux-gnu/10/../../../../lib /lib/i386-linux-gnu /lib/../lib /usr/lib/i386-linux-gnu /usr/lib/../lib /usr/lib/gcc/i686-linux-gnu/10/../../..' +compiler_lib_search_dirs_FC='/usr/lib/gcc/i686-linux-gnu/10 /usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu /usr/lib/gcc/i686-linux-gnu/10/../../../../lib /lib/i386-linux-gnu /lib/../lib /usr/lib/i386-linux-gnu /usr/lib/../lib /usr/lib/gcc/i686-linux-gnu/10/../../..' +predep_objects_CXX='/usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu/crti.o /usr/lib/gcc/i686-linux-gnu/10/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu/crti.o /usr/lib/gcc/i686-linux-gnu/10/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/i686-linux-gnu/10/crtendS.o /usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu/crtn.o' +postdep_objects_FC='/usr/lib/gcc/i686-linux-gnu/10/crtendS.o /usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lquadmath -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/i686-linux-gnu/10 -L/usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu -L/usr/lib/gcc/i686-linux-gnu/10/../../../../lib -L/lib/i386-linux-gnu -L/lib/../lib -L/usr/lib/i386-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/i686-linux-gnu/10/../../..' +compiler_lib_search_path_FC='-L/usr/lib/gcc/i686-linux-gnu/10 -L/usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu -L/usr/lib/gcc/i686-linux-gnu/10/../../../../lib -L/lib/i386-linux-gnu -L/lib/../lib -L/usr/lib/i386-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/i686-linux-gnu/10/../../..' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Tue Apr 18 00:18:32 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 4" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,12,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 4" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="0" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,12,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="4" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,10,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/i686-linux-gnu/10 -L/usr/lib/gcc/i686-linux-gnu/10/../../../i386-linux-gnu -L/usr/lib/gcc/i686-linux-gnu/10/../../../../lib -L/lib/i"\ +"386-linux-gnu -L/lib/../lib -L/usr/lib/i386-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/i686-linux-gnu/10/../../.. -lgfortran -lm -lquadmath" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="33" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 x86_64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]="-D_FILE_OFFSET_BITS=64 -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="x86_64" +S["host"]="x86_64-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="x86_64" +S["build"]="x86_64-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 4" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 12" +D["SIZEOF___FLOAT128"]=" 16" +D["SIZEOF__QUAD"]=" 0" +D["HAVE_QUADMATH_H"]=" 1" +D["HAVE_FLOAT128"]=" 1" +D["PAC_C_MAX_REAL_PRECISION"]=" 33" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 0" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"12\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 4" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,10,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,12,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["_FILE_OFFSET_BITS"]=" 64" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 4" +D["SIZEOF_UINT_FAST16_T"]=" 4" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 4" +D["SIZEOF_UINT_FAST32_T"]=" 4" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 4" +D["SIZEOF_SIZE_T"]=" 4" +D["SIZEOF_SSIZE_T"]=" 4" +D["SIZEOF_TIME_T"]=" 4" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/generate-H5Tinit/debian-mips64le/H5LTff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-mips64le/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-mips64le/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-mips64le/H5TBff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-mips64le/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-mips64le/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-mips64le/H5Tinit.c b/H/HDF5/generate-H5Tinit/debian-mips64le/H5Tinit.c new file mode 100644 index 00000000000..ab048a9fc04 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-mips64le/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 18, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * SEEEEEEE EEEEEEEE MMMMMMMM MMMMMMMM + * 11 10 9 8 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 128; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 127; +dt->shared->u.atomic.u.f.epos = 112; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 112; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/generate-H5Tinit/debian-mips64le/H5_gen.F90 b/H/HDF5/generate-H5Tinit/debian-mips64le/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-mips64le/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-mips64le/H5f90i_gen.h b/H/HDF5/generate-H5Tinit/debian-mips64le/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-mips64le/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/generate-H5Tinit/debian-mips64le/H5fortran_types.F90 b/H/HDF5/generate-H5Tinit/debian-mips64le/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-mips64le/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/generate-H5Tinit/debian-mips64le/config.status b/H/HDF5/generate-H5Tinit/debian-mips64le/config.status new file mode 100644 index 00000000000..92d379133d4 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-mips64le/config.status @@ -0,0 +1,2952 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='no' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='mips64el-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='mips64el-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld -m elf' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='yes' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='' +whole_archive_flag_spec='' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='' +archive_expsym_cmds='' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='no' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/mips64el-linux-gnuabi64/10 /usr/lib/mips64el-linux-gnuabi64 /usr/lib /lib/mips64el-linux-gnuabi64 /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/mips64el-linux-gnuabi64 /lib/mips64el-linux-gnuabi64 /usr/lib/mips64el-linux-gnuabi64 ' +configure_time_lt_sys_library_path='' +hardcode_action='unsupported' +enable_dlopen='yes' +enable_dlopen_self='no' +enable_dlopen_self_static='unknown' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld -m elf' +LD_FC='/usr/bin/ld -m elf' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='' +export_dynamic_flag_spec_FC='' +whole_archive_flag_spec_CXX='' +whole_archive_flag_spec_FC='' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' +archive_cmds_FC='' +archive_expsym_cmds_CXX='' +archive_expsym_cmds_FC='' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='no' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='' +hardcode_libdir_flag_spec_FC='' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='unsupported' +hardcode_action_FC='unsupported' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/mips64el-linux-gnuabi64/10 /usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64 /usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../../lib /lib/mips64el-linux-gnuabi64 /lib/../lib /usr/lib/mips64el-linux-gnuabi64 /usr/lib/../lib /usr/lib/gcc/mips64el-linux-gnuabi64/10/../../..' +compiler_lib_search_dirs_FC='/usr/lib/gcc/mips64el-linux-gnuabi64/10 /usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64 /usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../../lib /lib/mips64el-linux-gnuabi64 /lib/../lib /usr/lib/mips64el-linux-gnuabi64 /usr/lib/../lib /usr/lib/gcc/mips64el-linux-gnuabi64/10/../../..' +predep_objects_CXX='/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64/crti.o /usr/lib/gcc/mips64el-linux-gnuabi64/10/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64/crti.o /usr/lib/gcc/mips64el-linux-gnuabi64/10/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/mips64el-linux-gnuabi64/10/crtendS.o /usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64/crtn.o' +postdep_objects_FC='/usr/lib/gcc/mips64el-linux-gnuabi64/10/crtendS.o /usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/mips64el-linux-gnuabi64/10 -L/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64 -L/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../../lib -L/lib/mips64el-linux-gnuabi64 -L/lib/../lib -L/usr/lib/mips64el-linux-gnuabi64 -L/usr/lib/../lib -L/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../..' +compiler_lib_search_path_FC='-L/usr/lib/gcc/mips64el-linux-gnuabi64/10 -L/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64 -L/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../../lib -L/lib/mips64el-linux-gnuabi64 -L/lib/../lib -L/usr/lib/mips64el-linux-gnuabi64 -L/usr/lib/../lib -L/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../..' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="#" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="no" +S["STATIC_SHARED"]="static" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Tue Apr 18 00:22:56 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld -m elf" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/mips64el-linux-gnuabi64/10 -L/usr/lib/gcc/mips64el-linux-gnuabi64/10/../../../mips64el-linux-gnuabi64 -L/usr/lib/gcc/mips64el-linux-"\ +"gnuabi64/10/../../../../lib -L/lib/mips64el-linux-gnuabi64 -L/lib/../lib -L/usr/lib/mips64el-linux-gnuabi64 -L/usr/lib/../lib -L/usr/lib/gcc/mips64e"\ +"l-linux-gnuabi64/10/../../.. -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="36" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 mips64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="mips64el" +S["host"]="mips64el-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="mips64el" +S["build"]="mips64el-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 36" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/generate-H5Tinit/debian-ppc64le/H5LTff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-ppc64le/H5TBff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-ppc64le/H5Tinit.c b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5Tinit.c new file mode 100644 index 00000000000..bde068b1169 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 18, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * ???????? ???????? ???????? ???????? + * 11 10 9 8 + * ???????? ???????? ???????? ???????? + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/generate-H5Tinit/debian-ppc64le/H5_gen.F90 b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-ppc64le/H5f90i_gen.h b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/generate-H5Tinit/debian-ppc64le/H5fortran_types.F90 b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-ppc64le/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/generate-H5Tinit/debian-ppc64le/config.status b/H/HDF5/generate-H5Tinit/debian-ppc64le/config.status new file mode 100644 index 00000000000..85c2d28fadd --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-ppc64le/config.status @@ -0,0 +1,2961 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='powerpc64le-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='powerpc64le-unknown-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/powerpc64le-linux-gnu/10 /usr/lib/powerpc64le-linux-gnu /usr/lib /lib/powerpc64le-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/powerpc64le-linux-gnu /lib/powerpc64le-linux-gnu /usr/lib/powerpc64le-linux-gnu ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='$wl--export-dynamic' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/powerpc64le-linux-gnu/10 /usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu /usr/lib/gcc/powerpc64le-linux-gnu/10/../../../../lib /lib/powerpc64le-linux-gnu /lib/../lib /usr/lib/powerpc64le-linux-gnu /usr/lib/../lib /usr/lib/gcc/powerpc64le-linux-gnu/10/../../..' +compiler_lib_search_dirs_FC='/usr/lib/gcc/powerpc64le-linux-gnu/10 /usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu /usr/lib/gcc/powerpc64le-linux-gnu/10/../../../../lib /lib/powerpc64le-linux-gnu /lib/../lib /usr/lib/powerpc64le-linux-gnu /usr/lib/../lib /usr/lib/gcc/powerpc64le-linux-gnu/10/../../..' +predep_objects_CXX='/usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu/crti.o /usr/lib/gcc/powerpc64le-linux-gnu/10/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu/crti.o /usr/lib/gcc/powerpc64le-linux-gnu/10/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/powerpc64le-linux-gnu/10/crtendS.o /usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu/crtn.o' +postdep_objects_FC='/usr/lib/gcc/powerpc64le-linux-gnu/10/crtendS.o /usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lquadmath -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/powerpc64le-linux-gnu/10 -L/usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu -L/usr/lib/gcc/powerpc64le-linux-gnu/10/../../../../lib -L/lib/powerpc64le-linux-gnu -L/lib/../lib -L/usr/lib/powerpc64le-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/powerpc64le-linux-gnu/10/../../..' +compiler_lib_search_path_FC='-L/usr/lib/gcc/powerpc64le-linux-gnu/10 -L/usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu -L/usr/lib/gcc/powerpc64le-linux-gnu/10/../../../../lib -L/lib/powerpc64le-linux-gnu -L/lib/../lib -L/usr/lib/powerpc64le-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/powerpc64le-linux-gnu/10/../../..' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Tue Apr 18 00:30:09 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="31" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/powerpc64le-linux-gnu/10 -L/usr/lib/gcc/powerpc64le-linux-gnu/10/../../../powerpc64le-linux-gnu -L/usr/lib/gcc/powerpc64le-linux-gnu"\ +"/10/../../../../lib -L/lib/powerpc64le-linux-gnu -L/lib/../lib -L/usr/lib/powerpc64le-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/powerpc64le-linux-g"\ +"nu/10/../../.. -lgfortran -lm -lquadmath" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="33" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 ppc64le GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="powerpc64le" +S["host"]="powerpc64le-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="powerpc64le" +S["build"]="powerpc64le-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 16" +D["SIZEOF__QUAD"]=" 0" +D["HAVE_QUADMATH_H"]=" 1" +D["HAVE_FLOAT128"]=" 1" +D["PAC_C_MAX_REAL_PRECISION"]=" 33" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 31" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 31" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["DISABLE_SOME_LDOUBLE_CONV"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/generate-H5Tinit/debian-riscv64/H5LTff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-riscv64/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-riscv64/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-riscv64/H5TBff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-riscv64/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-riscv64/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-riscv64/H5Tinit.c b/H/HDF5/generate-H5Tinit/debian-riscv64/H5Tinit.c new file mode 100644 index 00000000000..c6459820540 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-riscv64/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 19, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 3 2 1 0 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 7 6 5 4 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 15 14 13 12 + * SEEEEEEE EEEEEEEE MMMMMMMM MMMMMMMM + * 11 10 9 8 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 7 6 5 4 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 3 2 1 0 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_LE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 128; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 127; +dt->shared->u.atomic.u.f.epos = 112; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 112; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 16; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_LE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/generate-H5Tinit/debian-riscv64/H5_gen.F90 b/H/HDF5/generate-H5Tinit/debian-riscv64/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-riscv64/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-riscv64/H5f90i_gen.h b/H/HDF5/generate-H5Tinit/debian-riscv64/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-riscv64/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/generate-H5Tinit/debian-riscv64/H5fortran_types.F90 b/H/HDF5/generate-H5Tinit/debian-riscv64/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-riscv64/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/generate-H5Tinit/debian-riscv64/config.status b/H/HDF5/generate-H5Tinit/debian-riscv64/config.status new file mode 100644 index 00000000000..5656e9a5d06 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-riscv64/config.status @@ -0,0 +1,2956 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/usr/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='riscv64-unknown-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='riscv64-unknown-linux-gnu' +build_os='linux-gnu' +SED='/usr/bin/sed' +Xsed='/usr/bin/sed -e 1s/^X//' +GREP='/usr/bin/grep' +EGREP='/usr/bin/grep -E' +FGREP='/usr/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/usr/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/riscv64-linux-gnu/12 /lib/riscv64-linux-gnu /lib /usr/lib/riscv64-linux-gnu /usr/lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/riscv64-linux-gnu /lib/riscv64-linux-gnu /usr/lib/riscv64-linux-gnu ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='$wl--export-dynamic' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/riscv64-linux-gnu/12 /lib/riscv64-linux-gnu /usr/lib/riscv64-linux-gnu' +compiler_lib_search_dirs_FC='/usr/lib/gcc/riscv64-linux-gnu/12 /lib/riscv64-linux-gnu /usr/lib/riscv64-linux-gnu' +predep_objects_CXX='/usr/lib/gcc/riscv64-linux-gnu/12/crti.o /usr/lib/gcc/riscv64-linux-gnu/12/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/riscv64-linux-gnu/12/crti.o /usr/lib/gcc/riscv64-linux-gnu/12/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/riscv64-linux-gnu/12/crtendS.o /usr/lib/gcc/riscv64-linux-gnu/12/crtn.o' +postdep_objects_FC='/usr/lib/gcc/riscv64-linux-gnu/12/crtendS.o /usr/lib/gcc/riscv64-linux-gnu/12/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/riscv64-linux-gnu/12 -L/lib/riscv64-linux-gnu -L/usr/lib/riscv64-linux-gnu' +compiler_lib_search_path_FC='-L/usr/lib/gcc/riscv64-linux-gnu/12 -L/lib/riscv64-linux-gnu -L/usr/lib/riscv64-linux-gnu' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/usr/bin/mkdir -p java/src/.classes; + /usr/bin/mkdir -p java/test/.classes; + /usr/bin/mkdir -p java/examples/intro/.classes; + /usr/bin/mkdir -p java/examples/datasets/.classes; + /usr/bin/mkdir -p java/examples/datatypes/.classes; + /usr/bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="no" +S["BYTESEX"]="little-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Wed Apr 19 22:54:52 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/usr/bin/grep -F" +S["SED"]="/usr/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/riscv64-linux-gnu/12 -L/lib/riscv64-linux-gnu -L/usr/lib/riscv64-linux-gnu -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="36" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/usr/bin/grep -E" +S["GREP"]="/usr/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 riscv64 GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="unknown" +S["host_cpu"]="riscv64" +S["host"]="riscv64-unknown-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="unknown" +S["build_cpu"]="riscv64" +S["build"]="riscv64-unknown-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/usr/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 36" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/generate-H5Tinit/debian-s390x/H5LTff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-s390x/H5LTff_gen.F90 new file mode 100644 index 00000000000..945b2e872b6 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-s390x/H5LTff_gen.F90 @@ -0,0 +1,5659 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-s390x/H5TBff_gen.F90 b/H/HDF5/generate-H5Tinit/debian-s390x/H5TBff_gen.F90 new file mode 100644 index 00000000000..5840eb2ea04 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-s390x/H5TBff_gen.F90 @@ -0,0 +1,360 @@ +!****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 COPYING 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_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_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_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_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_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_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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-s390x/H5Tinit.c b/H/HDF5/generate-H5Tinit/debian-s390x/H5Tinit.c new file mode 100644 index 00000000000..fffe0538799 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-s390x/H5Tinit.c @@ -0,0 +1,246 @@ +/* Generated automatically by H5detect -- do not edit */ + + + +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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. * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * Created: Apr 18, 2023 + * root + * + * Purpose: This machine-generated source code contains + * information about the various integer and + * floating point numeric formats found on this + * architecture. The parameters below should be + * checked carefully and errors reported to the + * HDF5 maintainer. + * + * Each of the numeric formats listed below are + * printed from most significant bit to least + * significant bit even though the actual bytes + * might be stored in a different order in + * memory. The integers above each binary byte + * indicate the relative order of the bytes in + * memory; little-endian machines have + * decreasing numbers while big-endian machines + * have increasing numbers. + * + * The fields of the numbers are printed as + * letters with `S' for the mantissa sign bit, + * `M' for the mantissa magnitude, and `E' for + * the exponent. The exponent has an associated + * bias which can be subtracted to find the + * true exponent. The radix point is assumed + * to be before the first `M' bit. Any bit + * of a floating-point value not falling into one + * of these categories is printed as a question + * mark. Bits of integer types are printed as + * `I' for 2's complement and `U' for magnitude. + * + * If the most significant bit of the normalized + * mantissa (always a `1' except for `0.0') is + * not stored then an `implicit=yes' appears + * under the field description. In this case, + * the radix point is still assumed to be + * before the first `M' but after the implicit + * bit. + * + * Modifications: + * + * DO NOT MAKE MODIFICATIONS TO THIS FILE! + * It was generated by code in `H5detect.c'. + * + *------------------------------------------------------------------------- + */ + +/****************/ +/* Module Setup */ +/****************/ + +#include "H5Tmodule.h" /* This source code file is part of the H5T module */ + + +/***********/ +/* Headers */ +/***********/ +#include "H5private.h" /* Generic Functions */ +#include "H5Eprivate.h" /* Error handling */ +#include "H5FLprivate.h" /* Free Lists */ +#include "H5Iprivate.h" /* IDs */ +#include "H5Tpkg.h" /* Datatypes */ + + +/****************/ +/* Local Macros */ +/****************/ + + +/******************/ +/* Local Typedefs */ +/******************/ + + +/********************/ +/* Package Typedefs */ +/********************/ + + +/********************/ +/* Local Prototypes */ +/********************/ + + +/********************/ +/* Public Variables */ +/********************/ + + +/*****************************/ +/* Library Private Variables */ +/*****************************/ + + +/*********************/ +/* Package Variables */ +/*********************/ + + + +/*******************/ +/* Local Variables */ +/*******************/ + + + +/*------------------------------------------------------------------------- + * Function: H5T__init_native + * + * Purpose: Initialize pre-defined native datatypes from code generated + * during the library configuration by H5detect. + * + * Return: Success: non-negative + * Failure: negative + * + * Programmer: Robb Matzke + * Wednesday, December 16, 1998 + * + *------------------------------------------------------------------------- + */ +herr_t +H5T__init_native(void) +{ + H5T_t *dt = NULL; + herr_t ret_value = SUCCEED; + + FUNC_ENTER_PACKAGE + + /* + * 0 1 2 3 + * SEEEEEEE EMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 4; + dt->shared->u.atomic.order = H5T_ORDER_BE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 32; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 31; +dt->shared->u.atomic.u.f.epos = 23; +dt->shared->u.atomic.u.f.esize = 8; +dt->shared->u.atomic.u.f.ebias = 0x0000007f; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 23; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_FLOAT_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_FLOAT_ALIGN_g = 4; + + /* + * 0 1 2 3 + * SEEEEEEE EEEEMMMM MMMMMMMM MMMMMMMM + * 4 5 6 7 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 8; + dt->shared->u.atomic.order = H5T_ORDER_BE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 64; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 63; +dt->shared->u.atomic.u.f.epos = 52; +dt->shared->u.atomic.u.f.esize = 11; +dt->shared->u.atomic.u.f.ebias = 0x000003ff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 52; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_DOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_DOUBLE_ALIGN_g = 8; + + /* + * 0 1 2 3 + * SEEEEEEE EEEEEEEE MMMMMMMM MMMMMMMM + * 4 5 6 7 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 8 9 10 11 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * 12 13 14 15 + * MMMMMMMM MMMMMMMM MMMMMMMM MMMMMMMM + * Implicit bit? yes + */ + if(NULL == (dt = H5T__alloc())) + HGOTO_ERROR(H5E_DATATYPE, H5E_NOSPACE, FAIL, "datatype allocation failed") + dt->shared->state = H5T_STATE_IMMUTABLE; + dt->shared->type = H5T_FLOAT; + dt->shared->size = 16; + dt->shared->u.atomic.order = H5T_ORDER_BE; + dt->shared->u.atomic.offset = 0; + dt->shared->u.atomic.prec = 128; + dt->shared->u.atomic.lsb_pad = H5T_PAD_ZERO; + dt->shared->u.atomic.msb_pad = H5T_PAD_ZERO; +dt->shared->u.atomic.u.f.sign = 127; +dt->shared->u.atomic.u.f.epos = 112; +dt->shared->u.atomic.u.f.esize = 15; +dt->shared->u.atomic.u.f.ebias = 0x00003fff; +dt->shared->u.atomic.u.f.mpos = 0; +dt->shared->u.atomic.u.f.msize = 112; +dt->shared->u.atomic.u.f.norm = H5T_NORM_IMPLIED; +dt->shared->u.atomic.u.f.pad = H5T_PAD_ZERO; + if((H5T_NATIVE_LDOUBLE_g = H5I_register(H5I_DATATYPE, dt, FALSE)) < 0) + HGOTO_ERROR(H5E_DATATYPE, H5E_CANTINIT, FAIL, "can't register ID for built-in datatype") + H5T_NATIVE_LDOUBLE_ALIGN_g = 8; + + /* Set the native order for this machine */ + H5T_native_order_g = H5T_ORDER_BE; + +done: + if(ret_value < 0) { + if(dt != NULL) { + dt->shared = H5FL_FREE(H5T_shared_t, dt->shared); + dt = H5FL_FREE(H5T_t, dt); + } /* end if */ + } /* end if */ + + FUNC_LEAVE_NOAPI(ret_value); +} /* end H5T__init_native() */ diff --git a/H/HDF5/generate-H5Tinit/debian-s390x/H5_gen.F90 b/H/HDF5/generate-H5Tinit/debian-s390x/H5_gen.F90 new file mode 100644 index 00000000000..01464392156 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-s390x/H5_gen.F90 @@ -0,0 +1,6889 @@ +!****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 COPYING 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_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_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_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_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_16 + PRIVATE h5pget_fill_value_kind_4 + PRIVATE h5pget_fill_value_kind_8 + PRIVATE h5pget_fill_value_kind_16 + PRIVATE h5pset_kind_4 + PRIVATE h5pset_kind_8 + PRIVATE h5pset_kind_16 + PRIVATE h5pget_kind_4 + PRIVATE h5pget_kind_8 + PRIVATE h5pget_kind_16 + PRIVATE h5pregister_kind_4 + PRIVATE h5pregister_kind_8 + PRIVATE h5pregister_kind_16 + PRIVATE h5pinsert_kind_4 + PRIVATE h5pinsert_kind_8 + 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_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_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_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_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_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_16 + END INTERFACE + INTERFACE h5pset_f + MODULE PROCEDURE h5pset_kind_4 + MODULE PROCEDURE h5pset_kind_8 + MODULE PROCEDURE h5pset_kind_16 + END INTERFACE + INTERFACE h5pget_f + MODULE PROCEDURE h5pget_kind_4 + MODULE PROCEDURE h5pget_kind_8 + MODULE PROCEDURE h5pget_kind_16 + END INTERFACE + INTERFACE h5pregister_f + MODULE PROCEDURE h5pregister_kind_4 + MODULE PROCEDURE h5pregister_kind_8 + MODULE PROCEDURE h5pregister_kind_16 + END INTERFACE + INTERFACE h5pinsert_f + MODULE PROCEDURE h5pinsert_kind_4 + MODULE PROCEDURE h5pinsert_kind_8 + 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_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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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_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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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), OPTIONAL, INTENT(IN) :: mem_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: file_space_id + INTEGER(HID_T), OPTIONAL, INTENT(IN) :: 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 = h5pset_fill_value_c(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 = h5pset_fill_value_c(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_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 = h5pset_fill_value_c(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 = h5pget_fill_value_c(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 = h5pget_fill_value_c(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_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 = h5pget_fill_value_c(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_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_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_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_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/H/HDF5/generate-H5Tinit/debian-s390x/H5f90i_gen.h b/H/HDF5/generate-H5Tinit/debian-s390x/H5f90i_gen.h new file mode 100644 index 00000000000..9fcf6f23866 --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-s390x/H5f90i_gen.h @@ -0,0 +1,47 @@ +/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * 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 COPYING 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_16 long double + +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_16 real_C_LONG_DOUBLE_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/H/HDF5/generate-H5Tinit/debian-s390x/H5fortran_types.F90 b/H/HDF5/generate-H5Tinit/debian-s390x/H5fortran_types.F90 new file mode 100644 index 00000000000..8a0bc30a64b --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-s390x/H5fortran_types.F90 @@ -0,0 +1,41 @@ +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! 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 COPYING 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 = 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/H/HDF5/generate-H5Tinit/debian-s390x/config.status b/H/HDF5/generate-H5Tinit/debian-s390x/config.status new file mode 100644 index 00000000000..7f9e4ebde1a --- /dev/null +++ b/H/HDF5/generate-H5Tinit/debian-s390x/config.status @@ -0,0 +1,2958 @@ +#! /bin/bash +# Generated by configure. +# Run this file to recreate the current configuration. +# Compiler output produced by configure, useful for debugging +# configure, is in config.log if it exists. + +debug=false +ac_cs_recheck=false +ac_cs_silent=false + +SHELL=${CONFIG_SHELL-/bin/bash} +export SHELL +## -------------------- ## +## M4sh Initialization. ## +## -------------------- ## + +# Be more Bourne compatible +DUALCASE=1; export DUALCASE # for MKS sh +if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : + emulate sh + NULLCMD=: + # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which + # is contrary to our usage. Disable this feature. + alias -g '${1+"$@"}'='"$@"' + setopt NO_GLOB_SUBST +else + case `(set -o) 2>/dev/null` in #( + *posix*) : + set -o posix ;; #( + *) : + ;; +esac +fi + + +as_nl=' +' +export as_nl +# Printing a long string crashes Solaris 7 /usr/bin/printf. +as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo +as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo +# Prefer a ksh shell builtin over an external printf program on Solaris, +# but without wasting forks for bash or zsh. +if test -z "$BASH_VERSION$ZSH_VERSION" \ + && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='print -r --' + as_echo_n='print -rn --' +elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then + as_echo='printf %s\n' + as_echo_n='printf %s' +else + if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then + as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' + as_echo_n='/usr/ucb/echo -n' + else + as_echo_body='eval expr "X$1" : "X\\(.*\\)"' + as_echo_n_body='eval + arg=$1; + case $arg in #( + *"$as_nl"*) + expr "X$arg" : "X\\(.*\\)$as_nl"; + arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; + esac; + expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" + ' + export as_echo_n_body + as_echo_n='sh -c $as_echo_n_body as_echo' + fi + export as_echo_body + as_echo='sh -c $as_echo_body as_echo' +fi + +# The user is always right. +if test "${PATH_SEPARATOR+set}" != set; then + PATH_SEPARATOR=: + (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { + (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || + PATH_SEPARATOR=';' + } +fi + + +# IFS +# We need space, tab and new line, in precisely that order. Quoting is +# there to prevent editors from complaining about space-tab. +# (If _AS_PATH_WALK were called with IFS unset, it would disable word +# splitting by setting IFS to empty value.) +IFS=" "" $as_nl" + +# Find who we are. Look in the path if we contain no directory separator. +as_myself= +case $0 in #(( + *[\\/]* ) as_myself=$0 ;; + *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR +for as_dir in $PATH +do + IFS=$as_save_IFS + test -z "$as_dir" && as_dir=. + test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break + done +IFS=$as_save_IFS + + ;; +esac +# We did not find ourselves, most probably we were run as `sh COMMAND' +# in which case we are not to be found in the path. +if test "x$as_myself" = x; then + as_myself=$0 +fi +if test ! -f "$as_myself"; then + $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 + exit 1 +fi + +# Unset variables that we do not need and which cause bugs (e.g. in +# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" +# suppresses any "Segmentation fault" message there. '((' could +# trigger a bug in pdksh 5.2.14. +for as_var in BASH_ENV ENV MAIL MAILPATH +do eval test x\${$as_var+set} = xset \ + && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : +done +PS1='$ ' +PS2='> ' +PS4='+ ' + +# NLS nuisances. +LC_ALL=C +export LC_ALL +LANGUAGE=C +export LANGUAGE + +# CDPATH. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + + +# as_fn_error STATUS ERROR [LINENO LOG_FD] +# ---------------------------------------- +# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are +# provided, also output the error to LOG_FD, referencing LINENO. Then exit the +# script with STATUS, using 1 if that was 0. +as_fn_error () +{ + as_status=$1; test $as_status -eq 0 && as_status=1 + if test "$4"; then + as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack + $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 + fi + $as_echo "$as_me: error: $2" >&2 + as_fn_exit $as_status +} # as_fn_error + + +# as_fn_set_status STATUS +# ----------------------- +# Set $? to STATUS, without forking. +as_fn_set_status () +{ + return $1 +} # as_fn_set_status + +# as_fn_exit STATUS +# ----------------- +# Exit the shell with STATUS, even in a "trap 0" or "set -e" context. +as_fn_exit () +{ + set +e + as_fn_set_status $1 + exit $1 +} # as_fn_exit + +# as_fn_unset VAR +# --------------- +# Portably unset VAR. +as_fn_unset () +{ + { eval $1=; unset $1;} +} +as_unset=as_fn_unset +# as_fn_append VAR VALUE +# ---------------------- +# Append the text in VALUE to the end of the definition contained in VAR. Take +# advantage of any shell optimizations that allow amortized linear growth over +# repeated appends, instead of the typical quadratic growth present in naive +# implementations. +if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : + eval 'as_fn_append () + { + eval $1+=\$2 + }' +else + as_fn_append () + { + eval $1=\$$1\$2 + } +fi # as_fn_append + +# as_fn_arith ARG... +# ------------------ +# Perform arithmetic evaluation on the ARGs, and store the result in the +# global $as_val. Take advantage of shells that can avoid forks. The arguments +# must be portable across $(()) and expr. +if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : + eval 'as_fn_arith () + { + as_val=$(( $* )) + }' +else + as_fn_arith () + { + as_val=`expr "$@" || test $? -eq 1` + } +fi # as_fn_arith + + +if expr a : '\(a\)' >/dev/null 2>&1 && + test "X`expr 00001 : '.*\(...\)'`" = X001; then + as_expr=expr +else + as_expr=false +fi + +if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then + as_basename=basename +else + as_basename=false +fi + +if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then + as_dirname=dirname +else + as_dirname=false +fi + +as_me=`$as_basename -- "$0" || +$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ + X"$0" : 'X\(//\)$' \| \ + X"$0" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X/"$0" | + sed '/^.*\/\([^/][^/]*\)\/*$/{ + s//\1/ + q + } + /^X\/\(\/\/\)$/{ + s//\1/ + q + } + /^X\/\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + +# Avoid depending upon Character Ranges. +as_cr_letters='abcdefghijklmnopqrstuvwxyz' +as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' +as_cr_Letters=$as_cr_letters$as_cr_LETTERS +as_cr_digits='0123456789' +as_cr_alnum=$as_cr_Letters$as_cr_digits + +ECHO_C= ECHO_N= ECHO_T= +case `echo -n x` in #((((( +-n*) + case `echo 'xy\c'` in + *c*) ECHO_T=' ';; # ECHO_T is single tab character. + xy) ECHO_C='\c';; + *) echo `echo ksh88 bug on AIX 6.1` > /dev/null + ECHO_T=' ';; + esac;; +*) + ECHO_N='-n';; +esac + +rm -f conf$$ conf$$.exe conf$$.file +if test -d conf$$.dir; then + rm -f conf$$.dir/conf$$.file +else + rm -f conf$$.dir + mkdir conf$$.dir 2>/dev/null +fi +if (echo >conf$$.file) 2>/dev/null; then + if ln -s conf$$.file conf$$ 2>/dev/null; then + as_ln_s='ln -s' + # ... but there are two gotchas: + # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. + # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. + # In both cases, we have to default to `cp -pR'. + ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || + as_ln_s='cp -pR' + elif ln conf$$.file conf$$ 2>/dev/null; then + as_ln_s=ln + else + as_ln_s='cp -pR' + fi +else + as_ln_s='cp -pR' +fi +rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file +rmdir conf$$.dir 2>/dev/null + + +# as_fn_mkdir_p +# ------------- +# Create "$as_dir" as a directory, including parents if necessary. +as_fn_mkdir_p () +{ + + case $as_dir in #( + -*) as_dir=./$as_dir;; + esac + test -d "$as_dir" || eval $as_mkdir_p || { + as_dirs= + while :; do + case $as_dir in #( + *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( + *) as_qdir=$as_dir;; + esac + as_dirs="'$as_qdir' $as_dirs" + as_dir=`$as_dirname -- "$as_dir" || +$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$as_dir" : 'X\(//\)[^/]' \| \ + X"$as_dir" : 'X\(//\)$' \| \ + X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$as_dir" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + test -d "$as_dir" && break + done + test -z "$as_dirs" || eval "mkdir $as_dirs" + } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" + + +} # as_fn_mkdir_p +if mkdir -p . 2>/dev/null; then + as_mkdir_p='mkdir -p "$as_dir"' +else + test -d ./-p && rmdir ./-p + as_mkdir_p=false +fi + + +# as_fn_executable_p FILE +# ----------------------- +# Test if FILE is an executable regular file. +as_fn_executable_p () +{ + test -f "$1" && test -x "$1" +} # as_fn_executable_p +as_test_x='test -x' +as_executable_p=as_fn_executable_p + +# Sed expression to map a string onto a valid CPP name. +as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" + +# Sed expression to map a string onto a valid variable name. +as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" + + +exec 6>&1 +## ----------------------------------- ## +## Main body of $CONFIG_STATUS script. ## +## ----------------------------------- ## +# Save the log message, to keep $0 and so on meaningful, and to +# report actual input values of CONFIG_FILES etc. instead of their +# values after options handling. +ac_log=" +This file was extended by HDF5 $as_me 1.14.0, which was +generated by GNU Autoconf 2.69. Invocation command line was + + CONFIG_FILES = $CONFIG_FILES + CONFIG_HEADERS = $CONFIG_HEADERS + CONFIG_LINKS = $CONFIG_LINKS + CONFIG_COMMANDS = $CONFIG_COMMANDS + $ $0 $@ + +on `(hostname || uname -n) 2>/dev/null | sed 1q` +" + +# Files that config.status was made for. +config_files=" src/libhdf5.settings Makefile doxygen/Doxyfile src/Makefile test/Makefile test/H5srcdir_str.h test/test_abort_fail.sh test/test_check_version.sh test/test_error.sh test/test_external_env.sh test/test_flush_refresh.sh test/test_libinfo.sh test/test_links_env.sh test/test_mirror.sh test/test_plugin.sh test/test_swmr.sh test/test_use_cases.sh test/test_vds_env.sh test/test_vds_swmr.sh testpar/Makefile testpar/testpflush.sh utils/Makefile utils/mirror_vfd/Makefile utils/test/Makefile utils/tools/Makefile utils/tools/h5dwalk/Makefile utils/tools/test/Makefile utils/tools/test/h5dwalk/Makefile utils/tools/test/h5dwalk/copy_demo_files.sh utils/tools/test/h5dwalk/testh5dwalk.sh tools/Makefile tools/lib/Makefile tools/libtest/Makefile tools/src/Makefile tools/src/h5dump/Makefile tools/src/h5import/Makefile tools/src/h5diff/Makefile tools/src/h5jam/Makefile tools/src/h5repack/Makefile tools/src/h5ls/Makefile tools/src/h5copy/Makefile tools/src/misc/Makefile tools/src/h5stat/Makefile tools/test/Makefile tools/test/h5dump/Makefile tools/test/h5dump/h5dump_plugin.sh tools/test/h5dump/testh5dump.sh tools/test/h5dump/testh5dumppbits.sh tools/test/h5dump/testh5dumpvds.sh tools/test/h5dump/testh5dumpxml.sh tools/test/h5ls/Makefile tools/test/h5ls/h5ls_plugin.sh tools/test/h5ls/testh5ls.sh tools/test/h5ls/testh5lsvds.sh tools/test/h5import/Makefile tools/test/h5import/h5importtestutil.sh tools/test/h5diff/Makefile tools/test/h5diff/h5diff_plugin.sh tools/test/h5diff/testh5diff.sh tools/test/h5diff/testph5diff.sh tools/src/h5format_convert/Makefile tools/test/h5format_convert/Makefile tools/test/h5format_convert/testh5fc.sh tools/test/h5jam/Makefile tools/test/h5jam/testh5jam.sh tools/test/h5repack/Makefile tools/test/h5repack/h5repack.sh tools/test/h5repack/h5repack_plugin.sh tools/test/h5copy/Makefile tools/test/h5copy/testh5copy.sh tools/test/misc/Makefile tools/test/misc/testh5clear.sh tools/test/misc/testh5mkgrp.sh tools/test/misc/testh5repart.sh tools/test/misc/vds/Makefile tools/test/h5stat/Makefile tools/test/h5stat/testh5stat.sh tools/src/h5perf/Makefile tools/test/perform/Makefile examples/Makefile examples/run-c-ex.sh examples/testh5cc.sh bin/h5cc bin/Makefile c++/Makefile c++/src/Makefile c++/src/h5c++ c++/test/Makefile c++/test/H5srcdir_str.h c++/examples/Makefile c++/examples/run-c++-ex.sh c++/examples/testh5c++.sh fortran/Makefile fortran/src/h5fc fortran/src/Makefile fortran/src/H5fort_type_defines.h fortran/test/Makefile fortran/testpar/Makefile fortran/examples/Makefile fortran/examples/run-fortran-ex.sh fortran/examples/testh5fc.sh java/Makefile java/src/Makefile java/src/jni/Makefile java/test/Makefile java/test/junit.sh java/examples/Makefile java/examples/intro/Makefile java/examples/intro/JavaIntroExample.sh java/examples/datasets/Makefile java/examples/datasets/JavaDatasetExample.sh java/examples/datatypes/Makefile java/examples/datatypes/JavaDatatypeExample.sh java/examples/groups/Makefile java/examples/groups/JavaGroupExample.sh hl/Makefile hl/src/Makefile hl/test/Makefile hl/test/H5srcdir_str.h hl/tools/Makefile hl/tools/gif2h5/Makefile hl/tools/gif2h5/h52giftest.sh hl/tools/h5watch/Makefile hl/tools/h5watch/testh5watch.sh hl/examples/Makefile hl/examples/run-hlc-ex.sh hl/c++/Makefile hl/c++/src/Makefile hl/c++/test/Makefile hl/c++/examples/Makefile hl/c++/examples/run-hlc++-ex.sh hl/fortran/Makefile hl/fortran/src/Makefile hl/fortran/test/Makefile hl/fortran/examples/Makefile hl/fortran/examples/run-hlfortran-ex.sh utils/subfiling_vfd/h5fuse.sh" +config_headers=" src/H5config.h fortran/src/H5config_f.inc" +config_commands=" pubconf depfiles libtool .classes" + +ac_cs_usage="\ +\`$as_me' instantiates files and other configuration actions +from templates according to the current configuration. Unless the files +and actions are specified as TAGs, all are instantiated by default. + +Usage: $0 [OPTION]... [TAG]... + + -h, --help print this help, then exit + -V, --version print version number and configuration settings, then exit + --config print configuration, then exit + -q, --quiet, --silent + do not print progress messages + -d, --debug don't remove temporary files + --recheck update $as_me by reconfiguring in the same conditions + --file=FILE[:TEMPLATE] + instantiate the configuration file FILE + --header=FILE[:TEMPLATE] + instantiate the configuration header FILE + +Configuration files: +$config_files + +Configuration headers: +$config_headers + +Configuration commands: +$config_commands + +Report bugs to ." + +ac_cs_config="'--enable-cxx' '--enable-fortran'" +ac_cs_version="\ +HDF5 config.status 1.14.0 +configured by ../configure, generated by GNU Autoconf 2.69, + with options \"$ac_cs_config\" + +Copyright (C) 2012 Free Software Foundation, Inc. +This config.status script is free software; the Free Software Foundation +gives unlimited permission to copy, distribute and modify it." + +ac_pwd='/hdf5-1.14.0/build' +srcdir='..' +INSTALL='/usr/bin/install -c' +MKDIR_P='/bin/mkdir -p' +AWK='mawk' +test -n "$AWK" || AWK=awk +# The default lists apply if the user does not specify any file. +ac_need_defaults=: +while test $# != 0 +do + case $1 in + --*=?*) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` + ac_shift=: + ;; + --*=) + ac_option=`expr "X$1" : 'X\([^=]*\)='` + ac_optarg= + ac_shift=: + ;; + *) + ac_option=$1 + ac_optarg=$2 + ac_shift=shift + ;; + esac + + case $ac_option in + # Handling of the options. + -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) + ac_cs_recheck=: ;; + --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) + $as_echo "$ac_cs_version"; exit ;; + --config | --confi | --conf | --con | --co | --c ) + $as_echo "$ac_cs_config"; exit ;; + --debug | --debu | --deb | --de | --d | -d ) + debug=: ;; + --file | --fil | --fi | --f ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + '') as_fn_error $? "missing file argument" ;; + esac + as_fn_append CONFIG_FILES " '$ac_optarg'" + ac_need_defaults=false;; + --header | --heade | --head | --hea ) + $ac_shift + case $ac_optarg in + *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; + esac + as_fn_append CONFIG_HEADERS " '$ac_optarg'" + ac_need_defaults=false;; + --he | --h) + # Conflict between --help and --header + as_fn_error $? "ambiguous option: \`$1' +Try \`$0 --help' for more information.";; + --help | --hel | -h ) + $as_echo "$ac_cs_usage"; exit ;; + -q | -quiet | --quiet | --quie | --qui | --qu | --q \ + | -silent | --silent | --silen | --sile | --sil | --si | --s) + ac_cs_silent=: ;; + + # This is an error. + -*) as_fn_error $? "unrecognized option: \`$1' +Try \`$0 --help' for more information." ;; + + *) as_fn_append ac_config_targets " $1" + ac_need_defaults=false ;; + + esac + shift +done + +ac_configure_extra_args= + +if $ac_cs_silent; then + exec 6>/dev/null + ac_configure_extra_args="$ac_configure_extra_args --silent" +fi + +if $ac_cs_recheck; then + set X /bin/bash '../configure' '--enable-cxx' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + shift + $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6 + CONFIG_SHELL='/bin/bash' + export CONFIG_SHELL + exec "$@" +fi + +exec 5>>config.log +{ + echo + sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX +## Running $as_me. ## +_ASBOX + $as_echo "$ac_log" +} >&5 + +# +# INIT-COMMANDS +# +AMDEP_TRUE="" ac_aux_dir="../bin" + + +# The HP-UX ksh and POSIX shell print the target directory to stdout +# if CDPATH is set. +(unset CDPATH) >/dev/null 2>&1 && unset CDPATH + +sed_quote_subst='s/\(["`$\\]\)/\\\1/g' +double_quote_subst='s/\(["`\\]\)/\\\1/g' +delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' +macro_version='2.4.6' +macro_revision='2.4.6' +enable_shared='yes' +enable_static='yes' +pic_mode='default' +enable_fast_install='needless' +shared_archive_member_spec='' +SHELL='/bin/bash' +ECHO='printf %s\n' +PATH_SEPARATOR=':' +host_alias='' +host='s390x-ibm-linux-gnu' +host_os='linux-gnu' +build_alias='' +build='s390x-ibm-linux-gnu' +build_os='linux-gnu' +SED='/bin/sed' +Xsed='/bin/sed -e 1s/^X//' +GREP='/bin/grep' +EGREP='/bin/grep -E' +FGREP='/bin/grep -F' +LD='/usr/bin/ld' +NM='/usr/bin/nm -B' +LN_S='ln -s' +max_cmd_len='1572864' +ac_objext='o' +exeext='' +lt_unset='unset' +lt_SP2NL='tr \040 \012' +lt_NL2SP='tr \015\012 \040\040' +lt_cv_to_host_file_cmd='func_convert_file_noop' +lt_cv_to_tool_file_cmd='func_convert_file_noop' +reload_flag=' -r' +reload_cmds='$LD$reload_flag -o $output$reload_objs' +OBJDUMP='objdump' +deplibs_check_method='pass_all' +file_magic_cmd='$MAGIC_CMD' +file_magic_glob='' +want_nocaseglob='no' +DLLTOOL='false' +sharedlib_from_linklib_cmd='printf %s\n' +AR='ar' +AR_FLAGS='cr' +archiver_list_spec='@' +STRIP='strip' +RANLIB='ranlib' +old_postinstall_cmds='chmod 644 $oldlib~$RANLIB $tool_oldlib' +old_postuninstall_cmds='' +old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +lock_old_archive_extraction='no' +CC='gcc' +CFLAGS='' +compiler='gfortran' +GCC='yes' +lt_cv_sys_global_symbol_pipe='sed -n -e '\''s/^.*[ ]\([ABCDGIRSTW][ABCDGIRSTW]*\)[ ][ ]*\([_A-Za-z][_A-Za-z0-9]*\)$/\1 \2 \2/p'\'' | sed '\''/ __gnu_lto/d'\''' +lt_cv_sys_global_symbol_to_cdecl='sed -n -e '\''s/^T .* \(.*\)$/extern int \1();/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/extern char \1;/p'\''' +lt_cv_sys_global_symbol_to_import='' +lt_cv_sys_global_symbol_to_c_name_address='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"\1", (void *) \&\1},/p'\''' +lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) .*$/ {"\1", (void *) 0},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(lib.*\)$/ {"\1", (void *) \&\1},/p'\'' -e '\''s/^[ABCDGIRSTW][ABCDGIRSTW]* .* \(.*\)$/ {"lib\1", (void *) \&\1},/p'\''' +lt_cv_nm_interface='BSD nm' +nm_file_list_spec='@' +lt_sysroot='' +lt_cv_truncate_bin='/bin/dd bs=4096 count=1' +objdir='.libs' +MAGIC_CMD='file' +lt_prog_compiler_no_builtin_flag=' -fno-builtin' +lt_prog_compiler_pic=' -fPIC -DPIC' +lt_prog_compiler_wl='-Wl,' +lt_prog_compiler_static='-static' +lt_cv_prog_compiler_c_o='yes' +need_locks='no' +MANIFEST_TOOL=':' +DSYMUTIL='' +NMEDIT='' +LIPO='' +OTOOL='' +OTOOL64='' +libext='a' +shrext_cmds='.so' +extract_expsyms_cmds='' +archive_cmds_need_lc='no' +enable_shared_with_static_runtimes='no' +export_dynamic_flag_spec='$wl--export-dynamic' +whole_archive_flag_spec='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object='no' +old_archive_from_new_cmds='' +old_archive_from_expsyms_cmds='' +archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds='' +module_expsym_cmds='' +with_gnu_ld='yes' +allow_undefined_flag='' +no_undefined_flag='' +hardcode_libdir_flag_spec='$wl-rpath $wl$libdir' +hardcode_libdir_separator='' +hardcode_direct='no' +hardcode_direct_absolute='no' +hardcode_minus_L='no' +hardcode_shlibpath_var='unsupported' +hardcode_automatic='no' +inherit_rpath='no' +link_all_deplibs='unknown' +always_export_symbols='no' +export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms='' +prelink_cmds='' +postlink_cmds='' +file_list_spec='' +variables_saved_for_relink='PATH LD_LIBRARY_PATH LD_RUN_PATH GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH' +need_lib_prefix='no' +need_version='no' +version_type='linux' +runpath_var='LD_RUN_PATH' +shlibpath_var='LD_LIBRARY_PATH' +shlibpath_overrides_runpath='yes' +libname_spec='lib$name' +library_names_spec='$libname$release$shared_ext$versuffix $libname$release$shared_ext$major $libname$shared_ext' +soname_spec='$libname$release$shared_ext$major' +install_override_mode='' +postinstall_cmds='' +postuninstall_cmds='' +finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' +finish_eval='' +hardcode_into_libs='yes' +sys_lib_search_path_spec='/usr/lib/gcc/s390x-linux-gnu/10 /usr/lib/s390x-linux-gnu /usr/lib /lib/s390x-linux-gnu /lib ' +configure_time_dlsearch_path='/lib /usr/lib /usr/local/lib /usr/local/lib/s390x-linux-gnu /lib/s390x-linux-gnu /usr/lib/s390x-linux-gnu ' +configure_time_lt_sys_library_path='' +hardcode_action='immediate' +enable_dlopen='yes' +enable_dlopen_self='yes' +enable_dlopen_self_static='no' +old_striplib='strip --strip-debug' +striplib='strip --strip-unneeded' +compiler_lib_search_dirs='' +predep_objects='' +postdep_objects='' +predeps='' +postdeps='' +compiler_lib_search_path='' +LD_CXX='/usr/bin/ld' +LD_FC='/usr/bin/ld' +reload_flag_CXX=' -r' +reload_flag_FC=' -r' +reload_cmds_CXX='$LD$reload_flag -o $output$reload_objs' +reload_cmds_FC='$LD$reload_flag -o $output$reload_objs' +old_archive_cmds_CXX='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +old_archive_cmds_FC='$AR $AR_FLAGS $oldlib$oldobjs~$RANLIB $tool_oldlib' +compiler_CXX='g++' +compiler_FC='gfortran' +GCC_CXX='yes' +GCC_FC='yes' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' +lt_prog_compiler_no_builtin_flag_FC='' +lt_prog_compiler_pic_CXX=' -fPIC -DPIC' +lt_prog_compiler_pic_FC=' -fPIC' +lt_prog_compiler_wl_CXX='-Wl,' +lt_prog_compiler_wl_FC='-Wl,' +lt_prog_compiler_static_CXX='-static' +lt_prog_compiler_static_FC='-static' +lt_cv_prog_compiler_c_o_CXX='yes' +lt_cv_prog_compiler_c_o_FC='yes' +archive_cmds_need_lc_CXX='no' +archive_cmds_need_lc_FC='no' +enable_shared_with_static_runtimes_CXX='no' +enable_shared_with_static_runtimes_FC='no' +export_dynamic_flag_spec_CXX='$wl--export-dynamic' +export_dynamic_flag_spec_FC='$wl--export-dynamic' +whole_archive_flag_spec_CXX='$wl--whole-archive$convenience $wl--no-whole-archive' +whole_archive_flag_spec_FC='$wl--whole-archive$convenience $wl--no-whole-archive' +compiler_needs_object_CXX='no' +compiler_needs_object_FC='no' +old_archive_from_new_cmds_CXX='' +old_archive_from_new_cmds_FC='' +old_archive_from_expsyms_cmds_CXX='' +old_archive_from_expsyms_cmds_FC='' +archive_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname -o $lib' +archive_cmds_FC='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname -o $lib' +archive_expsym_cmds_CXX='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags $wl-soname $wl$soname $wl-retain-symbols-file $wl$export_symbols -o $lib' +archive_expsym_cmds_FC='echo "{ global:" > $output_objdir/$libname.ver~ + cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ + echo "local: *; };" >> $output_objdir/$libname.ver~ + $CC -shared $pic_flag $libobjs $deplibs $compiler_flags $wl-soname $wl$soname $wl-version-script $wl$output_objdir/$libname.ver -o $lib' +module_cmds_CXX='' +module_cmds_FC='' +module_expsym_cmds_CXX='' +module_expsym_cmds_FC='' +with_gnu_ld_CXX='yes' +with_gnu_ld_FC='yes' +allow_undefined_flag_CXX='' +allow_undefined_flag_FC='' +no_undefined_flag_CXX='' +no_undefined_flag_FC='' +hardcode_libdir_flag_spec_CXX='$wl-rpath $wl$libdir' +hardcode_libdir_flag_spec_FC='$wl-rpath $wl$libdir' +hardcode_libdir_separator_CXX='' +hardcode_libdir_separator_FC='' +hardcode_direct_CXX='no' +hardcode_direct_FC='no' +hardcode_direct_absolute_CXX='no' +hardcode_direct_absolute_FC='no' +hardcode_minus_L_CXX='no' +hardcode_minus_L_FC='no' +hardcode_shlibpath_var_CXX='unsupported' +hardcode_shlibpath_var_FC='unsupported' +hardcode_automatic_CXX='no' +hardcode_automatic_FC='no' +inherit_rpath_CXX='no' +inherit_rpath_FC='no' +link_all_deplibs_CXX='unknown' +link_all_deplibs_FC='unknown' +always_export_symbols_CXX='no' +always_export_symbols_FC='no' +export_symbols_cmds_CXX='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +export_symbols_cmds_FC='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' +include_expsyms_CXX='' +include_expsyms_FC='' +prelink_cmds_CXX='' +prelink_cmds_FC='' +postlink_cmds_CXX='' +postlink_cmds_FC='' +file_list_spec_CXX='' +file_list_spec_FC='' +hardcode_action_CXX='immediate' +hardcode_action_FC='immediate' +compiler_lib_search_dirs_CXX='/usr/lib/gcc/s390x-linux-gnu/10 /usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu /usr/lib/gcc/s390x-linux-gnu/10/../../../../lib /lib/s390x-linux-gnu /lib/../lib /usr/lib/s390x-linux-gnu /usr/lib/../lib /usr/lib/gcc/s390x-linux-gnu/10/../../..' +compiler_lib_search_dirs_FC='/usr/lib/gcc/s390x-linux-gnu/10 /usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu /usr/lib/gcc/s390x-linux-gnu/10/../../../../lib /lib/s390x-linux-gnu /lib/../lib /usr/lib/s390x-linux-gnu /usr/lib/../lib /usr/lib/gcc/s390x-linux-gnu/10/../../..' +predep_objects_CXX='/usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu/crti.o /usr/lib/gcc/s390x-linux-gnu/10/crtbeginS.o' +predep_objects_FC='/usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu/crti.o /usr/lib/gcc/s390x-linux-gnu/10/crtbeginS.o' +postdep_objects_CXX='/usr/lib/gcc/s390x-linux-gnu/10/crtendS.o /usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu/crtn.o' +postdep_objects_FC='/usr/lib/gcc/s390x-linux-gnu/10/crtendS.o /usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu/crtn.o' +predeps_CXX='' +predeps_FC='' +postdeps_CXX='-lstdc++ -lm -lgcc_s -lc -lgcc_s' +postdeps_FC='-lgfortran -lm -lgcc_s -lm -lgcc_s -lc -lgcc_s' +compiler_lib_search_path_CXX='-L/usr/lib/gcc/s390x-linux-gnu/10 -L/usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu -L/usr/lib/gcc/s390x-linux-gnu/10/../../../../lib -L/lib/s390x-linux-gnu -L/lib/../lib -L/usr/lib/s390x-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/s390x-linux-gnu/10/../../..' +compiler_lib_search_path_FC='-L/usr/lib/gcc/s390x-linux-gnu/10 -L/usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu -L/usr/lib/gcc/s390x-linux-gnu/10/../../../../lib -L/lib/s390x-linux-gnu -L/lib/../lib -L/usr/lib/s390x-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/s390x-linux-gnu/10/../../..' + +LTCC='gcc' +LTCFLAGS=' ' +compiler='gcc' + +# A function that is used when there is no print builtin or printf. +func_fallback_echo () +{ + eval 'cat <<_LTECHO_EOF +$1 +_LTECHO_EOF' +} + +# Quote evaled strings. +for var in SHELL ECHO PATH_SEPARATOR SED GREP EGREP FGREP LD NM LN_S lt_SP2NL lt_NL2SP reload_flag OBJDUMP deplibs_check_method file_magic_cmd file_magic_glob want_nocaseglob DLLTOOL sharedlib_from_linklib_cmd AR AR_FLAGS archiver_list_spec STRIP RANLIB CC CFLAGS compiler lt_cv_sys_global_symbol_pipe lt_cv_sys_global_symbol_to_cdecl lt_cv_sys_global_symbol_to_import lt_cv_sys_global_symbol_to_c_name_address lt_cv_sys_global_symbol_to_c_name_address_lib_prefix lt_cv_nm_interface nm_file_list_spec lt_cv_truncate_bin lt_prog_compiler_no_builtin_flag lt_prog_compiler_pic lt_prog_compiler_wl lt_prog_compiler_static lt_cv_prog_compiler_c_o need_locks MANIFEST_TOOL DSYMUTIL NMEDIT LIPO OTOOL OTOOL64 shrext_cmds export_dynamic_flag_spec whole_archive_flag_spec compiler_needs_object with_gnu_ld allow_undefined_flag no_undefined_flag hardcode_libdir_flag_spec hardcode_libdir_separator exclude_expsyms include_expsyms file_list_spec variables_saved_for_relink libname_spec library_names_spec soname_spec install_override_mode finish_eval old_striplib striplib compiler_lib_search_dirs predep_objects postdep_objects predeps postdeps compiler_lib_search_path LD_CXX LD_FC reload_flag_CXX reload_flag_FC compiler_CXX compiler_FC lt_prog_compiler_no_builtin_flag_CXX lt_prog_compiler_no_builtin_flag_FC lt_prog_compiler_pic_CXX lt_prog_compiler_pic_FC lt_prog_compiler_wl_CXX lt_prog_compiler_wl_FC lt_prog_compiler_static_CXX lt_prog_compiler_static_FC lt_cv_prog_compiler_c_o_CXX lt_cv_prog_compiler_c_o_FC export_dynamic_flag_spec_CXX export_dynamic_flag_spec_FC whole_archive_flag_spec_CXX whole_archive_flag_spec_FC compiler_needs_object_CXX compiler_needs_object_FC with_gnu_ld_CXX with_gnu_ld_FC allow_undefined_flag_CXX allow_undefined_flag_FC no_undefined_flag_CXX no_undefined_flag_FC hardcode_libdir_flag_spec_CXX hardcode_libdir_flag_spec_FC hardcode_libdir_separator_CXX hardcode_libdir_separator_FC exclude_expsyms_CXX exclude_expsyms_FC include_expsyms_CXX include_expsyms_FC file_list_spec_CXX file_list_spec_FC compiler_lib_search_dirs_CXX compiler_lib_search_dirs_FC predep_objects_CXX predep_objects_FC postdep_objects_CXX postdep_objects_FC predeps_CXX predeps_FC postdeps_CXX postdeps_FC compiler_lib_search_path_CXX compiler_lib_search_path_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED \"\$sed_quote_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +# Double-quote double-evaled strings. +for var in reload_cmds old_postinstall_cmds old_postuninstall_cmds old_archive_cmds extract_expsyms_cmds old_archive_from_new_cmds old_archive_from_expsyms_cmds archive_cmds archive_expsym_cmds module_cmds module_expsym_cmds export_symbols_cmds prelink_cmds postlink_cmds postinstall_cmds postuninstall_cmds finish_cmds sys_lib_search_path_spec configure_time_dlsearch_path configure_time_lt_sys_library_path reload_cmds_CXX reload_cmds_FC old_archive_cmds_CXX old_archive_cmds_FC old_archive_from_new_cmds_CXX old_archive_from_new_cmds_FC old_archive_from_expsyms_cmds_CXX old_archive_from_expsyms_cmds_FC archive_cmds_CXX archive_cmds_FC archive_expsym_cmds_CXX archive_expsym_cmds_FC module_cmds_CXX module_cmds_FC module_expsym_cmds_CXX module_expsym_cmds_FC export_symbols_cmds_CXX export_symbols_cmds_FC prelink_cmds_CXX prelink_cmds_FC postlink_cmds_CXX postlink_cmds_FC; do + case `eval \\$ECHO \\""\\$$var"\\"` in + *[\\\`\"\$]*) + eval "lt_$var=\\\"\`\$ECHO \"\$$var\" | \$SED -e \"\$double_quote_subst\" -e \"\$sed_quote_subst\" -e \"\$delay_variable_subst\"\`\\\"" ## exclude from sc_prohibit_nested_quotes + ;; + *) + eval "lt_$var=\\\"\$$var\\\"" + ;; + esac +done + +ac_aux_dir='../bin' + +# See if we are running on zsh, and set the options that allow our +# commands through without removal of \ escapes INIT. +if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST +fi + + + PACKAGE='hdf5' + VERSION='1.14.0' + RM='rm -f' + ofile='libtool' + + + + + +ac_aux_dir='../bin' + + +/bin/mkdir -p java/src/.classes; + /bin/mkdir -p java/test/.classes; + /bin/mkdir -p java/examples/intro/.classes; + /bin/mkdir -p java/examples/datasets/.classes; + /bin/mkdir -p java/examples/datatypes/.classes; + /bin/mkdir -p java/examples/groups/.classes + + +# Handling of arguments. +for ac_config_target in $ac_config_targets +do + case $ac_config_target in + "src/H5config.h") CONFIG_HEADERS="$CONFIG_HEADERS src/H5config.h" ;; + "pubconf") CONFIG_COMMANDS="$CONFIG_COMMANDS pubconf" ;; + "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; + "fortran/src/H5config_f.inc") CONFIG_HEADERS="$CONFIG_HEADERS fortran/src/H5config_f.inc" ;; + "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; + "src/libhdf5.settings") CONFIG_FILES="$CONFIG_FILES src/libhdf5.settings" ;; + "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; + "doxygen/Doxyfile") CONFIG_FILES="$CONFIG_FILES doxygen/Doxyfile" ;; + "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; + "test/Makefile") CONFIG_FILES="$CONFIG_FILES test/Makefile" ;; + "test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES test/H5srcdir_str.h" ;; + "test/test_abort_fail.sh") CONFIG_FILES="$CONFIG_FILES test/test_abort_fail.sh" ;; + "test/test_check_version.sh") CONFIG_FILES="$CONFIG_FILES test/test_check_version.sh" ;; + "test/test_error.sh") CONFIG_FILES="$CONFIG_FILES test/test_error.sh" ;; + "test/test_external_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_external_env.sh" ;; + "test/test_flush_refresh.sh") CONFIG_FILES="$CONFIG_FILES test/test_flush_refresh.sh" ;; + "test/test_libinfo.sh") CONFIG_FILES="$CONFIG_FILES test/test_libinfo.sh" ;; + "test/test_links_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_links_env.sh" ;; + "test/test_mirror.sh") CONFIG_FILES="$CONFIG_FILES test/test_mirror.sh" ;; + "test/test_plugin.sh") CONFIG_FILES="$CONFIG_FILES test/test_plugin.sh" ;; + "test/test_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_swmr.sh" ;; + "test/test_use_cases.sh") CONFIG_FILES="$CONFIG_FILES test/test_use_cases.sh" ;; + "test/test_vds_env.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_env.sh" ;; + "test/test_vds_swmr.sh") CONFIG_FILES="$CONFIG_FILES test/test_vds_swmr.sh" ;; + "testpar/Makefile") CONFIG_FILES="$CONFIG_FILES testpar/Makefile" ;; + "testpar/testpflush.sh") CONFIG_FILES="$CONFIG_FILES testpar/testpflush.sh" ;; + "utils/Makefile") CONFIG_FILES="$CONFIG_FILES utils/Makefile" ;; + "utils/mirror_vfd/Makefile") CONFIG_FILES="$CONFIG_FILES utils/mirror_vfd/Makefile" ;; + "utils/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/test/Makefile" ;; + "utils/tools/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/Makefile" ;; + "utils/tools/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/h5dwalk/Makefile" ;; + "utils/tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/Makefile" ;; + "utils/tools/test/h5dwalk/Makefile") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/Makefile" ;; + "utils/tools/test/h5dwalk/copy_demo_files.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/copy_demo_files.sh" ;; + "utils/tools/test/h5dwalk/testh5dwalk.sh") CONFIG_FILES="$CONFIG_FILES utils/tools/test/h5dwalk/testh5dwalk.sh" ;; + "tools/Makefile") CONFIG_FILES="$CONFIG_FILES tools/Makefile" ;; + "tools/lib/Makefile") CONFIG_FILES="$CONFIG_FILES tools/lib/Makefile" ;; + "tools/libtest/Makefile") CONFIG_FILES="$CONFIG_FILES tools/libtest/Makefile" ;; + "tools/src/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/Makefile" ;; + "tools/src/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5dump/Makefile" ;; + "tools/src/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5import/Makefile" ;; + "tools/src/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5diff/Makefile" ;; + "tools/src/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5jam/Makefile" ;; + "tools/src/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5repack/Makefile" ;; + "tools/src/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5ls/Makefile" ;; + "tools/src/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5copy/Makefile" ;; + "tools/src/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/misc/Makefile" ;; + "tools/src/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5stat/Makefile" ;; + "tools/test/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/Makefile" ;; + "tools/test/h5dump/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/Makefile" ;; + "tools/test/h5dump/h5dump_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/h5dump_plugin.sh" ;; + "tools/test/h5dump/testh5dump.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dump.sh" ;; + "tools/test/h5dump/testh5dumppbits.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumppbits.sh" ;; + "tools/test/h5dump/testh5dumpvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpvds.sh" ;; + "tools/test/h5dump/testh5dumpxml.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5dump/testh5dumpxml.sh" ;; + "tools/test/h5ls/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/Makefile" ;; + "tools/test/h5ls/h5ls_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/h5ls_plugin.sh" ;; + "tools/test/h5ls/testh5ls.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5ls.sh" ;; + "tools/test/h5ls/testh5lsvds.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5ls/testh5lsvds.sh" ;; + "tools/test/h5import/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/Makefile" ;; + "tools/test/h5import/h5importtestutil.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5import/h5importtestutil.sh" ;; + "tools/test/h5diff/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/Makefile" ;; + "tools/test/h5diff/h5diff_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/h5diff_plugin.sh" ;; + "tools/test/h5diff/testh5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testh5diff.sh" ;; + "tools/test/h5diff/testph5diff.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5diff/testph5diff.sh" ;; + "tools/src/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/Makefile" ;; + "tools/test/h5format_convert/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5format_convert/testh5fc.sh" ;; + "tools/test/h5jam/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/Makefile" ;; + "tools/test/h5jam/testh5jam.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5jam/testh5jam.sh" ;; + "tools/test/h5repack/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/Makefile" ;; + "tools/test/h5repack/h5repack.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack.sh" ;; + "tools/test/h5repack/h5repack_plugin.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5repack/h5repack_plugin.sh" ;; + "tools/test/h5copy/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/Makefile" ;; + "tools/test/h5copy/testh5copy.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5copy/testh5copy.sh" ;; + "tools/test/misc/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/Makefile" ;; + "tools/test/misc/testh5clear.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5clear.sh" ;; + "tools/test/misc/testh5mkgrp.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5mkgrp.sh" ;; + "tools/test/misc/testh5repart.sh") CONFIG_FILES="$CONFIG_FILES tools/test/misc/testh5repart.sh" ;; + "tools/test/misc/vds/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/misc/vds/Makefile" ;; + "tools/test/h5stat/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/Makefile" ;; + "tools/test/h5stat/testh5stat.sh") CONFIG_FILES="$CONFIG_FILES tools/test/h5stat/testh5stat.sh" ;; + "tools/src/h5perf/Makefile") CONFIG_FILES="$CONFIG_FILES tools/src/h5perf/Makefile" ;; + "tools/test/perform/Makefile") CONFIG_FILES="$CONFIG_FILES tools/test/perform/Makefile" ;; + "examples/Makefile") CONFIG_FILES="$CONFIG_FILES examples/Makefile" ;; + "examples/run-c-ex.sh") CONFIG_FILES="$CONFIG_FILES examples/run-c-ex.sh" ;; + "examples/testh5cc.sh") CONFIG_FILES="$CONFIG_FILES examples/testh5cc.sh" ;; + "bin/h5cc") CONFIG_FILES="$CONFIG_FILES bin/h5cc" ;; + "bin/Makefile") CONFIG_FILES="$CONFIG_FILES bin/Makefile" ;; + "c++/Makefile") CONFIG_FILES="$CONFIG_FILES c++/Makefile" ;; + "c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES c++/src/Makefile" ;; + "c++/src/h5c++") CONFIG_FILES="$CONFIG_FILES c++/src/h5c++" ;; + "c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES c++/test/Makefile" ;; + "c++/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES c++/test/H5srcdir_str.h" ;; + "c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES c++/examples/Makefile" ;; + "c++/examples/run-c++-ex.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/run-c++-ex.sh" ;; + "c++/examples/testh5c++.sh") CONFIG_FILES="$CONFIG_FILES c++/examples/testh5c++.sh" ;; + "fortran/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/Makefile" ;; + "fortran/src/h5fc") CONFIG_FILES="$CONFIG_FILES fortran/src/h5fc" ;; + "fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/src/Makefile" ;; + "fortran/src/H5fort_type_defines.h") CONFIG_FILES="$CONFIG_FILES fortran/src/H5fort_type_defines.h" ;; + "fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/test/Makefile" ;; + "fortran/testpar/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/testpar/Makefile" ;; + "fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES fortran/examples/Makefile" ;; + "fortran/examples/run-fortran-ex.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/run-fortran-ex.sh" ;; + "fortran/examples/testh5fc.sh") CONFIG_FILES="$CONFIG_FILES fortran/examples/testh5fc.sh" ;; + "java/Makefile") CONFIG_FILES="$CONFIG_FILES java/Makefile" ;; + "java/src/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/Makefile" ;; + "java/src/jni/Makefile") CONFIG_FILES="$CONFIG_FILES java/src/jni/Makefile" ;; + "java/test/Makefile") CONFIG_FILES="$CONFIG_FILES java/test/Makefile" ;; + "java/test/junit.sh") CONFIG_FILES="$CONFIG_FILES java/test/junit.sh" ;; + "java/examples/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/Makefile" ;; + "java/examples/intro/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/intro/Makefile" ;; + "java/examples/intro/JavaIntroExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/intro/JavaIntroExample.sh" ;; + "java/examples/datasets/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/Makefile" ;; + "java/examples/datasets/JavaDatasetExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datasets/JavaDatasetExample.sh" ;; + "java/examples/datatypes/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/Makefile" ;; + "java/examples/datatypes/JavaDatatypeExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/datatypes/JavaDatatypeExample.sh" ;; + "java/examples/groups/Makefile") CONFIG_FILES="$CONFIG_FILES java/examples/groups/Makefile" ;; + "java/examples/groups/JavaGroupExample.sh") CONFIG_FILES="$CONFIG_FILES java/examples/groups/JavaGroupExample.sh" ;; + "hl/Makefile") CONFIG_FILES="$CONFIG_FILES hl/Makefile" ;; + "hl/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/src/Makefile" ;; + "hl/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/test/Makefile" ;; + "hl/test/H5srcdir_str.h") CONFIG_FILES="$CONFIG_FILES hl/test/H5srcdir_str.h" ;; + "hl/tools/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/Makefile" ;; + "hl/tools/gif2h5/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/Makefile" ;; + "hl/tools/gif2h5/h52giftest.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/gif2h5/h52giftest.sh" ;; + "hl/tools/h5watch/Makefile") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/Makefile" ;; + "hl/tools/h5watch/testh5watch.sh") CONFIG_FILES="$CONFIG_FILES hl/tools/h5watch/testh5watch.sh" ;; + "hl/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/examples/Makefile" ;; + "hl/examples/run-hlc-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/examples/run-hlc-ex.sh" ;; + "hl/c++/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/Makefile" ;; + "hl/c++/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/src/Makefile" ;; + "hl/c++/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/test/Makefile" ;; + "hl/c++/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/Makefile" ;; + "hl/c++/examples/run-hlc++-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/c++/examples/run-hlc++-ex.sh" ;; + "hl/fortran/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/Makefile" ;; + "hl/fortran/src/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/src/Makefile" ;; + "hl/fortran/test/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/test/Makefile" ;; + "hl/fortran/examples/Makefile") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/Makefile" ;; + "hl/fortran/examples/run-hlfortran-ex.sh") CONFIG_FILES="$CONFIG_FILES hl/fortran/examples/run-hlfortran-ex.sh" ;; + "utils/subfiling_vfd/h5fuse.sh") CONFIG_FILES="$CONFIG_FILES utils/subfiling_vfd/h5fuse.sh" ;; + ".classes") CONFIG_COMMANDS="$CONFIG_COMMANDS .classes" ;; + + *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; + esac +done + + +# If the user did not use the arguments to specify the items to instantiate, +# then the envvar interface is used. Set only those that are not. +# We use the long form for the default assignment because of an extremely +# bizarre bug on SunOS 4.1.3. +if $ac_need_defaults; then + test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files + test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers + test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands +fi + +# Have a temporary directory for convenience. Make it in the build tree +# simply because there is no reason against having it here, and in addition, +# creating and moving files from /tmp can sometimes cause problems. +# Hook for its removal unless debugging. +# Note that there is a small window in which the directory will not be cleaned: +# after its creation but before its name has been assigned to `$tmp'. +$debug || +{ + tmp= ac_tmp= + trap 'exit_status=$? + : "${ac_tmp:=$tmp}" + { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status +' 0 + trap 'as_fn_exit 1' 1 2 13 15 +} +# Create a (secure) tmp directory for tmp files. + +{ + tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && + test -d "$tmp" +} || +{ + tmp=./conf$$-$RANDOM + (umask 077 && mkdir "$tmp") +} || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 +ac_tmp=$tmp + +# Set up the scripts for CONFIG_FILES section. +# No need to generate them if there are no CONFIG_FILES. +# This happens for instance with `./config.status config.h'. +if test -n "$CONFIG_FILES"; then + + +ac_cr=`echo X | tr X '\015'` +# On cygwin, bash can eat \r inside `` if the user requested igncr. +# But we know of no other shell where ac_cr would be empty at this +# point, so we can use a bashism as a fallback. +if test "x$ac_cr" = x; then + eval ac_cr=\$\'\\r\' +fi +ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` +if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then + ac_cs_awk_cr='\\r' +else + ac_cs_awk_cr=$ac_cr +fi + +echo 'BEGIN {' >"$ac_tmp/subs1.awk" && +cat >>"$ac_tmp/subs1.awk" <<\_ACAWK && +S["am__EXEEXT_FALSE"]="" +S["am__EXEEXT_TRUE"]="#" +S["LTLIBOBJS"]="" +S["LIBOBJS"]="" +S["HAVE_SHARED_CONDITIONAL_FALSE"]="#" +S["HAVE_SHARED_CONDITIONAL_TRUE"]="" +S["fortran_linux_linker_option"]="-Wl," +S["enable_static"]="yes" +S["enable_shared"]="yes" +S["STATIC_SHARED"]="static, shared" +S["SEARCH"]="$(srcdir) $(top_builddir)/src $(top_srcdir)/src" +S["BUILD_DOXYGEN_CONDITIONAL_FALSE"]="" +S["BUILD_DOXYGEN_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_FALSE"]="" +S["BUILD_TOOLS_HL_GIF_CONDITIONAL_TRUE"]="#" +S["BUILD_TOOLS_CONDITIONAL_FALSE"]="#" +S["BUILD_TOOLS_CONDITIONAL_TRUE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_TESTS_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_TESTS_CONDITIONAL_FALSE"]="#" +S["BUILD_TESTS_CONDITIONAL_TRUE"]="" +S["BUILD_HDF5_HL_CONDITIONAL_FALSE"]="#" +S["BUILD_HDF5_HL_CONDITIONAL_TRUE"]="" +S["BUILD_JAVA_CONDITIONAL_FALSE"]="" +S["BUILD_JAVA_CONDITIONAL_TRUE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_FALSE"]="#" +S["BUILD_FORTRAN_CONDITIONAL_TRUE"]="" +S["BUILD_PARALLEL_CONDITIONAL_FALSE"]="" +S["BUILD_PARALLEL_CONDITIONAL_TRUE"]="#" +S["BUILD_CXX_CONDITIONAL_FALSE"]="#" +S["BUILD_CXX_CONDITIONAL_TRUE"]="" +S["PREADWRITE"]="yes" +S["STRICT_FORMAT_CHECKS"]="no" +S["DEFAULT_API_VERSION"]="v114" +S["DEPRECATED_SYMBOLS"]="yes" +S["BUILD_ALL_CONDITIONAL_FALSE"]="" +S["BUILD_ALL_CONDITIONAL_TRUE"]="#" +S["ROOT"]="/hdf5-1.14.0/build" +S["JAVA_VERSION"]="/usr/local/sbin/ (../configure: line 33019: -version: command not found)" +S["CXX_VERSION"]="/usr/bin/g++" +S["FC_VERSION"]="/usr/bin/gfortran" +S["CC_VERSION"]="/usr/bin/gcc" +S["WORDS_BIGENDIAN"]="yes" +S["BYTESEX"]="big-endian" +S["CONFIG_MODE"]="" +S["CONFIG_USER"]="root@buildkitsandbox" +S["CONFIG_DATE"]="Tue Apr 18 00:53:19 UTC 2023" +S["H5_VERSION"]="1.14.0" +S["examplesdir"]="${prefix}/share/hdf5_examples" +S["HDFS_VFD_CONDITIONAL_FALSE"]="" +S["HDFS_VFD_CONDITIONAL_TRUE"]="#" +S["JNI_LDFLAGS"]="" +S["HAVE_LIBHDFS"]="no" +S["ROS3_VFD_CONDITIONAL_FALSE"]="" +S["ROS3_VFD_CONDITIONAL_TRUE"]="#" +S["ROS3_VFD"]="no" +S["MIRROR_VFD_CONDITIONAL_FALSE"]="" +S["MIRROR_VFD_CONDITIONAL_TRUE"]="#" +S["MIRROR_VFD"]="no" +S["DIRECT_VFD_CONDITIONAL_FALSE"]="" +S["DIRECT_VFD_CONDITIONAL_TRUE"]="#" +S["DIRECT_VFD"]="no" +S["HAVE_MERCURY_CONDITIONAL_FALSE"]="" +S["HAVE_MERCURY_CONDITIONAL_TRUE"]="#" +S["IOC_VFD_CONDITIONAL_FALSE"]="" +S["IOC_VFD_CONDITIONAL_TRUE"]="#" +S["SUBFILING_VFD_CONDITIONAL_FALSE"]="" +S["SUBFILING_VFD_CONDITIONAL_TRUE"]="#" +S["HAVE_MERCURY"]="no" +S["SUBFILING_VFD"]="no" +S["MAP_API"]="no" +S["PARALLEL_TOOLS_CONDITIONAL_FALSE"]="" +S["PARALLEL_TOOLS_CONDITIONAL_TRUE"]="#" +S["H5DWALK_CPPFLAGS"]="" +S["H5DWALK_LIBS"]="" +S["H5DWALK_LDFLAGS"]="" +S["PARALLEL_TOOLS"]="no" +S["LARGE_PARALLEL_IO"]="no" +S["PARALLEL_FILTERED_WRITES"]="no" +S["INSTRUMENT_LIBRARY"]="no" +S["ADD_PARALLEL_FILES"]="no" +S["USINGMEMCHECKER"]="no" +S["TRACE_API"]="no" +S["CODESTACK"]="no" +S["INTERNAL_DEBUG_OUTPUT"]="none" +S["IGNORE_DISABLED_FILE_LOCKS"]="" +S["USE_FILE_LOCKING"]="" +S["DESIRED_FILE_LOCKING"]="best-effort" +S["OPTIMIZATION"]="high" +S["PROFILING"]="no" +S["ASSERTS"]="no" +S["SYMBOLS"]="no" +S["DIAGS"]="no" +S["HAVE_PTHREAD"]="" +S["THREADSAFE"]="no" +S["BUILD_SHARED_SZIP_CONDITIONAL_FALSE"]="" +S["BUILD_SHARED_SZIP_CONDITIONAL_TRUE"]="#" +S["USE_FILTER_SZIP"]="no" +S["LL_PATH"]="" +S["USE_FILTER_DEFLATE"]="no" +S["EXTERNAL_FILTERS"]="" +S["H5_IS_DARWIN"]="no" +S["LT_STATIC_EXEC"]="" +S["USE_PLUGINS_CONDITIONAL_FALSE"]="#" +S["USE_PLUGINS_CONDITIONAL_TRUE"]="" +S["STATIC_EXEC"]="no" +S["LT_SYS_LIBRARY_PATH"]="" +S["OTOOL64"]="" +S["OTOOL"]="" +S["LIPO"]="" +S["NMEDIT"]="" +S["DSYMUTIL"]="" +S["MANIFEST_TOOL"]=":" +S["RANLIB"]="ranlib" +S["ac_ct_AR"]="" +S["DLLTOOL"]="false" +S["OBJDUMP"]="objdump" +S["LN_S"]="ln -s" +S["NM"]="/usr/bin/nm -B" +S["ac_ct_DUMPBIN"]="" +S["DUMPBIN"]="" +S["LD"]="/usr/bin/ld" +S["FGREP"]="/bin/grep -F" +S["SED"]="/bin/sed" +S["LIBTOOL"]="$(SHELL) $(top_builddir)/libtool" +S["DX_RULES"]="" +S["PAPER_SIZE"]="" +S["DOXYGEN_PAPER_SIZE"]="" +S["GENERATE_LATEX"]="" +S["DX_PDFLATEX"]="" +S["DX_FLAG_pdf"]="" +S["DX_EGREP"]="" +S["DX_DVIPS"]="" +S["DX_MAKEINDEX"]="" +S["DX_LATEX"]="" +S["DX_FLAG_ps"]="" +S["DX_FLAG_html"]="" +S["GENERATE_CHI"]="" +S["DX_FLAG_chi"]="" +S["GENERATE_HTMLHELP"]="" +S["GENERATE_HTML"]="" +S["HHC_PATH"]="" +S["DX_HHC"]="" +S["DX_FLAG_chm"]="" +S["GENERATE_XML"]="" +S["DX_FLAG_xml"]="" +S["GENERATE_RTF"]="" +S["DX_FLAG_rtf"]="" +S["GENERATE_MAN"]="" +S["DX_FLAG_man"]="" +S["DOT_PATH"]="" +S["HAVE_DOT"]="" +S["DX_DOT"]="" +S["DX_FLAG_dot"]="" +S["PERL_PATH"]="" +S["DX_PERL"]="" +S["DX_DOXYGEN"]="" +S["DX_FLAG_doc"]="" +S["PROJECT"]="" +S["SRCDIR"]="" +S["DX_ENV"]="" +S["DX_DOCDIR"]="" +S["DX_CONFIG"]="" +S["DX_PROJECT"]="" +S["DOXYGEN_PREDEFINED"]="" +S["DOXYGEN_STRIP_FROM_INC_PATH"]="" +S["DOXYGEN_STRIP_FROM_PATH"]="" +S["DOXYGEN_SEARCHENGINE_URL"]="" +S["DOXYGEN_EXTERNAL_SEARCH"]="" +S["DOXYGEN_SERVER_BASED_SEARCH"]="" +S["DOXYGEN_TAG_FILE"]="" +S["DOXYGEN_HTML_EXTRA_FILES"]="" +S["DOXYGEN_HTML_EXTRA_STYLESHEET"]="" +S["DOXYGEN_HTML_FOOTER"]="" +S["DOXYGEN_HTML_HEADER"]="" +S["DOXYGEN_LAYOUT_FILE"]="" +S["DOXYGEN_EXAMPLES_DIRECTORY"]="" +S["DOXYGEN_OUTPUT_DIRECTORY"]="" +S["DOXYGEN_MACRO_EXPANSION"]="" +S["DOXYGEN_OPTIMIZE_OUTPUT_FOR_C"]="" +S["DOXYGEN_INPUT_DIRECTORY"]="" +S["DOXYGEN_PROJECT_BRIEF"]="" +S["DOXYGEN_PROJECT_LOGO"]="" +S["DOXYGEN_INCLUDE_ALIASES"]="" +S["DOXYGEN_DIR"]="" +S["DOXYGEN_VERSION_STRING"]="" +S["DOXYGEN_PACKAGE"]="" +S["HDF5_DOXYGEN"]="no" +S["HDF5_TOOLS"]="yes" +S["H5_TEST_BUILDDIR"]="test" +S["H5_UTILS_TEST_BUILDDIR"]="utils/test" +S["HDF5_TESTS"]="yes" +S["FORTRAN_SHARED_CONDITIONAL_FALSE"]="#" +S["FORTRAN_SHARED_CONDITIONAL_TRUE"]="" +S["H5_FORTRAN_SHARED"]="yes" +S["JAVA_PATH_NAME"]="" +S["TESTS_JUNIT"]="" +S["JAVA_JUNIT"]="" +S["JUNIT"]="" +S["_ACJNI_JAVAC"]="" +S["JAVADOC"]="" +S["JAR"]="" +S["JAVAC"]="" +S["JAVA"]="" +S["JAVAFLAGS"]="" +S["JAVACFLAGS"]="" +S["JAVAPREFIX"]="" +S["H5_CLASSPATH"]="" +S["HDF_JAVA"]="no" +S["TESTPARALLEL"]="" +S["RUNPARALLEL"]="" +S["RUNSERIAL"]="" +S["PARALLEL"]="no" +S["TIME"]="" +S["TR"]="/usr/bin/tr" +S["AR"]="ar" +S["DIMENSION_SCALES_WITH_NEW_REF"]="no" +S["HL_TOOLS"]="" +S["HL_FOR"]="" +S["HL"]="hl" +S["HDF5_HL_GIF_TOOLS"]="no" +S["HDF5_HL_TOOLS"]="yes" +S["HDF5_HL"]="yes" +S["CXXCPP"]="g++ -E" +S["am__fastdepCXX_FALSE"]="#" +S["am__fastdepCXX_TRUE"]="" +S["CXXDEPMODE"]="depmode=gcc3" +S["ac_ct_CXX"]="" +S["CXXFLAGS"]="" +S["CXX"]="g++" +S["HDF_CXX"]="yes" +S["Fortran_COMPILER_ID"]="none" +S["H5CONFIG_F_IKIND"]="INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +S["H5CONFIG_F_NUM_IKIND"]="INTEGER, PARAMETER :: num_ikinds = 5" +S["H5CONFIG_F_RKIND_SIZEOF"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +S["H5CONFIG_F_RKIND"]="INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +S["H5CONFIG_F_NUM_RKIND"]="INTEGER, PARAMETER :: num_rkinds = 3" +S["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]="1" +S["FORTRAN_HAVE_C_LONG_DOUBLE"]="1" +S["HAVE_Fortran_INTEGER_SIZEOF_16"]="1" +S["PAC_FORTRAN_NATIVE_DOUBLE_SIZEOF"]=" 8" +S["PAC_FORTRAN_NATIVE_DOUBLE_KIND"]=" 8" +S["PAC_FORTRAN_NATIVE_REAL_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_REAL_KIND"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_SIZEOF"]=" 4" +S["PAC_FORTRAN_NATIVE_INTEGER_KIND"]=" 4" +S["PAC_FC_ALL_INTEGER_KINDS_SIZEOF"]="{1,2,4,8,16}" +S["PAC_FC_ALL_REAL_KINDS_SIZEOF"]="{4,8,16}" +S["PAC_FC_ALL_INTEGER_KINDS"]="{1,2,4,8,16}" +S["PAC_FORTRAN_NUM_INTEGER_KINDS"]="5" +S["PAC_FC_MAX_REAL_PRECISION"]="33" +S["PAC_FC_ALL_REAL_KINDS"]="{4,8,16}" +S["FCLIBS"]=" -L/usr/lib/gcc/s390x-linux-gnu/10 -L/usr/lib/gcc/s390x-linux-gnu/10/../../../s390x-linux-gnu -L/usr/lib/gcc/s390x-linux-gnu/10/../../../../lib -L/l"\ +"ib/s390x-linux-gnu -L/lib/../lib -L/usr/lib/s390x-linux-gnu -L/usr/lib/../lib -L/usr/lib/gcc/s390x-linux-gnu/10/../../.. -lgfortran -lm" +S["fmoddir"]="${includedir}" +S["F9XMODEXT"]="mod" +S["F9XMODFLAG"]="-I" +S["FSEARCH_DIRS"]="" +S["F9XSUFFIXFLAG"]="" +S["FCFLAGS_f90"]="" +S["ac_ct_FC"]="" +S["FCFLAGS"]="" +S["OBJECT_NAMELEN_DEFAULT_F"]="" +S["SIZE_T"]="" +S["HID_T"]="" +S["HSSIZE_T"]="" +S["HSIZE_T"]="" +S["HADDR_T"]="" +S["R_INTEGER"]="" +S["R_LARGE"]="" +S["FC"]="gfortran" +S["PAC_C_MAX_REAL_PRECISION"]="36" +S["HDF5_INTERFACES"]=" fortran c++" +S["HDF_FORTRAN"]="yes" +S["EGREP"]="/bin/grep -E" +S["GREP"]="/bin/grep" +S["CPP"]="gcc -E" +S["am__fastdepCC_FALSE"]="#" +S["am__fastdepCC_TRUE"]="" +S["CCDEPMODE"]="depmode=gcc3" +S["am__nodep"]="_no" +S["AMDEPBACKSLASH"]="\\" +S["AMDEP_FALSE"]="#" +S["AMDEP_TRUE"]="" +S["am__quote"]="" +S["am__include"]="include" +S["DEPDIR"]=".deps" +S["OBJEXT"]="o" +S["EXEEXT"]="" +S["ac_ct_CC"]="gcc" +S["LDFLAGS"]="" +S["CFLAGS"]="" +S["CC"]="gcc" +S["BUILD_MODE"]="production" +S["CLANG_SANITIZE_CHECKS"]="none" +S["UNAME_INFO"]="Linux buildkitsandbox 5.15.49-linuxkit #1 SMP Tue Sep 13 07:51:46 UTC 2022 s390x GNU/Linux" +S["AM_LDFLAGS"]="" +S["AM_JAVAFLAGS"]="" +S["AM_JAVACFLAGS"]="" +S["AM_JNIFLAGS"]="" +S["AM_CPPFLAGS"]=" -I/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CXXFLAGS"]="" +S["AM_FCFLAGS"]="" +S["AM_CFLAGS"]="" +S["H5_LDFLAGS"]="" +S["H5_JAVAFLAGS"]="" +S["H5_JAVACFLAGS"]="" +S["H5_JNIFLAGS"]="" +S["H5_CXXFLAGS"]=" -std=c++11 -Wall -Wcast-qual -Wconversion -Wctor-dtor-privacy -Weffc++ -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-includ"\ +"e-dirs -Wnon-virtual-dtor -Wold-style-cast -Woverloaded-virtual -Wreorder -Wshadow -Wsign-promo -Wundef -Wwrite-strings -pedantic -Wlarger-than=2560"\ +" -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitializ"\ +"ed -Wdate-time -Wopenmp-simd -Warray-bounds=2 -Wduplicated-cond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero "\ +"-Wduplicated-branches -Wformat-overflow=2 -Wformat-truncation=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissi"\ +"ng-profile -Wno-deprecated-copy -fstdarg-opt -fdiagnostics-urls=never -fno-diagnostics-color -s -Wcast-align -Wmissing-declarations -Wpacked -Wredu"\ +"ndant-decls -Wswitch -Wunused-but-set-variable -Wunused-function -Wunused-variable -Wunused-parameter -Wshadow -O3" +S["H5_FCFLAGS"]=" -std=f2008 -Waliasing -Wall -Wcharacter-truncation -Wextra -Wimplicit-interface -Wsurprising -Wunderflow -pedantic -Warray-temporaries -Wintrinsic"\ +"s-std -Wimplicit-procedure -Wreal-q-constant -Wfunction-elimination -Wrealloc-lhs -Wrealloc-lhs-all -Wno-c-binding-type -Winteger-division -Wfronten"\ +"d-loop-interchange -fdiagnostics-urls=never -fno-diagnostics-color -s -Wno-unused-dummy-argument -O3" +S["H5_CPPFLAGS"]="-D_GNU_SOURCE -D_POSIX_C_SOURCE=200809L -DNDEBUG -UH5_DEBUG_API" +S["H5_CFLAGS"]=" -std=c99 -Wall -Wcast-qual -Wconversion -Wextra -Wfloat-equal -Wformat=2 -Winit-self -Winvalid-pch -Wmissing-include-dirs -Wshadow -Wundef -Wwrite"\ +"-strings -pedantic -Wno-c++-compat -Wlarger-than=2560 -Wlogical-op -Wframe-larger-than=16384 -Wpacked-bitfield-compat -Wsync-nand -Wno-unsuffixed-fl"\ +"oat-constants -Wdouble-promotion -Wtrampolines -Wstack-usage=8192 -Wmaybe-uninitialized -Wdate-time -Warray-bounds=2 -Wc99-c11-compat -Wduplicated-c"\ +"ond -Whsa -Wnormalized -Wnull-dereference -Wunused-const-variable -Walloca -Walloc-zero -Wduplicated-branches -Wformat-overflow=2 -Wformat-truncatio"\ +"n=1 -Wattribute-alias -Wcast-align=strict -Wshift-overflow=2 -Wattribute-alias=2 -Wmissing-profile -Wc11-c2x-compat -fstdarg-opt -fdiagnostics-urls="\ +"never -fno-diagnostics-color -s -Wbad-function-cast -Wcast-align -Wformat -Wimplicit-function-declaration -Wint-to-pointer-cast -Wmissing-declarati"\ +"ons -Wmissing-prototypes -Wnested-externs -Wold-style-definition -Wpacked -Wpointer-sign -Wpointer-to-int-cast -Wredundant-decls -Wstrict-prototypes"\ +" -Wswitch -Wunused-but-set-variable -Wunused-variable -Wunused-function -Wunused-parameter -Wincompatible-pointer-types -Wint-conversion -Wshadow -W"\ +"restrict -Wcast-function-type -Wmaybe-uninitialized -Wno-aggregate-return -Wno-inline -Wno-missing-format-attribute -Wno-missing-noreturn -Wno-overl"\ +"ength-strings -Wno-jump-misses-init -Wstrict-overflow=2 -Wno-suggest-attribute=const -Wno-suggest-attribute=noreturn -Wno-suggest-attribute=pure -Wn"\ +"o-suggest-attribute=format -Wno-suggest-attribute=cold -Wno-suggest-attribute=malloc -O3" +S["AR_FLAGS"]="cr" +S["JNIFLAGS"]="" +S["CPPFLAGS"]="" +S["host_os"]="linux-gnu" +S["host_vendor"]="ibm" +S["host_cpu"]="s390x" +S["host"]="s390x-ibm-linux-gnu" +S["build_os"]="linux-gnu" +S["build_vendor"]="ibm" +S["build_cpu"]="s390x" +S["build"]="s390x-ibm-linux-gnu" +S["MAINT"]="#" +S["MAINTAINER_MODE_FALSE"]="" +S["MAINTAINER_MODE_TRUE"]="#" +S["AM_BACKSLASH"]="\\" +S["AM_DEFAULT_VERBOSITY"]="0" +S["AM_DEFAULT_V"]="$(AM_DEFAULT_VERBOSITY)" +S["AM_V"]="$(V)" +S["am__untar"]="$${TAR-tar} xf -" +S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" +S["AMTAR"]="$${TAR-tar}" +S["am__leading_dot"]="." +S["SET_MAKE"]="" +S["AWK"]="mawk" +S["mkdir_p"]="$(MKDIR_P)" +S["MKDIR_P"]="/bin/mkdir -p" +S["INSTALL_STRIP_PROGRAM"]="$(install_sh) -c -s" +S["STRIP"]="strip" +S["install_sh"]="${SHELL} /hdf5-1.14.0/bin/install-sh" +S["MAKEINFO"]="${SHELL} /hdf5-1.14.0/bin/missing makeinfo" +S["AUTOHEADER"]="${SHELL} /hdf5-1.14.0/bin/missing autoheader" +S["AUTOMAKE"]="${SHELL} /hdf5-1.14.0/bin/missing automake-1.15" +S["AUTOCONF"]="${SHELL} /hdf5-1.14.0/bin/missing autoconf" +S["ACLOCAL"]="${SHELL} /hdf5-1.14.0/bin/missing aclocal-1.15" +S["VERSION"]="1.14.0" +S["PACKAGE"]="hdf5" +S["CYGPATH_W"]="echo" +S["am__isrc"]=" -I$(srcdir)" +S["INSTALL_DATA"]="${INSTALL} -m 644" +S["INSTALL_SCRIPT"]="${INSTALL}" +S["INSTALL_PROGRAM"]="${INSTALL}" +S["target_alias"]="" +S["host_alias"]="" +S["build_alias"]="" +S["LIBS"]="-ldl -lm " +S["ECHO_T"]="" +S["ECHO_N"]="-n" +S["ECHO_C"]="" +S["DEFS"]="-DHAVE_CONFIG_H" +S["mandir"]="${datarootdir}/man" +S["localedir"]="${datarootdir}/locale" +S["libdir"]="${exec_prefix}/lib" +S["psdir"]="${docdir}" +S["pdfdir"]="${docdir}" +S["dvidir"]="${docdir}" +S["htmldir"]="${docdir}" +S["infodir"]="${datarootdir}/info" +S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}" +S["oldincludedir"]="/usr/include" +S["includedir"]="${prefix}/include" +S["localstatedir"]="${prefix}/var" +S["sharedstatedir"]="${prefix}/com" +S["sysconfdir"]="${prefix}/etc" +S["datadir"]="${datarootdir}" +S["datarootdir"]="${prefix}/share" +S["libexecdir"]="${exec_prefix}/libexec" +S["sbindir"]="${exec_prefix}/sbin" +S["bindir"]="${exec_prefix}/bin" +S["program_transform_name"]="s,x,x," +S["prefix"]="/hdf5-1.14.0/build/hdf5" +S["exec_prefix"]="${prefix}" +S["PACKAGE_URL"]="" +S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" +S["PACKAGE_STRING"]="HDF5 1.14.0" +S["PACKAGE_VERSION"]="1.14.0" +S["PACKAGE_TARNAME"]="hdf5" +S["PACKAGE_NAME"]="HDF5" +S["PATH_SEPARATOR"]=":" +S["SHELL"]="/bin/bash" +_ACAWK +cat >>"$ac_tmp/subs1.awk" <<_ACAWK && + for (key in S) S_is_set[key] = 1 + FS = "" + +} +{ + line = $ 0 + nfields = split(line, field, "@") + substed = 0 + len = length(field[1]) + for (i = 2; i < nfields; i++) { + key = field[i] + keylen = length(key) + if (S_is_set[key]) { + value = S[key] + line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) + len += length(value) + length(field[++i]) + substed = 1 + } else + len += 1 + keylen + } + + print line +} + +_ACAWK +if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then + sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" +else + cat +fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ + || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 +fi # test -n "$CONFIG_FILES" + +# Set up the scripts for CONFIG_HEADERS section. +# No need to generate them if there are no CONFIG_HEADERS. +# This happens for instance with `./config.status Makefile'. +if test -n "$CONFIG_HEADERS"; then +cat >"$ac_tmp/defines.awk" <<\_ACAWK || +BEGIN { +D["PACKAGE_NAME"]=" \"HDF5\"" +D["PACKAGE_TARNAME"]=" \"hdf5\"" +D["PACKAGE_VERSION"]=" \"1.14.0\"" +D["PACKAGE_STRING"]=" \"HDF5 1.14.0\"" +D["PACKAGE_BUGREPORT"]=" \"help@hdfgroup.org\"" +D["PACKAGE_URL"]=" \"\"" +D["PACKAGE"]=" \"hdf5\"" +D["VERSION"]=" \"1.14.0\"" +D["STDC_HEADERS"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_STDLIB_H"]=" 1" +D["HAVE_STRING_H"]=" 1" +D["HAVE_MEMORY_H"]=" 1" +D["HAVE_STRINGS_H"]=" 1" +D["HAVE_INTTYPES_H"]=" 1" +D["HAVE_STDINT_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["WORDS_BIGENDIAN"]=" 1" +D["SIZEOF_CHAR"]=" 1" +D["SIZEOF_SHORT"]=" 2" +D["SIZEOF_INT"]=" 4" +D["SIZEOF_UNSIGNED"]=" 4" +D["SIZEOF_LONG"]=" 8" +D["SIZEOF_LONG_LONG"]=" 8" +D["SIZEOF_FLOAT"]=" 4" +D["SIZEOF_DOUBLE"]=" 8" +D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF___FLOAT128"]=" 0" +D["SIZEOF__QUAD"]=" 0" +D["PAC_C_MAX_REAL_PRECISION"]=" 36" +P["FC_FUNC"]="(name,NAME)" +D["FC_FUNC"]=" name ## _" +P["FC_FUNC_"]="(name,NAME)" +D["FC_FUNC_"]=" name ## _" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["PAC_FC_MAX_REAL_PRECISION"]=" 33" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_NUM_IKIND"]=" INTEGER, PARAMETER :: num_ikinds = 5" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_IKIND"]=" INTEGER, DIMENSION(1:num_ikinds) :: ikind = (/1,2,4,8,16/)" +D["Fortran_COMPILER_ID"]=" none" +D["HAVE_Fortran_INTEGER_SIZEOF_16"]=" 1" +D["FORTRAN_HAVE_STORAGE_SIZE"]=" 1" +D["FORTRAN_HAVE_C_SIZEOF"]=" 1" +D["FORTRAN_HAVE_SIZEOF"]=" 1" +D["FORTRAN_HAVE_C_LONG_DOUBLE"]=" 1" +D["FORTRAN_C_LONG_DOUBLE_IS_UNIQUE"]=" 1" +D["FORTRAN_SIZEOF_LONG_DOUBLE"]=" \"16\"" +D["H5CONFIG_F_NUM_RKIND"]=" INTEGER, PARAMETER :: num_rkinds = 3" +D["H5CONFIG_F_RKIND"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind = (/4,8,16/)" +D["H5CONFIG_F_RKIND_SIZEOF"]=" INTEGER, DIMENSION(1:num_rkinds) :: rkind_sizeof = (/4,8,16/)" +D["INCLUDE_HL"]=" 1" +D["TEST_EXPRESS_LEVEL_DEFAULT"]=" 3" +D["HAVE_DLFCN_H"]=" 1" +D["LT_OBJDIR"]=" \".libs/\"" +D["HAVE_LIBM"]=" 1" +D["HAVE_LIBDL"]=" 1" +D["HAVE_DIRENT_H"]=" 1" +D["HAVE_FEATURES_H"]=" 1" +D["HAVE_PWD_H"]=" 1" +D["HAVE_UNISTD_H"]=" 1" +D["HAVE_SYS_FILE_H"]=" 1" +D["HAVE_SYS_IOCTL_H"]=" 1" +D["HAVE_SYS_RESOURCE_H"]=" 1" +D["HAVE_SYS_STAT_H"]=" 1" +D["HAVE_SYS_TIME_H"]=" 1" +D["HAVE_SYS_TYPES_H"]=" 1" +D["HAVE_ARPA_INET_H"]=" 1" +D["HAVE_NETDB_H"]=" 1" +D["HAVE_NETINET_IN_H"]=" 1" +D["HAVE_SYS_SOCKET_H"]=" 1" +D["SIZEOF_INT8_T"]=" 1" +D["SIZEOF_UINT8_T"]=" 1" +D["SIZEOF_INT_LEAST8_T"]=" 1" +D["SIZEOF_UINT_LEAST8_T"]=" 1" +D["SIZEOF_INT_FAST8_T"]=" 1" +D["SIZEOF_UINT_FAST8_T"]=" 1" +D["SIZEOF_INT16_T"]=" 2" +D["SIZEOF_UINT16_T"]=" 2" +D["SIZEOF_INT_LEAST16_T"]=" 2" +D["SIZEOF_UINT_LEAST16_T"]=" 2" +D["SIZEOF_INT_FAST16_T"]=" 8" +D["SIZEOF_UINT_FAST16_T"]=" 8" +D["SIZEOF_INT32_T"]=" 4" +D["SIZEOF_UINT32_T"]=" 4" +D["SIZEOF_INT_LEAST32_T"]=" 4" +D["SIZEOF_UINT_LEAST32_T"]=" 4" +D["SIZEOF_INT_FAST32_T"]=" 8" +D["SIZEOF_UINT_FAST32_T"]=" 8" +D["SIZEOF_INT64_T"]=" 8" +D["SIZEOF_UINT64_T"]=" 8" +D["SIZEOF_INT_LEAST64_T"]=" 8" +D["SIZEOF_UINT_LEAST64_T"]=" 8" +D["SIZEOF_INT_FAST64_T"]=" 8" +D["SIZEOF_UINT_FAST64_T"]=" 8" +D["SIZEOF_BOOL"]=" 1" +D["SIZEOF_OFF_T"]=" 8" +D["SIZEOF_PTRDIFF_T"]=" 8" +D["SIZEOF_SIZE_T"]=" 8" +D["SIZEOF_SSIZE_T"]=" 8" +D["SIZEOF_TIME_T"]=" 8" +D["DEV_T_IS_SCALAR"]=" 1" +D["HAVE_TM_GMTOFF"]=" 1" +D["HAVE_TIMEZONE"]=" 1" +D["HAVE_STAT_ST_BLOCKS"]=" 1" +D["HAVE_GETPWUID"]=" 1" +D["HAVE_IOCTL"]=" 1" +D["HAVE_TIOCGWINSZ"]=" 1" +D["HAVE_TIOCGETD"]=" 1" +D["HAVE_ALARM"]=" 1" +D["HAVE_ASPRINTF"]=" 1" +D["HAVE_CLOCK_GETTIME"]=" 1" +D["HAVE_FCNTL"]=" 1" +D["HAVE_FLOCK"]=" 1" +D["HAVE_FORK"]=" 1" +D["HAVE_GETHOSTNAME"]=" 1" +D["HAVE_GETRUSAGE"]=" 1" +D["HAVE_GETTIMEOFDAY"]=" 1" +D["HAVE_LSTAT"]=" 1" +D["HAVE_RAND_R"]=" 1" +D["HAVE_RANDOM"]=" 1" +D["HAVE_SIGLONGJMP"]=" 1" +D["HAVE_SIGPROCMASK"]=" 1" +D["HAVE_SRANDOM"]=" 1" +D["HAVE_STRCASESTR"]=" 1" +D["HAVE_STRDUP"]=" 1" +D["HAVE_SYMLINK"]=" 1" +D["HAVE_TMPFILE"]=" 1" +D["HAVE_VASPRINTF"]=" 1" +D["HAVE_WAITPID"]=" 1" +D["HAVE_ATTRIBUTE"]=" 1" +D["USE_FILE_LOCKING"]=" 1" +D["IGNORE_DISABLED_FILE_LOCKS"]=" 1" +D["EXAMPLESDIR"]=" \"${prefix}/share/hdf5_examples\"" +D["DEFAULT_PLUGINDIR"]=" \"/usr/local/hdf5/lib/plugin\"" +D["WANT_DCONV_EXCEPTION"]=" 1" +D["WANT_DATA_ACCURACY"]=" 1" +D["LDOUBLE_TO_LLONG_ACCURATE"]=" 1" +D["LLONG_TO_LDOUBLE_CORRECT"]=" 1" +D["USE_114_API_DEFAULT"]=" 1" +D["HAVE_PREADWRITE"]=" 1" +D["HAVE_EMBEDDED_LIBINFO"]=" 1" + for (key in D) D_is_set[key] = 1 + FS = "" +} +/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ { + line = $ 0 + split(line, arg, " ") + if (arg[1] == "#") { + defundef = arg[2] + mac1 = arg[3] + } else { + defundef = substr(arg[1], 2) + mac1 = arg[2] + } + split(mac1, mac2, "(") #) + macro = mac2[1] + prefix = substr(line, 1, index(line, defundef) - 1) + if (D_is_set[macro]) { + # Preserve the white space surrounding the "#". + print prefix "define", macro P[macro] D[macro] + next + } else { + # Replace #undef with comments. This is necessary, for example, + # in the case of _POSIX_SOURCE, which is predefined and required + # on some systems where configure will not decide to define it. + if (defundef == "undef") { + print "/*", prefix defundef, macro, "*/" + next + } + } +} +{ print } +_ACAWK + as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 +fi # test -n "$CONFIG_HEADERS" + + +eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" +shift +for ac_tag +do + case $ac_tag in + :[FHLC]) ac_mode=$ac_tag; continue;; + esac + case $ac_mode$ac_tag in + :[FHL]*:*);; + :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; + :[FH]-) ac_tag=-:-;; + :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; + esac + ac_save_IFS=$IFS + IFS=: + set x $ac_tag + IFS=$ac_save_IFS + shift + ac_file=$1 + shift + + case $ac_mode in + :L) ac_source=$1;; + :[FH]) + ac_file_inputs= + for ac_f + do + case $ac_f in + -) ac_f="$ac_tmp/stdin";; + *) # Look for the file first in the build tree, then in the source tree + # (if the path is not absolute). The absolute path cannot be DOS-style, + # because $ac_f cannot contain `:'. + test -f "$ac_f" || + case $ac_f in + [\\/$]*) false;; + *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; + esac || + as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; + esac + case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac + as_fn_append ac_file_inputs " '$ac_f'" + done + + # Let's still pretend it is `configure' which instantiates (i.e., don't + # use $as_me), people would be surprised to read: + # /* config.h. Generated by config.status. */ + configure_input='Generated from '` + $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' + `' by configure.' + if test x"$ac_file" != x-; then + configure_input="$ac_file. $configure_input" + { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 +$as_echo "$as_me: creating $ac_file" >&6;} + fi + # Neutralize special characters interpreted by sed in replacement strings. + case $configure_input in #( + *\&* | *\|* | *\\* ) + ac_sed_conf_input=`$as_echo "$configure_input" | + sed 's/[\\\\&|]/\\\\&/g'`;; #( + *) ac_sed_conf_input=$configure_input;; + esac + + case $ac_tag in + *:-:* | *:-) cat >"$ac_tmp/stdin" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; + esac + ;; + esac + + ac_dir=`$as_dirname -- "$ac_file" || +$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$ac_file" : 'X\(//\)[^/]' \| \ + X"$ac_file" : 'X\(//\)$' \| \ + X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$ac_file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir="$ac_dir"; as_fn_mkdir_p + ac_builddir=. + +case "$ac_dir" in +.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; +*) + ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` + # A ".." for each directory in $ac_dir_suffix. + ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` + case $ac_top_builddir_sub in + "") ac_top_builddir_sub=. ac_top_build_prefix= ;; + *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; + esac ;; +esac +ac_abs_top_builddir=$ac_pwd +ac_abs_builddir=$ac_pwd$ac_dir_suffix +# for backward compatibility: +ac_top_builddir=$ac_top_build_prefix + +case $srcdir in + .) # We are building in place. + ac_srcdir=. + ac_top_srcdir=$ac_top_builddir_sub + ac_abs_top_srcdir=$ac_pwd ;; + [\\/]* | ?:[\\/]* ) # Absolute name. + ac_srcdir=$srcdir$ac_dir_suffix; + ac_top_srcdir=$srcdir + ac_abs_top_srcdir=$srcdir ;; + *) # Relative name. + ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix + ac_top_srcdir=$ac_top_build_prefix$srcdir + ac_abs_top_srcdir=$ac_pwd/$srcdir ;; +esac +ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix + + + case $ac_mode in + :F) + # + # CONFIG_FILE + # + + case $INSTALL in + [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; + *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; + esac + ac_MKDIR_P=$MKDIR_P + case $MKDIR_P in + [\\/$]* | ?:[\\/]* ) ;; + */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; + esac +# If the template does not know about datarootdir, expand it. +# FIXME: This hack should be removed a few years after 2.60. +ac_datarootdir_hack=; ac_datarootdir_seen= +ac_sed_dataroot=' +/datarootdir/ { + p + q +} +/@datadir@/p +/@docdir@/p +/@infodir@/p +/@localedir@/p +/@mandir@/p' +case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in +*datarootdir*) ac_datarootdir_seen=yes;; +*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 +$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} + ac_datarootdir_hack=' + s&@datadir@&${datarootdir}&g + s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g + s&@infodir@&${datarootdir}/info&g + s&@localedir@&${datarootdir}/locale&g + s&@mandir@&${datarootdir}/man&g + s&\${datarootdir}&${prefix}/share&g' ;; +esac +ac_sed_extra=" + +:t +/@[a-zA-Z_][a-zA-Z_0-9]*@/!b +s|@configure_input@|$ac_sed_conf_input|;t t +s&@top_builddir@&$ac_top_builddir_sub&;t t +s&@top_build_prefix@&$ac_top_build_prefix&;t t +s&@srcdir@&$ac_srcdir&;t t +s&@abs_srcdir@&$ac_abs_srcdir&;t t +s&@top_srcdir@&$ac_top_srcdir&;t t +s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t +s&@builddir@&$ac_builddir&;t t +s&@abs_builddir@&$ac_abs_builddir&;t t +s&@abs_top_builddir@&$ac_abs_top_builddir&;t t +s&@INSTALL@&$ac_INSTALL&;t t +s&@MKDIR_P@&$ac_MKDIR_P&;t t +$ac_datarootdir_hack +" +eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ + >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + +test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && + { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && + { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ + "$ac_tmp/out"`; test -z "$ac_out"; } && + { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&5 +$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' +which seems to be undefined. Please make sure it is defined" >&2;} + + rm -f "$ac_tmp/stdin" + case $ac_file in + -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; + *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; + esac \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + ;; + :H) + # + # CONFIG_HEADER + # + if test x"$ac_file" != x-; then + { + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" + } >"$ac_tmp/config.h" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then + { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 +$as_echo "$as_me: $ac_file is unchanged" >&6;} + else + rm -f "$ac_file" + mv "$ac_tmp/config.h" "$ac_file" \ + || as_fn_error $? "could not create $ac_file" "$LINENO" 5 + fi + else + $as_echo "/* $configure_input */" \ + && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ + || as_fn_error $? "could not create -" "$LINENO" 5 + fi +# Compute "$ac_file"'s index in $config_headers. +_am_arg="$ac_file" +_am_stamp_count=1 +for _am_header in $config_headers :; do + case $_am_header in + $_am_arg | $_am_arg:* ) + break ;; + * ) + _am_stamp_count=`expr $_am_stamp_count + 1` ;; + esac +done +echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || +$as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$_am_arg" : 'X\(//\)[^/]' \| \ + X"$_am_arg" : 'X\(//\)$' \| \ + X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$_am_arg" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'`/stamp-h$_am_stamp_count + ;; + + :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 +$as_echo "$as_me: executing $ac_file commands" >&6;} + ;; + esac + + + case $ac_file$ac_mode in + "pubconf":C) + echo "creating src/H5pubconf.h" + sed 's/#define /#define H5_/' pubconf + if test ! -f src/H5pubconf.h; then + mv -f pubconf src/H5pubconf.h + elif (diff pubconf src/H5pubconf.h >/dev/null); then + rm -f pubconf + echo "src/H5pubconf.h is unchanged" + else + mv -f pubconf src/H5pubconf.h + fi + echo "Post process src/libhdf5.settings" + sed '/^#/d' < src/libhdf5.settings > libhdf5.settings.TMP + cp libhdf5.settings.TMP src/libhdf5.settings + rm -f libhdf5.settings.TMP + ;; + "depfiles":C) test x"$AMDEP_TRUE" != x"" || { + # Older Autoconf quotes --file arguments for eval, but not when files + # are listed without --file. Let's play safe and only enable the eval + # if we detect the quoting. + case $CONFIG_FILES in + *\'*) eval set x "$CONFIG_FILES" ;; + *) set x $CONFIG_FILES ;; + esac + shift + for mf + do + # Strip MF so we end up with the name of the file. + mf=`echo "$mf" | sed -e 's/:.*$//'` + # Check whether this is an Automake generated Makefile or not. + # We used to match only the files named 'Makefile.in', but + # some people rename them; so instead we look at the file content. + # Grep'ing the first line is not enough: some people post-process + # each Makefile.in and add a new line on top of each file to say so. + # Grep'ing the whole file is not good either: AIX grep has a line + # limit of 2048, but all sed's we know have understand at least 4000. + if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then + dirpart=`$as_dirname -- "$mf" || +$as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$mf" : 'X\(//\)[^/]' \| \ + X"$mf" : 'X\(//\)$' \| \ + X"$mf" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$mf" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + else + continue + fi + # Extract the definition of DEPDIR, am__include, and am__quote + # from the Makefile without running 'make'. + DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` + test -z "$DEPDIR" && continue + am__include=`sed -n 's/^am__include = //p' < "$mf"` + test -z "$am__include" && continue + am__quote=`sed -n 's/^am__quote = //p' < "$mf"` + # Find all dependency output files, they are included files with + # $(DEPDIR) in their names. We invoke sed twice because it is the + # simplest approach to changing $(DEPDIR) to its actual value in the + # expansion. + for file in `sed -n " + s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ + sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g'`; do + # Make sure the directory exists. + test -f "$dirpart/$file" && continue + fdir=`$as_dirname -- "$file" || +$as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ + X"$file" : 'X\(//\)[^/]' \| \ + X"$file" : 'X\(//\)$' \| \ + X"$file" : 'X\(/\)' \| . 2>/dev/null || +$as_echo X"$file" | + sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ + s//\1/ + q + } + /^X\(\/\/\)[^/].*/{ + s//\1/ + q + } + /^X\(\/\/\)$/{ + s//\1/ + q + } + /^X\(\/\).*/{ + s//\1/ + q + } + s/.*/./; q'` + as_dir=$dirpart/$fdir; as_fn_mkdir_p + # echo "creating $dirpart/$file" + echo '# dummy' > "$dirpart/$file" + done + done +} + ;; + "fortran/src/H5config_f.inc":H) cat fortran/src/H5config_f.inc | sed '1d;s%^/\* \(.*\) \*/%\1%;s/#define /#define H5_/;s/#undef /#undef H5_/' >fortran/src/H5config_f.inc.tmp; mv -f fortran/src/H5config_f.inc.tmp fortran/src/H5config_f.inc ;; + "libtool":C) + + # See if we are running on zsh, and set the options that allow our + # commands through without removal of \ escapes. + if test -n "${ZSH_VERSION+set}"; then + setopt NO_GLOB_SUBST + fi + + cfgfile=${ofile}T + trap "$RM \"$cfgfile\"; exit 1" 1 2 15 + $RM "$cfgfile" + + cat <<_LT_EOF >> "$cfgfile" +#! $SHELL +# Generated automatically by $as_me ($PACKAGE) $VERSION +# Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: +# NOTE: Changes made to this file will be lost: look at ltmain.sh. + +# Provide generalized library-building support services. +# Written by Gordon Matzigkeit, 1996 + +# Copyright (C) 2014 Free Software Foundation, Inc. +# This is free software; see the source for copying conditions. There is NO +# warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +# GNU Libtool is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of of the License, or +# (at your option) any later version. +# +# As a special exception to the GNU General Public License, if you +# distribute this file as part of a program or library that is built +# using GNU Libtool, you may include this file under the same +# distribution terms that you use for the rest of that program. +# +# GNU Libtool is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + + +# The names of the tagged configurations supported by this script. +available_tags='CXX FC ' + +# Configured defaults for sys_lib_dlsearch_path munging. +: \${LT_SYS_LIBRARY_PATH="$configure_time_lt_sys_library_path"} + +# ### BEGIN LIBTOOL CONFIG + +# Which release of libtool.m4 was used? +macro_version=$macro_version +macro_revision=$macro_revision + +# Whether or not to build shared libraries. +build_libtool_libs=$enable_shared + +# Whether or not to build static libraries. +build_old_libs=$enable_static + +# What type of objects to build. +pic_mode=$pic_mode + +# Whether or not to optimize for fast installation. +fast_install=$enable_fast_install + +# Shared archive member basename,for filename based shared library versioning on AIX. +shared_archive_member_spec=$shared_archive_member_spec + +# Shell to use when invoking shell scripts. +SHELL=$lt_SHELL + +# An echo program that protects backslashes. +ECHO=$lt_ECHO + +# The PATH separator for the build system. +PATH_SEPARATOR=$lt_PATH_SEPARATOR + +# The host system. +host_alias=$host_alias +host=$host +host_os=$host_os + +# The build system. +build_alias=$build_alias +build=$build +build_os=$build_os + +# A sed program that does not truncate output. +SED=$lt_SED + +# Sed that helps us avoid accidentally triggering echo(1) options like -n. +Xsed="\$SED -e 1s/^X//" + +# A grep program that handles long lines. +GREP=$lt_GREP + +# An ERE matcher. +EGREP=$lt_EGREP + +# A literal string matcher. +FGREP=$lt_FGREP + +# A BSD- or MS-compatible name lister. +NM=$lt_NM + +# Whether we need soft or hard links. +LN_S=$lt_LN_S + +# What is the maximum length of a command? +max_cmd_len=$max_cmd_len + +# Object file suffix (normally "o"). +objext=$ac_objext + +# Executable file suffix (normally ""). +exeext=$exeext + +# whether the shell understands "unset". +lt_unset=$lt_unset + +# turn spaces into newlines. +SP2NL=$lt_lt_SP2NL + +# turn newlines into spaces. +NL2SP=$lt_lt_NL2SP + +# convert \$build file names to \$host format. +to_host_file_cmd=$lt_cv_to_host_file_cmd + +# convert \$build files to toolchain format. +to_tool_file_cmd=$lt_cv_to_tool_file_cmd + +# An object symbol dumper. +OBJDUMP=$lt_OBJDUMP + +# Method to check whether dependent libraries are shared objects. +deplibs_check_method=$lt_deplibs_check_method + +# Command to use when deplibs_check_method = "file_magic". +file_magic_cmd=$lt_file_magic_cmd + +# How to find potential files when deplibs_check_method = "file_magic". +file_magic_glob=$lt_file_magic_glob + +# Find potential files using nocaseglob when deplibs_check_method = "file_magic". +want_nocaseglob=$lt_want_nocaseglob + +# DLL creation program. +DLLTOOL=$lt_DLLTOOL + +# Command to associate shared and link libraries. +sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd + +# The archiver. +AR=$lt_AR + +# Flags to create an archive. +AR_FLAGS=$lt_AR_FLAGS + +# How to feed a file listing to the archiver. +archiver_list_spec=$lt_archiver_list_spec + +# A symbol stripping program. +STRIP=$lt_STRIP + +# Commands used to install an old-style archive. +RANLIB=$lt_RANLIB +old_postinstall_cmds=$lt_old_postinstall_cmds +old_postuninstall_cmds=$lt_old_postuninstall_cmds + +# Whether to use a lock for old archive extraction. +lock_old_archive_extraction=$lock_old_archive_extraction + +# A C compiler. +LTCC=$lt_CC + +# LTCC compiler flags. +LTCFLAGS=$lt_CFLAGS + +# Take the output of nm and produce a listing of raw symbols and C names. +global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe + +# Transform the output of nm in a proper C declaration. +global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl + +# Transform the output of nm into a list of symbols to manually relocate. +global_symbol_to_import=$lt_lt_cv_sys_global_symbol_to_import + +# Transform the output of nm in a C name address pair. +global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address + +# Transform the output of nm in a C name address pair when lib prefix is needed. +global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix + +# The name lister interface. +nm_interface=$lt_lt_cv_nm_interface + +# Specify filename containing input files for \$NM. +nm_file_list_spec=$lt_nm_file_list_spec + +# The root where to search for dependent libraries,and where our libraries should be installed. +lt_sysroot=$lt_sysroot + +# Command to truncate a binary pipe. +lt_truncate_bin=$lt_lt_cv_truncate_bin + +# The name of the directory that contains temporary libtool files. +objdir=$objdir + +# Used to examine libraries when file_magic_cmd begins with "file". +MAGIC_CMD=$MAGIC_CMD + +# Must we lock files when doing compilation? +need_locks=$lt_need_locks + +# Manifest tool. +MANIFEST_TOOL=$lt_MANIFEST_TOOL + +# Tool to manipulate archived DWARF debug symbol files on Mac OS X. +DSYMUTIL=$lt_DSYMUTIL + +# Tool to change global to local symbols on Mac OS X. +NMEDIT=$lt_NMEDIT + +# Tool to manipulate fat objects and archives on Mac OS X. +LIPO=$lt_LIPO + +# ldd/readelf like tool for Mach-O binaries on Mac OS X. +OTOOL=$lt_OTOOL + +# ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. +OTOOL64=$lt_OTOOL64 + +# Old archive suffix (normally "a"). +libext=$libext + +# Shared library suffix (normally ".so"). +shrext_cmds=$lt_shrext_cmds + +# The commands to extract the exported symbol list from a shared archive. +extract_expsyms_cmds=$lt_extract_expsyms_cmds + +# Variables whose values should be saved in libtool wrapper scripts and +# restored at link time. +variables_saved_for_relink=$lt_variables_saved_for_relink + +# Do we need the "lib" prefix for modules? +need_lib_prefix=$need_lib_prefix + +# Do we need a version for libraries? +need_version=$need_version + +# Library versioning type. +version_type=$version_type + +# Shared library runtime path variable. +runpath_var=$runpath_var + +# Shared library path variable. +shlibpath_var=$shlibpath_var + +# Is shlibpath searched before the hard-coded library search path? +shlibpath_overrides_runpath=$shlibpath_overrides_runpath + +# Format of library name prefix. +libname_spec=$lt_libname_spec + +# List of archive names. First name is the real one, the rest are links. +# The last name is the one that the linker finds with -lNAME +library_names_spec=$lt_library_names_spec + +# The coded name of the library, if different from the real name. +soname_spec=$lt_soname_spec + +# Permission mode override for installation of shared libraries. +install_override_mode=$lt_install_override_mode + +# Command to use after installation of a shared archive. +postinstall_cmds=$lt_postinstall_cmds + +# Command to use after uninstallation of a shared archive. +postuninstall_cmds=$lt_postuninstall_cmds + +# Commands used to finish a libtool library installation in a directory. +finish_cmds=$lt_finish_cmds + +# As "finish_cmds", except a single script fragment to be evaled but +# not shown. +finish_eval=$lt_finish_eval + +# Whether we should hardcode library paths into libraries. +hardcode_into_libs=$hardcode_into_libs + +# Compile-time system search path for libraries. +sys_lib_search_path_spec=$lt_sys_lib_search_path_spec + +# Detected run-time system search path for libraries. +sys_lib_dlsearch_path_spec=$lt_configure_time_dlsearch_path + +# Explicit LT_SYS_LIBRARY_PATH set during ./configure time. +configure_time_lt_sys_library_path=$lt_configure_time_lt_sys_library_path + +# Whether dlopen is supported. +dlopen_support=$enable_dlopen + +# Whether dlopen of programs is supported. +dlopen_self=$enable_dlopen_self + +# Whether dlopen of statically linked programs is supported. +dlopen_self_static=$enable_dlopen_self_static + +# Commands to strip libraries. +old_striplib=$lt_old_striplib +striplib=$lt_striplib + + +# The linker used to build libraries. +LD=$lt_LD + +# How to create reloadable object files. +reload_flag=$lt_reload_flag +reload_cmds=$lt_reload_cmds + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds + +# A language specific compiler. +CC=$lt_compiler + +# Is the compiler the GNU compiler? +with_gcc=$GCC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds +archive_expsym_cmds=$lt_archive_expsym_cmds + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds +module_expsym_cmds=$lt_module_expsym_cmds + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects +postdep_objects=$lt_postdep_objects +predeps=$lt_predeps +postdeps=$lt_postdeps + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path + +# ### END LIBTOOL CONFIG + +_LT_EOF + + cat <<'_LT_EOF' >> "$cfgfile" + +# ### BEGIN FUNCTIONS SHARED WITH CONFIGURE + +# func_munge_path_list VARIABLE PATH +# ----------------------------------- +# VARIABLE is name of variable containing _space_ separated list of +# directories to be munged by the contents of PATH, which is string +# having a format: +# "DIR[:DIR]:" +# string "DIR[ DIR]" will be prepended to VARIABLE +# ":DIR[:DIR]" +# string "DIR[ DIR]" will be appended to VARIABLE +# "DIRP[:DIRP]::[DIRA:]DIRA" +# string "DIRP[ DIRP]" will be prepended to VARIABLE and string +# "DIRA[ DIRA]" will be appended to VARIABLE +# "DIR[:DIR]" +# VARIABLE will be replaced by "DIR[ DIR]" +func_munge_path_list () +{ + case x$2 in + x) + ;; + *:) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'` \$$1\" + ;; + x:*) + eval $1=\"\$$1 `$ECHO $2 | $SED 's/:/ /g'`\" + ;; + *::*) + eval $1=\"\$$1\ `$ECHO $2 | $SED -e 's/.*:://' -e 's/:/ /g'`\" + eval $1=\"`$ECHO $2 | $SED -e 's/::.*//' -e 's/:/ /g'`\ \$$1\" + ;; + *) + eval $1=\"`$ECHO $2 | $SED 's/:/ /g'`\" + ;; + esac +} + + +# Calculate cc_basename. Skip known compiler wrappers and cross-prefix. +func_cc_basename () +{ + for cc_temp in $*""; do + case $cc_temp in + compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; + distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; + \-*) ;; + *) break;; + esac + done + func_cc_basename_result=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` +} + + +# ### END FUNCTIONS SHARED WITH CONFIGURE + +_LT_EOF + + case $host_os in + aix3*) + cat <<\_LT_EOF >> "$cfgfile" +# AIX sometimes has problems with the GCC collect2 program. For some +# reason, if we set the COLLECT_NAMES environment variable, the problems +# vanish in a puff of smoke. +if test set != "${COLLECT_NAMES+set}"; then + COLLECT_NAMES= + export COLLECT_NAMES +fi +_LT_EOF + ;; + esac + + +ltmain=$ac_aux_dir/ltmain.sh + + + # We use sed instead of cat because bash on DJGPP gets confused if + # if finds mixed CR/LF and LF-only lines. Since sed operates in + # text mode, it properly converts lines to CR/LF. This bash problem + # is reportedly fixed, but why not run on old versions too? + sed '$q' "$ltmain" >> "$cfgfile" \ + || (rm -f "$cfgfile"; exit 1) + + mv -f "$cfgfile" "$ofile" || + (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") + chmod +x "$ofile" + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: CXX + +# The linker used to build libraries. +LD=$lt_LD_CXX + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_CXX +reload_cmds=$lt_reload_cmds_CXX + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_CXX + +# A language specific compiler. +CC=$lt_compiler_CXX + +# Is the compiler the GNU compiler? +with_gcc=$GCC_CXX + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_CXX + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_CXX + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_CXX + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_CXX + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_CXX + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_CXX + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_CXX + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_CXX + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_CXX + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_CXX + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_CXX + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_CXX + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_CXX +archive_expsym_cmds=$lt_archive_expsym_cmds_CXX + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_CXX +module_expsym_cmds=$lt_module_expsym_cmds_CXX + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_CXX + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_CXX + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_CXX + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_CXX + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_CXX + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_CXX + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_CXX + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_CXX + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_CXX + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_CXX + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_CXX + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_CXX + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_CXX + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_CXX + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_CXX + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_CXX + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_CXX + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_CXX + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_CXX + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_CXX + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_CXX +postdep_objects=$lt_postdep_objects_CXX +predeps=$lt_predeps_CXX +postdeps=$lt_postdeps_CXX + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_CXX + +# ### END LIBTOOL TAG CONFIG: CXX +_LT_EOF + + + cat <<_LT_EOF >> "$ofile" + +# ### BEGIN LIBTOOL TAG CONFIG: FC + +# The linker used to build libraries. +LD=$lt_LD_FC + +# How to create reloadable object files. +reload_flag=$lt_reload_flag_FC +reload_cmds=$lt_reload_cmds_FC + +# Commands used to build an old-style archive. +old_archive_cmds=$lt_old_archive_cmds_FC + +# A language specific compiler. +CC=$lt_compiler_FC + +# Is the compiler the GNU compiler? +with_gcc=$GCC_FC + +# Compiler flag to turn off builtin functions. +no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag_FC + +# Additional compiler flags for building library objects. +pic_flag=$lt_lt_prog_compiler_pic_FC + +# How to pass a linker flag through the compiler. +wl=$lt_lt_prog_compiler_wl_FC + +# Compiler flag to prevent dynamic linking. +link_static_flag=$lt_lt_prog_compiler_static_FC + +# Does compiler simultaneously support -c and -o options? +compiler_c_o=$lt_lt_cv_prog_compiler_c_o_FC + +# Whether or not to add -lc for building shared libraries. +build_libtool_need_lc=$archive_cmds_need_lc_FC + +# Whether or not to disallow shared libs when runtime libs are static. +allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes_FC + +# Compiler flag to allow reflexive dlopens. +export_dynamic_flag_spec=$lt_export_dynamic_flag_spec_FC + +# Compiler flag to generate shared objects directly from archives. +whole_archive_flag_spec=$lt_whole_archive_flag_spec_FC + +# Whether the compiler copes with passing no objects directly. +compiler_needs_object=$lt_compiler_needs_object_FC + +# Create an old-style archive from a shared archive. +old_archive_from_new_cmds=$lt_old_archive_from_new_cmds_FC + +# Create a temporary old-style archive to link instead of a shared archive. +old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds_FC + +# Commands used to build a shared archive. +archive_cmds=$lt_archive_cmds_FC +archive_expsym_cmds=$lt_archive_expsym_cmds_FC + +# Commands used to build a loadable module if different from building +# a shared archive. +module_cmds=$lt_module_cmds_FC +module_expsym_cmds=$lt_module_expsym_cmds_FC + +# Whether we are building with GNU ld or not. +with_gnu_ld=$lt_with_gnu_ld_FC + +# Flag that allows shared libraries with undefined symbols to be built. +allow_undefined_flag=$lt_allow_undefined_flag_FC + +# Flag that enforces no undefined symbols. +no_undefined_flag=$lt_no_undefined_flag_FC + +# Flag to hardcode \$libdir into a binary during linking. +# This must work even if \$libdir does not exist +hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec_FC + +# Whether we need a single "-rpath" flag with a separated argument. +hardcode_libdir_separator=$lt_hardcode_libdir_separator_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary. +hardcode_direct=$hardcode_direct_FC + +# Set to "yes" if using DIR/libNAME\$shared_ext during linking hardcodes +# DIR into the resulting binary and the resulting library dependency is +# "absolute",i.e impossible to change by setting \$shlibpath_var if the +# library is relocated. +hardcode_direct_absolute=$hardcode_direct_absolute_FC + +# Set to "yes" if using the -LDIR flag during linking hardcodes DIR +# into the resulting binary. +hardcode_minus_L=$hardcode_minus_L_FC + +# Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR +# into the resulting binary. +hardcode_shlibpath_var=$hardcode_shlibpath_var_FC + +# Set to "yes" if building a shared library automatically hardcodes DIR +# into the library and all subsequent libraries and executables linked +# against it. +hardcode_automatic=$hardcode_automatic_FC + +# Set to yes if linker adds runtime paths of dependent libraries +# to runtime path list. +inherit_rpath=$inherit_rpath_FC + +# Whether libtool must link a program against all its dependency libraries. +link_all_deplibs=$link_all_deplibs_FC + +# Set to "yes" if exported symbols are required. +always_export_symbols=$always_export_symbols_FC + +# The commands to list exported symbols. +export_symbols_cmds=$lt_export_symbols_cmds_FC + +# Symbols that should not be listed in the preloaded symbols. +exclude_expsyms=$lt_exclude_expsyms_FC + +# Symbols that must always be exported. +include_expsyms=$lt_include_expsyms_FC + +# Commands necessary for linking programs (against libraries) with templates. +prelink_cmds=$lt_prelink_cmds_FC + +# Commands necessary for finishing linking programs. +postlink_cmds=$lt_postlink_cmds_FC + +# Specify filename containing input files. +file_list_spec=$lt_file_list_spec_FC + +# How to hardcode a shared library path into an executable. +hardcode_action=$hardcode_action_FC + +# The directories searched by this compiler when creating a shared library. +compiler_lib_search_dirs=$lt_compiler_lib_search_dirs_FC + +# Dependencies to place before and after the objects being linked to +# create a shared library. +predep_objects=$lt_predep_objects_FC +postdep_objects=$lt_postdep_objects_FC +predeps=$lt_predeps_FC +postdeps=$lt_postdeps_FC + +# The library search path used internally by the compiler when linking +# a shared library. +compiler_lib_search_path=$lt_compiler_lib_search_path_FC + +# ### END LIBTOOL TAG CONFIG: FC +_LT_EOF + + ;; + "utils/subfiling_vfd/h5fuse.sh":F) chmod +x utils/subfiling_vfd/h5fuse.sh ;; + + esac +done # for ac_tag + + +as_fn_exit 0 diff --git a/H/HDF5/generate-H5Tinit/generate-h5tinit.dockerfile b/H/HDF5/generate-H5Tinit/generate-h5tinit.dockerfile new file mode 100644 index 00000000000..7bcef4bf73d --- /dev/null +++ b/H/HDF5/generate-H5Tinit/generate-h5tinit.dockerfile @@ -0,0 +1,30 @@ +# Run `docker build --file generate-h5tinit.dockerfile --build-arg cpuarch=amd64 --progress plain .` + +ARG cpuarch=amd64 # amd64, arm32v5, arm32v7, arm64v8, i386, mips64le, ppc64le, riscv64 + +FROM ${cpuarch}/debian:11.6 +# FROM ${cpuarch}/debian:unstable +# FROM ${cpuarch}/ubuntu:18.04 + +# Install packages +ENV DEBIAN_FRONTEND=noninteractive +RUN apt-get update && \ + apt-get --yes --no-install-recommends install \ + build-essential \ + ca-certificates \ + g++ \ + gfortran \ + wget + +# Download and build HDF5 +RUN wget https://support.hdfgroup.org/ftp/HDF5/releases/hdf5-1.14/hdf5-1.14.0/src/hdf5-1.14.0.tar.gz +RUN tar xzf hdf5-1.14.0.tar.gz +WORKDIR hdf5-1.14.0 +# RUN wget -O bin/config.guess 'http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD' +# RUN wget -O bin/config.sub 'http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD' +RUN mkdir build +WORKDIR build +RUN ../configure --enable-cxx --enable-fortran +RUN make -j${nproc} -C src H5Tinit.c +RUN make -j${nproc} -C fortran/src H5fortran_types.F90 H5f90i_gen.h H5_gen.F90 +RUN make -j${nproc} -C hl/fortran/src H5LTff_gen.F90 H5TBff_gen.F90 diff --git a/H/HDF5/generate-H5Tinit/generate-h5tinit.sh b/H/HDF5/generate-H5Tinit/generate-h5tinit.sh new file mode 100755 index 00000000000..b0f7bdf6b0b --- /dev/null +++ b/H/HDF5/generate-H5Tinit/generate-h5tinit.sh @@ -0,0 +1,19 @@ +#!/bin/bash + +set -euxo pipefail + +cpuarchs="amd64 arm32v5 arm32v7 arm64v8 i386 mips64le ppc64le s390x" +# cpuarchs="riscv64" + +for cpuarch in $cpuarchs; do + tag="generate-h5tinit:debian-$cpuarch" + docker build --file generate-h5tinit.dockerfile --build-arg cpuarch="$cpuarch" --progress plain --tag "$tag" . + mkdir -p "debian-${cpuarch}" + docker run --rm "$tag" cat src/H5Tinit.c | tee "debian-${cpuarch}/H5Tinit.c" + docker run --rm "$tag" cat fortran/src/H5fortran_types.F90 | tee "debian-${cpuarch}/H5fortran_types.F90" + docker run --rm "$tag" cat fortran/src/H5f90i_gen.h | tee "debian-${cpuarch}/H5f90i_gen.h" + docker run --rm "$tag" cat fortran/src/H5_gen.F90 | tee "debian-${cpuarch}/H5_gen.F90" + docker run --rm "$tag" cat hl/fortran/src/H5LTff_gen.F90 | tee "debian-${cpuarch}/H5LTff_gen.F90" + docker run --rm "$tag" cat hl/fortran/src/H5TBff_gen.F90 | tee "debian-${cpuarch}/H5TBff_gen.F90" + docker run --rm "$tag" cat config.status | tee "debian-${cpuarch}/config.status" +done