diff --git a/H/HDF5/build_tarballs.jl b/H/HDF5/build_tarballs.jl index f21830f5d3b..46f8dbf9c91 100644 --- a/H/HDF5/build_tarballs.jl +++ b/H/HDF5/build_tarballs.jl @@ -154,7 +154,7 @@ case "${target}" in # sizeof(long double) == 12 # layout seems to be 16-bit sign+exponent and 64-bit mantissa # same as for Linux - cp ../files/debian-i386/* saved + cp ../files/msys2-mingw32/* saved ;; powerpc64le-linux-*) cp ../files/debian-ppc64le/* saved @@ -173,7 +173,7 @@ case "${target}" in # sizeof(long double) == 16 # layout seems to be 16-bit sign+exponent and 64-bit mantissa # same as for Linux - cp ../files/debian-amd64/* saved + cp ../files/msys2-mingw64/* saved ;; *) echo "Unsupported target architecture ${target}" >&2 diff --git a/H/HDF5/bundled/files/darwin-arm64v8/H5LTff_gen.F90 b/H/HDF5/bundled/files/darwin-arm64v8/H5LTff_gen.F90 index ef1cde7759e..945b2e872b6 100644 --- a/H/HDF5/bundled/files/darwin-arm64v8/H5LTff_gen.F90 +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5LTff_gen.F90 @@ -48,14 +48,6 @@ MODULE H5LT 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 @@ -122,14 +114,6 @@ MODULE H5LT 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 @@ -280,14 +264,6 @@ MODULE H5LT 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 @@ -314,14 +290,6 @@ MODULE H5LT 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 @@ -348,14 +316,6 @@ MODULE H5LT 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 @@ -382,14 +342,6 @@ MODULE H5LT 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 @@ -689,150 +641,6 @@ SUBROUTINE h5ltmake_dataset_real_kind_8_rank_7(loc_id,dset_name,rank,dims,type_i 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) @@ -1249,142 +1057,6 @@ SUBROUTINE h5ltread_dataset_real_kind_8_rank_7(loc_id,dset_name,type_id,buf,dims 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) @@ -1793,286 +1465,150 @@ SUBROUTINE h5ltmake_dataset_float_kind_8_rank_7(loc_id,dset_name,rank,dims,buf,e 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$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_0 !DEC$endif - SUBROUTINE h5ltmake_dataset_float_kind_10_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + 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=10),INTENT(IN), TARGET :: buf + 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_10_rank_0 + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_0 !DEC$if defined(BUILD_HDF5_HL_DLL) -!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_1 +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_1 !DEC$endif - SUBROUTINE h5ltmake_dataset_float_kind_10_rank_1(loc_id,dset_name,rank,dims,buf,errcode) + 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=10),INTENT(IN), DIMENSION(dims(1)), TARGET :: buf + 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_10_rank_1 + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_1 !DEC$if defined(BUILD_HDF5_HL_DLL) -!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_2 +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_2 !DEC$endif - SUBROUTINE h5ltmake_dataset_float_kind_10_rank_2(loc_id,dset_name,rank,dims,buf,errcode) + 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=10),INTENT(IN), DIMENSION(dims(1),dims(2)), TARGET :: buf + 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_10_rank_2 + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_2 !DEC$if defined(BUILD_HDF5_HL_DLL) -!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_3 +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_3 !DEC$endif - SUBROUTINE h5ltmake_dataset_float_kind_10_rank_3(loc_id,dset_name,rank,dims,buf,errcode) + 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=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3)), TARGET :: buf + 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_10_rank_3 + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_3 !DEC$if defined(BUILD_HDF5_HL_DLL) -!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_4 +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_4 !DEC$endif - SUBROUTINE h5ltmake_dataset_float_kind_10_rank_4(loc_id,dset_name,rank,dims,buf,errcode) + 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=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4)), TARGET :: buf + 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_10_rank_4 + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_4 !DEC$if defined(BUILD_HDF5_HL_DLL) -!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_5 +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_5 !DEC$endif - SUBROUTINE h5ltmake_dataset_float_kind_10_rank_5(loc_id,dset_name,rank,dims,buf,errcode) + 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=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)), TARGET :: buf + 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_10_rank_5 + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_5 !DEC$if defined(BUILD_HDF5_HL_DLL) -!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_6 +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_6 !DEC$endif - SUBROUTINE h5ltmake_dataset_float_kind_10_rank_6(loc_id,dset_name,rank,dims,buf,errcode) + 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=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)), TARGET :: buf + 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_10_rank_6 + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_6 !DEC$if defined(BUILD_HDF5_HL_DLL) -!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_10_rank_7 +!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_7 !DEC$endif - SUBROUTINE h5ltmake_dataset_float_kind_10_rank_7(loc_id,dset_name,rank,dims,buf,errcode) + 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=10),INTENT(IN), DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)), TARGET :: buf + 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_10_rank_7 + END SUBROUTINE h5ltmake_dataset_float_kind_16_rank_7 !DEC$if defined(BUILD_HDF5_HL_DLL) -!DEC$attributes dllexport :: h5ltmake_dataset_float_kind_16_rank_0 +!DEC$attributes dllexport :: h5ltread_dataset_float_kind_4_rank_0 !DEC$endif - SUBROUTINE h5ltmake_dataset_float_kind_16_rank_0(loc_id,dset_name,rank,dims,buf,errcode) + 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, 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 + REAL(KIND=4),INTENT(INOUT), TARGET :: buf INTEGER :: errcode TYPE(C_PTR) :: f_ptr INTEGER(size_t) :: namelen @@ -2321,134 +1857,6 @@ SUBROUTINE h5ltread_dataset_float_kind_8_rank_7(loc_id,dset_name,buf,dims,errcod 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) @@ -2849,142 +2257,6 @@ SUBROUTINE h5ltmake_dataset_double_kind_8_rank_7(loc_id,dset_name,rank,dims,buf, 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) @@ -3377,134 +2649,6 @@ SUBROUTINE h5ltread_dataset_double_kind_8_rank_7(loc_id,dset_name,buf,dims,errco 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) diff --git a/H/HDF5/bundled/files/darwin-arm64v8/H5TBff_gen.F90 b/H/HDF5/bundled/files/darwin-arm64v8/H5TBff_gen.F90 index 9317ae5340f..5840eb2ea04 100644 --- a/H/HDF5/bundled/files/darwin-arm64v8/H5TBff_gen.F90 +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5TBff_gen.F90 @@ -34,31 +34,26 @@ MODULE H5TB 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 @@ -105,27 +100,6 @@ SUBROUTINE h5tbwrite_field_name_kind_8_rank_1(loc_id,dset_name,field_name,start, 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) @@ -189,27 +163,6 @@ SUBROUTINE h5tbread_field_name_kind_8_rank_1(loc_id,dset_name,field_name,start, 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) @@ -269,25 +222,6 @@ SUBROUTINE h5tbwrite_field_index_kind_8_rank_1(loc_id,dset_name,field_index,star 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) @@ -345,25 +279,6 @@ SUBROUTINE h5tbread_field_index_kind_8_rank_1(loc_id,dset_name,field_index,start 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) @@ -423,26 +338,6 @@ SUBROUTINE h5tbinsert_field_kind_8_rank_1(loc_id,dset_name,field_name,field_type 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) diff --git a/H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c b/H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c index 1fdc56d703a..3faf579c8a2 100644 --- a/H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5Tinit.c @@ -13,8 +13,8 @@ * If you do not have access to either file, you may request a copy from * * help@hdfgroup.org. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * - * Created: Apr 8, 2023 - * Erik Schnetter + * Created: Apr 17, 2023 + * Mark Kittisopikul * * Purpose: This machine-generated source code contains * information about the various integer and diff --git a/H/HDF5/bundled/files/darwin-arm64v8/H5_gen.F90 b/H/HDF5/bundled/files/darwin-arm64v8/H5_gen.F90 index 841ccd659fb..01464392156 100644 --- a/H/HDF5/bundled/files/darwin-arm64v8/H5_gen.F90 +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5_gen.F90 @@ -49,14 +49,6 @@ MODULE H5_GEN 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 @@ -128,14 +120,6 @@ MODULE H5_GEN 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 @@ -207,14 +191,6 @@ MODULE H5_GEN 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 @@ -286,14 +262,6 @@ MODULE H5_GEN 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 @@ -351,27 +319,21 @@ MODULE H5_GEN 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 @@ -390,14 +352,6 @@ MODULE H5_GEN 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 @@ -471,14 +425,6 @@ MODULE H5_GEN 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 @@ -552,14 +498,6 @@ MODULE H5_GEN 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 @@ -633,14 +571,6 @@ MODULE H5_GEN 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 @@ -700,37 +630,31 @@ MODULE H5_GEN 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 @@ -959,118 +883,6 @@ SUBROUTINE h5awrite_rkind_8_rank_7(attr_id, memtype_id, buf, dims, hdferr) 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) @@ -2065,118 +1877,6 @@ SUBROUTINE h5aread_rkind_8_rank_7(attr_id, memtype_id, buf, dims, hdferr) 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) @@ -3395,230 +3095,6 @@ SUBROUTINE h5dread_rkind_8_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & 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, & @@ -5607,230 +5083,6 @@ SUBROUTINE h5dwrite_rkind_8_rank_7(dset_id, mem_type_id, buf, dims, hdferr, & 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, & @@ -7397,19 +6649,6 @@ SUBROUTINE h5pset_fill_value_kind_8(prp_id, type_id, fillvalue, hdferr) 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) @@ -7449,19 +6688,6 @@ SUBROUTINE h5pget_fill_value_kind_8(prp_id, type_id, fillvalue, hdferr) 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) @@ -7505,21 +6731,6 @@ SUBROUTINE h5pset_kind_8(prp_id, name, value, hdferr) 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) @@ -7565,21 +6776,6 @@ SUBROUTINE h5pget_kind_8(prp_id, name, value, hdferr) 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) @@ -7627,22 +6823,6 @@ SUBROUTINE h5pregister_kind_8(class, name, size, value, hdferr) 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) @@ -7691,22 +6871,6 @@ SUBROUTINE h5pinsert_kind_8(plist, name, size, value, hdferr) 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) diff --git a/H/HDF5/bundled/files/darwin-arm64v8/H5f90i_gen.h b/H/HDF5/bundled/files/darwin-arm64v8/H5f90i_gen.h index 1400983def5..fd681999127 100644 --- a/H/HDF5/bundled/files/darwin-arm64v8/H5f90i_gen.h +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5f90i_gen.h @@ -28,8 +28,6 @@ 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; @@ -40,8 +38,6 @@ 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; diff --git a/H/HDF5/bundled/files/darwin-arm64v8/H5fortran_types.F90 b/H/HDF5/bundled/files/darwin-arm64v8/H5fortran_types.F90 index 5cd5b2ac7c3..8a4a09c4613 100644 --- a/H/HDF5/bundled/files/darwin-arm64v8/H5fortran_types.F90 +++ b/H/HDF5/bundled/files/darwin-arm64v8/H5fortran_types.F90 @@ -29,11 +29,9 @@ MODULE H5FORTRAN_TYPES 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 :: Fortran_DOUBLE = C_LONG_DOUBLE INTEGER, PARAMETER :: H5R_DSET_REG_REF_BUF_SIZE_F = 12 INTEGER, PARAMETER :: H5O_MAX_TOKEN_SIZE_F = 16 diff --git a/H/HDF5/bundled/files/darwin-arm64v8/config.status b/H/HDF5/bundled/files/darwin-arm64v8/config.status old mode 100644 new mode 100755 index 7c98d2e3355..6842a8528c3 --- a/H/HDF5/bundled/files/darwin-arm64v8/config.status +++ b/H/HDF5/bundled/files/darwin-arm64v8/config.status @@ -427,7 +427,7 @@ $config_commands Report bugs to ." -ac_cs_config="'--enable-c++' '--enable-fortran'" +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, @@ -437,11 +437,11 @@ 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' +ac_pwd='/Users/kittisopikulm/Documents/src/hdf5-1.14.0/build' srcdir='..' -INSTALL='/opt/local/libexec/gnubin/install -c' -MKDIR_P='/opt/local/libexec/gnubin/mkdir -p' -AWK='gawk' +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=: @@ -519,7 +519,7 @@ if $ac_cs_silent; then fi if $ac_cs_recheck; then - set X /bin/sh '../configure' '--enable-c++' '--enable-fortran' $ac_configure_extra_args --no-create --no-recursion + 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' @@ -560,18 +560,18 @@ SHELL='/bin/sh' ECHO='printf %s\n' PATH_SEPARATOR=':' host_alias='' -host='x86_64-apple-darwin22.4.0' -host_os='darwin22.4.0' +host='arm-apple-darwin22.3.0' +host_os='darwin22.3.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' +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' @@ -611,7 +611,7 @@ lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='sed -n -e '\''s/^: \(.*\) 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' +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' @@ -675,7 +675,7 @@ 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' +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' @@ -690,27 +690,27 @@ postdep_objects='' predeps='' postdeps='' compiler_lib_search_path='' -LD_CXX='' -LD_FC='/opt/local/libexec/llvm-15/bin/ld' +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='' +compiler_CXX='clang++' compiler_FC='gfortran' -GCC_CXX='' +GCC_CXX='yes' GCC_FC='yes' -lt_prog_compiler_no_builtin_flag_CXX='' +lt_prog_compiler_no_builtin_flag_CXX=' -fno-builtin' lt_prog_compiler_no_builtin_flag_FC='' -lt_prog_compiler_pic_CXX='' +lt_prog_compiler_pic_CXX=' -fno-common -DPIC' lt_prog_compiler_pic_FC=' -fno-common' -lt_prog_compiler_wl_CXX='' +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='' +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' @@ -718,7 +718,7 @@ 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_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' @@ -726,17 +726,17 @@ 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_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='' +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='' +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='' +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='' +with_gnu_ld_CXX='no' with_gnu_ld_FC='no' -allow_undefined_flag_CXX='' +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='' @@ -752,17 +752,17 @@ 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_CXX='yes' hardcode_automatic_FC='yes' inherit_rpath_CXX='no' inherit_rpath_FC='no' -link_all_deplibs_CXX='unknown' +link_all_deplibs_CXX='yes' link_all_deplibs_FC='yes' always_export_symbols_CXX='no' always_export_symbols_FC='no' -export_symbols_cmds_CXX='' +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='' +exclude_expsyms_CXX='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' exclude_expsyms_FC='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' include_expsyms_CXX='' include_expsyms_FC='' @@ -772,7 +772,7 @@ postlink_cmds_CXX='' postlink_cmds_FC='' file_list_spec_CXX='' file_list_spec_FC='' -hardcode_action_CXX='' +hardcode_action_CXX='immediate' hardcode_action_FC='immediate' compiler_lib_search_dirs_CXX='' compiler_lib_search_dirs_FC='' @@ -844,12 +844,12 @@ fi 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 +../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. @@ -1093,24 +1093,24 @@ 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["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["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"]="eschnett@redshift.pi.local" -S["CONFIG_DATE"]="Fri Apr 14 16:53:56 EDT 2023" +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"]="" @@ -1182,12 +1182,12 @@ S["ac_ct_AR"]="" S["DLLTOOL"]="false" S["OBJDUMP"]="objdump" S["LN_S"]="ln -s" -S["NM"]="/opt/local/bin/nm -B" +S["NM"]="/usr/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["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"]="" @@ -1278,7 +1278,7 @@ S["RUNPARALLEL"]="" S["RUNSERIAL"]="" S["PARALLEL"]="no" S["TIME"]="time" -S["TR"]="/opt/local/libexec/gnubin/tr" +S["TR"]="/usr/bin/tr" S["AR"]="ar" S["DIMENSION_SCALES_WITH_NEW_REF"]="no" S["HL_TOOLS"]="" @@ -1293,15 +1293,15 @@ S["am__fastdepCXX_TRUE"]="" S["CXXDEPMODE"]="depmode=gcc3" S["ac_ct_CXX"]="" S["CXXFLAGS"]="" -S["CXX"]="no" -S["HDF_CXX"]="no" +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,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["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" @@ -1311,12 +1311,13 @@ 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_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,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["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" @@ -1334,11 +1335,11 @@ S["HADDR_T"]="" S["R_INTEGER"]="" S["R_LARGE"]="" S["FC"]="gfortran" -S["PAC_C_MAX_REAL_PRECISION"]="21" -S["HDF5_INTERFACES"]=" fortran" +S["PAC_C_MAX_REAL_PRECISION"]="17" +S["HDF5_INTERFACES"]=" fortran c++" S["HDF_FORTRAN"]="yes" -S["EGREP"]="/opt/local/libexec/gnubin/grep -E" -S["GREP"]="/opt/local/libexec/gnubin/grep" +S["EGREP"]="/usr/bin/grep -E" +S["GREP"]="/usr/bin/grep" S["CPP"]="clang -E" S["am__fastdepCC_FALSE"]="#" S["am__fastdepCC_TRUE"]="" @@ -1358,12 +1359,12 @@ 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["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/tmp/hdf5-1.14.0/src/H5FDsubfiling" +S["AM_CPPFLAGS"]=" -I/Users/kittisopikulm/Documents/src/hdf5-1.14.0/src/H5FDsubfiling" S["AM_CXXFLAGS"]="" S["AM_FCFLAGS"]="" S["AM_CFLAGS"]="" @@ -1386,14 +1387,14 @@ S["H5_CFLAGS"]=" -std=c99 -Wall -Warray-bounds -Wcast-qual -Wconversion -Wdoubl S["AR_FLAGS"]="cr" S["JNIFLAGS"]="" S["CPPFLAGS"]="" -S["host_os"]="darwin22.4.0" +S["host_os"]="darwin22.3.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["host_cpu"]="arm" +S["host"]="arm-apple-darwin22.3.0" +S["build_os"]="darwin22.3.0" S["build_vendor"]="apple" -S["build_cpu"]="x86_64" -S["build"]="x86_64-apple-darwin22.4.0" +S["build_cpu"]="arm" +S["build"]="arm-apple-darwin22.3.0" S["MAINT"]="#" S["MAINTAINER_MODE_FALSE"]="" S["MAINTAINER_MODE_TRUE"]="#" @@ -1406,17 +1407,17 @@ S["am__tar"]="$${TAR-tar} chof - \"$$tardir\"" S["AMTAR"]="$${TAR-tar}" S["am__leading_dot"]="." S["SET_MAKE"]="" -S["AWK"]="gawk" +S["AWK"]="awk" S["mkdir_p"]="$(MKDIR_P)" -S["MKDIR_P"]="/opt/local/libexec/gnubin/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} /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["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" @@ -1452,7 +1453,7 @@ 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["prefix"]="/Users/kittisopikulm/Documents/src/hdf5-1.14.0/build/hdf5" S["exec_prefix"]="${prefix}" S["PACKAGE_URL"]="" S["PACKAGE_BUGREPORT"]="help@hdfgroup.org" @@ -1529,23 +1530,23 @@ D["SIZEOF_LONG"]=" 8" D["SIZEOF_LONG_LONG"]=" 8" D["SIZEOF_FLOAT"]=" 4" D["SIZEOF_DOUBLE"]=" 8" -D["SIZEOF_LONG_DOUBLE"]=" 16" +D["SIZEOF_LONG_DOUBLE"]=" 8" D["SIZEOF___FLOAT128"]=" 0" D["SIZEOF__QUAD"]=" 0" -D["PAC_C_MAX_REAL_PRECISION"]=" 21" +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 = 4" +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,10,16/)" +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 = 4" +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,10,16/)" +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" @@ -1553,11 +1554,10 @@ 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["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" 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..ef1cde7759e --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/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-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..d841101e8c9 --- /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 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; + + /* + * 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..841ccd659fb --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/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-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..8874cbd157f --- /dev/null +++ b/H/HDF5/bundled/files/msys2-mingw32/config.status @@ -0,0 +1,2939 @@ +#! /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='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/build" +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"]="Mon Apr 17 19:16:51 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"]="/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"]="-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_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