From 36eec4b620f4ed7502ab832ae3baf3971f37e7f5 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Thu, 23 Apr 2015 09:39:31 -0500 Subject: [svn-r26896] added LONG_DOUBLE interfaces --- hl/fortran/src/H5LTff.F90 | 3347 +++++++++++++++++++++++------- hl/fortran/src/hdf5_hl_fortrandll.def.in | 171 ++ 2 files changed, 2721 insertions(+), 797 deletions(-) create mode 100644 hl/fortran/src/hdf5_hl_fortrandll.def.in diff --git a/hl/fortran/src/H5LTff.F90 b/hl/fortran/src/H5LTff.F90 index 5e1db19..92f067d 100644 --- a/hl/fortran/src/H5LTff.F90 +++ b/hl/fortran/src/H5LTff.F90 @@ -44,6 +44,13 @@ MODULE h5lt MODULE PROCEDURE h5ltmake_dataset_f_c_double5 MODULE PROCEDURE h5ltmake_dataset_f_c_double6 MODULE PROCEDURE h5ltmake_dataset_f_c_double7 + MODULE PROCEDURE h5ltmake_dataset_f_c_long_double1 + MODULE PROCEDURE h5ltmake_dataset_f_c_long_double2 + MODULE PROCEDURE h5ltmake_dataset_f_c_long_double3 + MODULE PROCEDURE h5ltmake_dataset_f_c_long_double4 + MODULE PROCEDURE h5ltmake_dataset_f_c_long_double5 + MODULE PROCEDURE h5ltmake_dataset_f_c_long_double6 + MODULE PROCEDURE h5ltmake_dataset_f_c_long_double7 END INTERFACE INTERFACE h5ltread_dataset_f @@ -68,6 +75,13 @@ MODULE h5lt MODULE PROCEDURE h5ltread_dataset_f_c_double5 MODULE PROCEDURE h5ltread_dataset_f_c_double6 MODULE PROCEDURE h5ltread_dataset_f_c_double7 + MODULE PROCEDURE h5ltread_dataset_f_c_long_double1 + MODULE PROCEDURE h5ltread_dataset_f_c_long_double2 + MODULE PROCEDURE h5ltread_dataset_f_c_long_double3 + MODULE PROCEDURE h5ltread_dataset_f_c_long_double4 + MODULE PROCEDURE h5ltread_dataset_f_c_long_double5 + MODULE PROCEDURE h5ltread_dataset_f_c_long_double6 + MODULE PROCEDURE h5ltread_dataset_f_c_long_double7 END INTERFACE INTERFACE h5ltmake_dataset_int_f @@ -95,6 +109,13 @@ MODULE h5lt MODULE PROCEDURE h5ltmake_dataset_c_double_f_5 MODULE PROCEDURE h5ltmake_dataset_c_double_f_6 MODULE PROCEDURE h5ltmake_dataset_c_double_f_7 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_1 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_2 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_3 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_4 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_5 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_6 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_7 END INTERFACE INTERFACE h5ltmake_dataset_double_f @@ -112,6 +133,13 @@ MODULE h5lt MODULE PROCEDURE h5ltmake_dataset_c_double_f_5 MODULE PROCEDURE h5ltmake_dataset_c_double_f_6 MODULE PROCEDURE h5ltmake_dataset_c_double_f_7 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_1 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_2 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_3 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_4 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_5 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_6 + MODULE PROCEDURE h5ltmake_dataset_c_long_double_f_7 END INTERFACE INTERFACE h5ltread_dataset_int_f @@ -139,6 +167,13 @@ MODULE h5lt MODULE PROCEDURE h5ltread_dataset_c_double_f_5 MODULE PROCEDURE h5ltread_dataset_c_double_f_6 MODULE PROCEDURE h5ltread_dataset_c_double_f_7 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_1 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_2 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_3 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_4 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_5 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_6 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_7 END INTERFACE INTERFACE h5ltread_dataset_double_f @@ -156,6 +191,13 @@ MODULE h5lt MODULE PROCEDURE h5ltread_dataset_c_double_f_5 MODULE PROCEDURE h5ltread_dataset_c_double_f_6 MODULE PROCEDURE h5ltread_dataset_c_double_f_7 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_1 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_2 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_3 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_4 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_5 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_6 + MODULE PROCEDURE h5ltread_dataset_c_long_double_f_7 END INTERFACE CONTAINS @@ -1493,15 +1535,15 @@ CONTAINS END SUBROUTINE h5ltmake_dataset_f_c_double7 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_int1 + ! Function: h5ltmake_dataset_f_c_long_double1 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of a type TYPE_ID ! ! Return: Success: 0, Failure: -1 ! ! Programmer: pvn@ncsa.uiuc.edu ! - ! Date: September 22, 2004 + ! Date: September 1, 2004 ! ! Comments: ! @@ -1509,11 +1551,12 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_int1(loc_id,& + SUBROUTINE h5ltmake_dataset_f_c_long_double1(loc_id,& dset_name,& + rank,& + dims,& type_id,& buf,& - dims,& errcode ) IMPLICIT NONE @@ -1521,48 +1564,54 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_int1 + !DEC$attributes dllexport :: h5ltmake_dataset_f_c_long_double1 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(inout), DIMENSION(*) :: buf ! data buffer + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + REAL(KIND=C_LONG_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length INTERFACE - INTEGER FUNCTION h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_int1_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_dl1_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE - INTEGER(HID_T), INTENT(IN) :: loc_id ! file or group identifier - INTEGER(HID_T), INTENT(IN) :: type_id ! datatype identifier + !DEC$IF DEFINED(HDF5F90_WINDOWS) + !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_DL1_C'::h5ltmake_dataset_dl1_c + !DEC$ENDIF + !DEC$ATTRIBUTES reference :: dset_name + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: dset_name ! name of the dataset - INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the buffer buf - INTEGER, INTENT(IN), DIMENSION(*) :: buf ! data buffer - END FUNCTION h5ltread_dataset_int1_c + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_LONG_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_dl1_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) - END SUBROUTINE h5ltread_dataset_f_int1 + END SUBROUTINE h5ltmake_dataset_f_c_long_double1 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_int2 + ! Function: h5ltmake_dataset_f_c_long_double2 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of a type TYPE_ID ! ! Return: Success: 0, Failure: -1 ! ! Programmer: pvn@ncsa.uiuc.edu ! - ! Date: September 22, 2004 + ! Date: September 1, 2004 ! ! Comments: ! @@ -1570,11 +1619,12 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_int2(loc_id,& + SUBROUTINE h5ltmake_dataset_f_c_long_double2(loc_id,& dset_name,& + rank,& + dims,& type_id,& buf,& - dims,& errcode ) IMPLICIT NONE @@ -1582,50 +1632,52 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_int2 + !DEC$attributes dllexport :: h5ltmake_dataset_f_c_long_double2 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_int2_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_dl2_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_int2_c + END FUNCTION h5ltmake_dataset_dl2_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) - END SUBROUTINE h5ltread_dataset_f_int2 + END SUBROUTINE h5ltmake_dataset_f_c_long_double2 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_int3 + ! Function: h5ltmake_dataset_f_c_long_double3 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of a type TYPE_ID ! ! Return: Success: 0, Failure: -1 ! ! Programmer: pvn@ncsa.uiuc.edu ! - ! Date: September 22, 2004 + ! Date: September 1, 2004 ! ! Comments: ! @@ -1633,11 +1685,12 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_int3(loc_id,& + SUBROUTINE h5ltmake_dataset_f_c_long_double3(loc_id,& dset_name,& + rank,& + dims,& type_id,& buf,& - dims,& errcode ) IMPLICIT NONE @@ -1645,50 +1698,52 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_int3 + !DEC$attributes dllexport :: h5ltmake_dataset_f_c_long_double3 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_int3_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_dl3_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_int3_c + END FUNCTION h5ltmake_dataset_dl3_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) - END SUBROUTINE h5ltread_dataset_f_int3 + END SUBROUTINE h5ltmake_dataset_f_c_long_double3 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_int4 + ! Function: h5ltmake_dataset_f_c_long_double4 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of a type TYPE_ID ! ! Return: Success: 0, Failure: -1 ! ! Programmer: M. Scot Breitenfeld ! - ! Date: March 12, 2011 + ! Date: March 7, 2011 ! ! Comments: ! @@ -1696,58 +1751,60 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_int4(loc_id, dset_name, type_id, buf, & - dims, errcode ) + SUBROUTINE h5ltmake_dataset_f_c_long_double4(loc_id, dset_name, rank, dims, & + type_id, buf, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_int4 + !DEC$attributes dllexport :: h5ltmake_dataset_f_c_long_double4 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & - DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3), dims(4)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_int4_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_int4_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_dl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_dl4_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & - DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_int4_c + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_dl4_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_int4_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_dl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) - END SUBROUTINE h5ltread_dataset_f_int4 + END SUBROUTINE h5ltmake_dataset_f_c_long_double4 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_int5 + ! Function: h5ltmake_dataset_f_c_long_double5 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of a type TYPE_ID ! ! Return: Success: 0, Failure: -1 ! ! Programmer: M. Scot Breitenfeld ! - ! Date: March 12, 2011 + ! Date: March 7, 2011 ! ! Comments: ! @@ -1755,58 +1812,60 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_int5(loc_id, dset_name, type_id, buf, & - dims, errcode ) + SUBROUTINE h5ltmake_dataset_f_c_long_double5(loc_id, dset_name, rank, dims, & + type_id, buf, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_int5 + !DEC$attributes dllexport :: h5ltmake_dataset_f_c_long_double5 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_int5_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_int5_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_dl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_dl5_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & - DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_int5_c + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_dl5_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_int5_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_dl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) - END SUBROUTINE h5ltread_dataset_f_int5 + END SUBROUTINE h5ltmake_dataset_f_c_long_double5 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_int6 + ! Function: h5ltmake_dataset_f_c_long_double6 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of a type TYPE_ID ! ! Return: Success: 0, Failure: -1 ! ! Programmer: M. Scot Breitenfeld ! - ! Date: March 12, 2011 + ! Date: March 7, 2011 ! ! Comments: ! @@ -1814,58 +1873,60 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_int6(loc_id, dset_name, type_id, buf, & - dims, errcode ) - + SUBROUTINE h5ltmake_dataset_f_c_long_double6(loc_id, dset_name, rank, dims, & + type_id, buf, errcode ) + IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_int6 + !DEC$attributes dllexport :: h5ltmake_dataset_f_c_long_double6 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_int6_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_int6_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_dl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_dl6_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & - DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_int6_c + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_dl6_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_int6_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_dl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) - END SUBROUTINE h5ltread_dataset_f_int6 + END SUBROUTINE h5ltmake_dataset_f_c_long_double6 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_int7 + ! Function: h5ltmake_dataset_f_c_long_double7 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of a type TYPE_ID ! ! Return: Success: 0, Failure: -1 ! ! Programmer: M. Scot Breitenfeld ! - ! Date: March 12, 2011 + ! Date: March 7, 2011 ! ! Comments: ! @@ -1873,51 +1934,52 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_int7(loc_id, dset_name, type_id, buf, & - dims, errcode ) + SUBROUTINE h5ltmake_dataset_f_c_long_double7(loc_id, dset_name, rank, dims, & + type_id, buf, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_int7 + !DEC$attributes dllexport :: h5ltmake_dataset_f_c_long_double7 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_int7_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_int7_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_dl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_dl7_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & - DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_int7_c + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_dl7_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_int7_c(loc_id,namelen,dset_name,type_id,buf,dims) - - END SUBROUTINE h5ltread_dataset_f_int7 + errcode = h5ltmake_dataset_dl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) + END SUBROUTINE h5ltmake_dataset_f_c_long_double7 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_float1 + ! Function: h5ltread_dataset_f_int1 ! ! Purpose: Read a dataset of a type TYPE_ID ! @@ -1933,7 +1995,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_float1(loc_id,& + SUBROUTINE h5ltread_dataset_f_int1(loc_id,& dset_name,& type_id,& buf,& @@ -1945,7 +2007,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_float1 + !DEC$attributes dllexport :: h5ltread_dataset_f_int1 !DEC$endif ! @@ -1953,32 +2015,32 @@ CONTAINS CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(inout), DIMENSION(*) :: buf ! data buffer + INTEGER, INTENT(inout), DIMENSION(*) :: buf ! data buffer INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length INTERFACE - INTEGER FUNCTION h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_fl1_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_int1_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE - INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(HID_T), INTENT(IN) :: loc_id ! file or group identifier + INTEGER(HID_T), INTENT(IN) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer - CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer - END FUNCTION h5ltread_dataset_fl1_c + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: dset_name ! name of the dataset + INTEGER(HSIZE_T), DIMENSION(*), INTENT(IN) :: dims ! size of the buffer buf + INTEGER, INTENT(IN), DIMENSION(*) :: buf ! data buffer + END FUNCTION h5ltread_dataset_int1_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int1_c(loc_id,namelen,dset_name,type_id,buf,dims) - END SUBROUTINE h5ltread_dataset_f_c_float1 + END SUBROUTINE h5ltread_dataset_f_int1 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_float2 + ! Function: h5ltread_dataset_f_int2 ! ! Purpose: Read a dataset of a type TYPE_ID ! @@ -1994,7 +2056,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_float2(loc_id,& + SUBROUTINE h5ltread_dataset_f_int2(loc_id,& dset_name,& type_id,& buf,& @@ -2006,24 +2068,23 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_float2 + !DEC$attributes dllexport :: h5ltread_dataset_f_int2 !DEC$endif ! - INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_fl2_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_int2_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2031,18 +2092,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + INTEGER, INTENT(in), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_fl2_c + END FUNCTION h5ltread_dataset_int2_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int2_c(loc_id,namelen,dset_name,type_id,buf,dims) - END SUBROUTINE h5ltread_dataset_f_c_float2 + END SUBROUTINE h5ltread_dataset_f_int2 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_float3 + ! Function: h5ltread_dataset_f_int3 ! ! Purpose: Read a dataset of a type TYPE_ID ! @@ -2058,7 +2119,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_float3(loc_id,& + SUBROUTINE h5ltread_dataset_f_int3(loc_id,& dset_name,& type_id,& buf,& @@ -2070,7 +2131,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_float3 + !DEC$attributes dllexport :: h5ltread_dataset_f_int3 !DEC$endif ! @@ -2080,13 +2141,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_fl3_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_int3_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2094,18 +2155,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + INTEGER, INTENT(in), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_fl3_c + END FUNCTION h5ltread_dataset_int3_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int3_c(loc_id,namelen,dset_name,type_id,buf,dims) - END SUBROUTINE h5ltread_dataset_f_c_float3 + END SUBROUTINE h5ltread_dataset_f_int3 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_float4 + ! Function: h5ltread_dataset_f_int4 ! ! Purpose: Read a dataset of a type TYPE_ID ! @@ -2113,7 +2174,7 @@ CONTAINS ! ! Programmer: M. Scot Breitenfeld ! - ! Date: March 8, 2011 + ! Date: March 12, 2011 ! ! Comments: ! @@ -2121,7 +2182,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_float4(loc_id, dset_name, type_id, buf, & + SUBROUTINE h5ltread_dataset_f_int4(loc_id, dset_name, type_id, buf, & dims, errcode ) IMPLICIT NONE @@ -2129,7 +2190,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_float4 + !DEC$attributes dllexport :: h5ltread_dataset_f_int4 !DEC$endif ! @@ -2139,13 +2200,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_fl4_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_fl4_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_int4_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_int4_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2153,18 +2214,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + INTEGER, INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_fl4_c + END FUNCTION h5ltread_dataset_int4_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_fl4_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int4_c(loc_id,namelen,dset_name,type_id,buf,dims) - END SUBROUTINE h5ltread_dataset_f_c_float4 + END SUBROUTINE h5ltread_dataset_f_int4 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_float5 + ! Function: h5ltread_dataset_f_int5 ! ! Purpose: Read a dataset of a type TYPE_ID ! @@ -2172,7 +2233,7 @@ CONTAINS ! ! Programmer: M. Scot Breitenfeld ! - ! Date: March 8, 2011 + ! Date: March 12, 2011 ! ! Comments: ! @@ -2180,7 +2241,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_float5(loc_id, dset_name, type_id, buf, & + SUBROUTINE h5ltread_dataset_f_int5(loc_id, dset_name, type_id, buf, & dims, errcode ) IMPLICIT NONE @@ -2188,7 +2249,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_float5 + !DEC$attributes dllexport :: h5ltread_dataset_f_int5 !DEC$endif ! @@ -2198,13 +2259,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_fl5_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_fl5_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_int5_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_int5_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2212,18 +2273,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + INTEGER, INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_fl5_c + END FUNCTION h5ltread_dataset_int5_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_fl5_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int5_c(loc_id,namelen,dset_name,type_id,buf,dims) - END SUBROUTINE h5ltread_dataset_f_c_float5 + END SUBROUTINE h5ltread_dataset_f_int5 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_float6 + ! Function: h5ltread_dataset_f_int6 ! ! Purpose: Read a dataset of a type TYPE_ID ! @@ -2231,7 +2292,7 @@ CONTAINS ! ! Programmer: M. Scot Breitenfeld ! - ! Date: March 8, 2011 + ! Date: March 12, 2011 ! ! Comments: ! @@ -2239,7 +2300,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_float6(loc_id, dset_name, type_id, buf, & + SUBROUTINE h5ltread_dataset_f_int6(loc_id, dset_name, type_id, buf, & dims, errcode ) IMPLICIT NONE @@ -2247,7 +2308,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_float6 + !DEC$attributes dllexport :: h5ltread_dataset_f_int6 !DEC$endif ! @@ -2257,13 +2318,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_fl6_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_fl6_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_int6_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_int6_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2271,18 +2332,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + INTEGER, INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_fl6_c + END FUNCTION h5ltread_dataset_int6_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_fl6_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int6_c(loc_id,namelen,dset_name,type_id,buf,dims) - END SUBROUTINE h5ltread_dataset_f_c_float6 + END SUBROUTINE h5ltread_dataset_f_int6 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_float7 + ! Function: h5ltread_dataset_f_int7 ! ! Purpose: Read a dataset of a type TYPE_ID ! @@ -2290,7 +2351,7 @@ CONTAINS ! ! Programmer: M. Scot Breitenfeld ! - ! Date: March 8, 2011 + ! Date: March 12, 2011 ! ! Comments: ! @@ -2298,7 +2359,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_float7(loc_id, dset_name, type_id, buf, & + SUBROUTINE h5ltread_dataset_f_int7(loc_id, dset_name, type_id, buf, & dims, errcode ) IMPLICIT NONE @@ -2306,7 +2367,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_float7 + !DEC$attributes dllexport :: h5ltread_dataset_f_int7 !DEC$endif ! @@ -2316,13 +2377,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_fl7_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_fl7_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_int7_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_int7_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2330,19 +2391,19 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + INTEGER, INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_fl7_c + END FUNCTION h5ltread_dataset_int7_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_fl7_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_int7_c(loc_id,namelen,dset_name,type_id,buf,dims) - END SUBROUTINE h5ltread_dataset_f_c_float7 + END SUBROUTINE h5ltread_dataset_f_int7 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_double1 + ! Function: h5ltread_dataset_f_c_float1 ! ! Purpose: Read a dataset of a type TYPE_ID ! @@ -2358,7 +2419,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_double1(loc_id,& + SUBROUTINE h5ltread_dataset_f_c_float1(loc_id,& dset_name,& type_id,& buf,& @@ -2370,7 +2431,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport ::h5ltread_dataset_f_c_double1 + !DEC$attributes dllexport :: h5ltread_dataset_f_c_float1 !DEC$endif ! @@ -2378,14 +2439,14 @@ CONTAINS CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(inout), DIMENSION(*) :: buf ! data buffer + REAL(KIND=C_FLOAT), INTENT(inout), DIMENSION(*) :: buf ! data buffer INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length INTERFACE - INTEGER FUNCTION h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_dl1_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_fl1_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2393,17 +2454,17 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer - END FUNCTION h5ltread_dataset_dl1_c + REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer + END FUNCTION h5ltread_dataset_fl1_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_fl1_c(loc_id,namelen,dset_name,type_id,buf,dims) - END SUBROUTINE h5ltread_dataset_f_c_double1 + END SUBROUTINE h5ltread_dataset_f_c_float1 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_double2 + ! Function: h5ltread_dataset_f_c_float2 ! ! Purpose: Read a dataset of a type TYPE_ID ! @@ -2419,7 +2480,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_double2(loc_id,& + SUBROUTINE h5ltread_dataset_f_c_float2(loc_id,& dset_name,& type_id,& buf,& @@ -2431,23 +2492,24 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_double2 + !DEC$attributes dllexport :: h5ltread_dataset_f_c_float2 !DEC$endif ! + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_dl2_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_fl2_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2455,20 +2517,1733 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_dl2_c + END FUNCTION h5ltread_dataset_fl2_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltread_dataset_fl2_c(loc_id,namelen,dset_name,type_id,buf,dims) - END SUBROUTINE h5ltread_dataset_f_c_double2 + END SUBROUTINE h5ltread_dataset_f_c_float2 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_double3 + ! Function: h5ltread_dataset_f_c_float3 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_float3(loc_id,& + dset_name,& + type_id,& + buf,& + dims,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_float3 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_FLOAT), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_fl3_c') + IMPORT :: C_CHAR, C_FLOAT + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_FLOAT), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_fl3_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_fl3_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_float3 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_float4 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_float4(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_float4 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_FLOAT), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_fl4_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_fl4_c') + IMPORT :: C_CHAR, C_FLOAT + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_FLOAT), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_fl4_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_fl4_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_float4 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_float5 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_float5(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_float5 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_FLOAT), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_fl5_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_fl5_c') + IMPORT :: C_CHAR, C_FLOAT + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_FLOAT), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_fl5_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_fl5_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_float5 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_float6 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_float6(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_float6 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_FLOAT), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_fl6_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_fl6_c') + IMPORT :: C_CHAR, C_FLOAT + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_FLOAT), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_fl6_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_fl6_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_float6 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_float7 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_float7(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_float7 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_FLOAT), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_fl7_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_fl7_c') + IMPORT :: C_CHAR, C_FLOAT + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_FLOAT), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_fl7_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_fl7_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_float7 + + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_double1 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_double1(loc_id,& + dset_name,& + type_id,& + buf,& + dims,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport ::h5ltread_dataset_f_c_double1 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_DOUBLE), INTENT(inout), DIMENSION(*) :: buf ! data buffer + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl1_c') + IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl1_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_double1 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_double2 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_double2(loc_id,& + dset_name,& + type_id,& + buf,& + dims,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_double2 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl2_c') + IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl2_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_double2 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_double3 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_double3(loc_id,& + dset_name,& + type_id,& + buf,& + dims,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_double3 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl3_c') + IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl3_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_double3 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_double4 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_double4(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_double4 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl4_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl4_c') + IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl4_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl4_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_double4 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_double5 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_double5(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_double5 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl5_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl5_c') + IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl5_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl5_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_double5 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_double6 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_double6(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_double6 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl6_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl6_c') + IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl6_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl6_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_double6 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_double7 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_double7(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_double7 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl7_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl7_c') + IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl7_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl7_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_double7 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_long_double1 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_long_double1(loc_id,& + dset_name,& + type_id,& + buf,& + dims,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport ::h5ltread_dataset_f_c_long_double1 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), DIMENSION(*) :: buf ! data buffer + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl1_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_LONG_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl1_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl1_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_long_double1 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_long_double2 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_long_double2(loc_id,& + dset_name,& + type_id,& + buf,& + dims,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_long_double2 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl2_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl2_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl2_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_long_double2 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_long_double3 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_long_double3(loc_id,& + dset_name,& + type_id,& + buf,& + dims,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_long_double3 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl3_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl3_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_long_double3 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_long_double4 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_long_double4(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_long_double4 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl4_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl4_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl4_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl4_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_long_double4 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_long_double5 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_long_double5(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_long_double5 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl5_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl5_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl5_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl5_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_long_double5 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_long_double6 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_long_double6(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_long_double6 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl6_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl6_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl6_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl6_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_long_double6 + + !------------------------------------------------------------------------- + ! Function: h5ltread_dataset_f_c_long_double7 + ! + ! Purpose: Read a dataset of a type TYPE_ID + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltread_dataset_f_c_long_double7(loc_id, dset_name, type_id, buf, & + dims, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltread_dataset_f_c_long_double7 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltread_dataset_dl7_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_dl7_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + END FUNCTION h5ltread_dataset_dl7_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltread_dataset_dl7_c(loc_id,namelen,dset_name,type_id,buf,dims) + + END SUBROUTINE h5ltread_dataset_f_c_long_double7 + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_int_f_1 + ! + ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltmake_dataset_int_f_1 (loc_id,& + dset_name,& + rank,& + dims,& + buf,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltmake_dataset_int_f_1 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER, INTENT(in), DIMENSION(*) :: buf ! data buffer + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + + INTERFACE + INTEGER FUNCTION h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nint1_c') + IMPORT :: C_CHAR + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER, INTENT(in), DIMENSION(*) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_nint1_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,h5t_native_integer,buf) + + END SUBROUTINE h5ltmake_dataset_int_f_1 + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_int_f_2 + ! + ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltmake_dataset_int_f_2 (loc_id,& + dset_name,& + rank,& + dims,& + buf,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltmake_dataset_int_f_2 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + + + INTERFACE + INTEGER FUNCTION h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nint2_c') + IMPORT :: C_CHAR + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_nint2_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + + END SUBROUTINE h5ltmake_dataset_int_f_2 + + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_int_f_3 + ! + ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltmake_dataset_int_f_3 (loc_id,& + dset_name,& + rank,& + dims,& + buf,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltmake_dataset_int_f_3 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer + + + INTERFACE + INTEGER FUNCTION h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nint3_c') + IMPORT :: C_CHAR + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_nint3_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + + END SUBROUTINE h5ltmake_dataset_int_f_3 + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_int_f_4 + ! + ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltmake_dataset_int_f_4(loc_id, dset_name, rank, dims, & + buf, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltmake_dataset_int_f_4 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + + + INTERFACE + INTEGER FUNCTION h5ltmake_dataset_nint4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nint4_c') + IMPORT :: C_CHAR + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_nint4_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_nint4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + + END SUBROUTINE h5ltmake_dataset_int_f_4 + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_int_f_5 + ! + ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltmake_dataset_int_f_5(loc_id, dset_name, rank, dims, & + buf, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltmake_dataset_int_f_5 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + + + INTERFACE + INTEGER FUNCTION h5ltmake_dataset_nint5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nint5_c') + IMPORT :: C_CHAR + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_nint5_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_nint5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + + END SUBROUTINE h5ltmake_dataset_int_f_5 + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_int_f_6 + ! + ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltmake_dataset_int_f_6(loc_id, dset_name, rank, dims, & + buf, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltmake_dataset_int_f_6 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + + + INTERFACE + INTEGER FUNCTION h5ltmake_dataset_nint6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nint6_c') + IMPORT :: C_CHAR + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_nint6_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_nint6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + + END SUBROUTINE h5ltmake_dataset_int_f_6 + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_int_f_7 + ! + ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: M. Scot Breitenfeld + ! + ! Date: March 8, 2011 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltmake_dataset_int_f_7(loc_id, dset_name, rank, dims, & + buf, errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltmake_dataset_int_f_7 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + + + INTERFACE + INTEGER FUNCTION h5ltmake_dataset_nint7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nint7_c') + IMPORT :: C_CHAR + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER, INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_nint7_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_nint7_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + + END SUBROUTINE h5ltmake_dataset_int_f_7 + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_c_float_f_1 + ! + ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltmake_dataset_c_float_f_1 (loc_id,& + dset_name,& + rank,& + dims,& + buf,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_1 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + + INTERFACE + INTEGER FUNCTION h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nfl1_c') + IMPORT :: C_CHAR, C_FLOAT + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + !DEC$IF DEFINED(HDF5F90_WINDOWS) + !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NFL1_C'::h5ltmake_dataset_nfl1_c + !DEC$ENDIF + !DEC$ATTRIBUTES reference :: dset_name + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_nfl1_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + + END SUBROUTINE h5ltmake_dataset_c_float_f_1 + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_c_float_f_2 + ! + ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type + ! + ! Return: Success: 0, Failure: -1 + ! + ! Programmer: pvn@ncsa.uiuc.edu + ! + ! Date: September 22, 2004 + ! + ! Comments: + ! + ! Modifications: + ! + !------------------------------------------------------------------------- + + SUBROUTINE h5ltmake_dataset_c_float_f_2 (loc_id,& + dset_name,& + rank,& + dims,& + buf,& + errcode ) + + IMPLICIT NONE + + ! + !This definition is needed for Windows DLLs + !DEC$if defined(BUILD_HDF5_HL_DLL) + !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_2 + !DEC$endif + ! + + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + INTEGER :: errcode ! error code + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_FLOAT), INTENT(in), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + + INTERFACE + INTEGER FUNCTION h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nfl2_c') + IMPORT :: C_CHAR, C_FLOAT + IMPORT :: HID_T, SIZE_T, HSIZE_T + IMPLICIT NONE + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER(size_t) :: namelen ! length of name buffer + CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank + INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf + REAL(KIND=C_FLOAT), INTENT(in), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_nfl2_c + END INTERFACE + + namelen = LEN(dset_name) + errcode = h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + + END SUBROUTINE h5ltmake_dataset_c_float_f_2 + + !------------------------------------------------------------------------- + ! Function: h5ltmake_dataset_c_float_f_3 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type ! ! Return: Success: 0, Failure: -1 ! @@ -2482,11 +4257,11 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_double3(loc_id,& + SUBROUTINE h5ltmake_dataset_c_float_f_3 (loc_id,& dset_name,& - type_id,& - buf,& + rank,& dims,& + buf,& errcode ) IMPLICIT NONE @@ -2494,44 +4269,45 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_double3 + !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_3 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_dl3_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nfl3_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_dl3_c + END FUNCTION h5ltmake_dataset_nfl3_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_dl3_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) - END SUBROUTINE h5ltread_dataset_f_c_double3 + END SUBROUTINE h5ltmake_dataset_c_float_f_3 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_double4 + ! Function: h5ltmake_dataset_c_float_f_4 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type ! ! Return: Success: 0, Failure: -1 ! @@ -2545,52 +4321,53 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_double4(loc_id, dset_name, type_id, buf, & - dims, errcode ) + SUBROUTINE h5ltmake_dataset_c_float_f_4 (loc_id, dset_name, rank, dims, & + buf, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_double4 + !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_4 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_dl4_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_dl4_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltmake_dataset_nfl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nfl4_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_dl4_c + END FUNCTION h5ltmake_dataset_nfl4_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_dl4_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_nfl4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) - END SUBROUTINE h5ltread_dataset_f_c_double4 + END SUBROUTINE h5ltmake_dataset_c_float_f_4 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_double5 + ! Function: h5ltmake_dataset_c_float_f_5 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type ! ! Return: Success: 0, Failure: -1 ! @@ -2604,52 +4381,53 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_double5(loc_id, dset_name, type_id, buf, & - dims, errcode ) + SUBROUTINE h5ltmake_dataset_c_float_f_5 (loc_id, dset_name, rank, dims, & + buf, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_double5 + !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_5 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_dl5_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_dl5_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltmake_dataset_nfl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nfl5_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_dl5_c + END FUNCTION h5ltmake_dataset_nfl5_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_dl5_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_nfl5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) - END SUBROUTINE h5ltread_dataset_f_c_double5 + END SUBROUTINE h5ltmake_dataset_c_float_f_5 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_double6 + ! Function: h5ltmake_dataset_c_float_f_6 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type ! ! Return: Success: 0, Failure: -1 ! @@ -2663,52 +4441,53 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_double6(loc_id, dset_name, type_id, buf, & - dims, errcode ) + SUBROUTINE h5ltmake_dataset_c_float_f_6 (loc_id, dset_name, rank, dims, & + buf, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_double6 + !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_6 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_dl6_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_dl6_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltmake_dataset_nfl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nfl6_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_dl6_c + END FUNCTION h5ltmake_dataset_nfl6_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_dl6_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_nfl6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) - END SUBROUTINE h5ltread_dataset_f_c_double6 + END SUBROUTINE h5ltmake_dataset_c_float_f_6 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_f_c_double7 + ! Function: h5ltmake_dataset_c_float_f_7 ! - ! Purpose: Read a dataset of a type TYPE_ID + ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type ! ! Return: Success: 0, Failure: -1 ! @@ -2722,52 +4501,53 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_f_c_double7(loc_id, dset_name, type_id, buf, & - dims, errcode ) + SUBROUTINE h5ltmake_dataset_c_float_f_7 (loc_id, dset_name, rank, dims, & + buf, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_f_c_double7 + !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_7 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_dl7_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_dl7_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltmake_dataset_nfl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_nfl7_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset + INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + REAL(KIND=C_FLOAT), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_dl7_c + END FUNCTION h5ltmake_dataset_nfl7_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_dl7_c(loc_id,namelen,dset_name,type_id,buf,dims) + errcode = h5ltmake_dataset_nfl7_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) - END SUBROUTINE h5ltread_dataset_f_c_double7 + END SUBROUTINE h5ltmake_dataset_c_float_f_7 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_int_f_1 + ! Function: h5ltmake_dataset_c_double_f_1 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -2781,7 +4561,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_int_f_1 (loc_id,& + SUBROUTINE h5ltmake_dataset_c_double_f_1 (loc_id,& dset_name,& rank,& dims,& @@ -2793,7 +4573,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_int_f_1 + !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_1 !DEC$endif ! @@ -2801,14 +4581,15 @@ CONTAINS CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), DIMENSION(*) :: buf ! data buffer INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nint1_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl1_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2817,19 +4598,21 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), DIMENSION(*) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nint1_c + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_ndl1_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nint1_c(loc_id,namelen,dset_name,rank,dims,h5t_native_integer,buf) + errcode = h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + + END SUBROUTINE h5ltmake_dataset_c_double_f_1 - END SUBROUTINE h5ltmake_dataset_int_f_1 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_int_f_2 + ! Function: h5ltmake_dataset_c_double_f_2 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -2843,7 +4626,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_int_f_2 (loc_id,& + SUBROUTINE h5ltmake_dataset_c_double_f_2 (loc_id,& dset_name,& rank,& dims,& @@ -2855,7 +4638,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_int_f_2 + !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_2 !DEC$endif ! @@ -2865,14 +4648,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(in), & + REAL(KIND=C_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer - INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nint2_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl2_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2881,21 +4663,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & - DIMENSION(dims(1),dims(2)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nint2_c + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_ndl2_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nint2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) - - END SUBROUTINE h5ltmake_dataset_int_f_2 + errcode = h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + END SUBROUTINE h5ltmake_dataset_c_double_f_2 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_int_f_3 + ! Function: h5ltmake_dataset_c_double_f_3 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -2909,7 +4690,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_int_f_3 (loc_id,& + SUBROUTINE h5ltmake_dataset_c_double_f_3 (loc_id,& dset_name,& rank,& dims,& @@ -2921,7 +4702,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_int_f_3 + !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_3 !DEC$endif ! @@ -2931,14 +4712,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(in), & + REAL(KIND=C_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer - INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nint3_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl3_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -2947,20 +4727,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & + REAL(KIND=C_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nint3_c + END FUNCTION h5ltmake_dataset_ndl3_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nint3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + errcode = h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_int_f_3 + END SUBROUTINE h5ltmake_dataset_c_double_f_3 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_int_f_4 + ! Function: h5ltmake_dataset_c_double_f_4 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -2974,7 +4754,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_int_f_4(loc_id, dset_name, rank, dims, & + SUBROUTINE h5ltmake_dataset_c_double_f_4 (loc_id, dset_name, rank, dims,& buf, errcode ) IMPLICIT NONE @@ -2982,7 +4762,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_int_f_4 + !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_4 !DEC$endif ! @@ -2992,14 +4772,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(in), & + REAL(KIND=C_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer - INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nint4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nint4_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_ndl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl4_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3008,20 +4787,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & - DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nint4_c + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_ndl4_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nint4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + errcode = h5ltmake_dataset_ndl4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_int_f_4 + END SUBROUTINE h5ltmake_dataset_c_double_f_4 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_int_f_5 + ! Function: h5ltmake_dataset_c_double_f_5 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3035,7 +4814,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_int_f_5(loc_id, dset_name, rank, dims, & + SUBROUTINE h5ltmake_dataset_c_double_f_5 (loc_id, dset_name, rank, dims,& buf, errcode ) IMPLICIT NONE @@ -3043,7 +4822,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_int_f_5 + !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_5 !DEC$endif ! @@ -3053,14 +4832,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(in), & + REAL(KIND=C_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer - INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nint5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nint5_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl5_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3069,20 +4847,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & - DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nint5_c + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_ndl5_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nint5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + errcode = h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_int_f_5 + END SUBROUTINE h5ltmake_dataset_c_double_f_5 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_int_f_6 + ! Function: h5ltmake_dataset_c_double_f_6 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3096,7 +4874,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_int_f_6(loc_id, dset_name, rank, dims, & + SUBROUTINE h5ltmake_dataset_c_double_f_6 (loc_id, dset_name, rank, dims,& buf, errcode ) IMPLICIT NONE @@ -3104,7 +4882,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_int_f_6 + !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_5 !DEC$endif ! @@ -3114,14 +4892,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(in), & + REAL(KIND=C_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer - INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nint6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nint6_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_ndl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl6_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3130,20 +4907,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & - DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nint6_c + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_ndl6_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nint6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + errcode = h5ltmake_dataset_ndl6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_int_f_6 + END SUBROUTINE h5ltmake_dataset_c_double_f_6 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_int_f_7 + ! Function: h5ltmake_dataset_c_double_f_7 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_INT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3157,7 +4934,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_int_f_7(loc_id, dset_name, rank, dims, & + SUBROUTINE h5ltmake_dataset_c_double_f_7 (loc_id, dset_name, rank, dims,& buf, errcode ) IMPLICIT NONE @@ -3165,7 +4942,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_int_f_7 + !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_5 !DEC$endif ! @@ -3175,14 +4952,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(in), & + REAL(KIND=C_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer - INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nint7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nint7_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltmake_dataset_ndl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl7_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3191,20 +4967,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(in), & - DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nint7_c + REAL(KIND=C_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_ndl7_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nint7_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_INTEGER,buf) + errcode = h5ltmake_dataset_ndl7_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_int_f_7 + END SUBROUTINE h5ltmake_dataset_c_double_f_7 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_float_f_1 + ! Function: h5ltmake_dataset_c_long_double_f_1 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3218,7 +4994,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_float_f_1 (loc_id,& + SUBROUTINE h5ltmake_dataset_c_long_double_f_1 (loc_id,& dset_name,& rank,& dims,& @@ -3230,7 +5006,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_1 + !DEC$attributes dllexport :: h5ltmake_dataset_c_long_double_f_1 !DEC$endif ! @@ -3238,39 +5014,38 @@ CONTAINS CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nfl1_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl1_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE - !DEC$IF DEFINED(HDF5F90_WINDOWS) - !DEC$ATTRIBUTES C,reference,decorate,alias:'H5LTMAKE_DATASET_NFL1_C'::h5ltmake_dataset_nfl1_c - !DEC$ENDIF - !DEC$ATTRIBUTES reference :: dset_name INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), DIMENSION(*) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nfl1_c + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_ndl1_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nfl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + errcode = h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + + END SUBROUTINE h5ltmake_dataset_c_long_double_f_1 - END SUBROUTINE h5ltmake_dataset_c_float_f_1 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_float_f_2 + ! Function: h5ltmake_dataset_c_long_double_f_2 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3284,7 +5059,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_float_f_2 (loc_id,& + SUBROUTINE h5ltmake_dataset_c_long_double_f_2 (loc_id,& dset_name,& rank,& dims,& @@ -3296,7 +5071,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_2 + !DEC$attributes dllexport :: h5ltmake_dataset_c_long_double_f_2 !DEC$endif ! @@ -3306,13 +5081,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nfl2_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl2_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3321,20 +5096,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & - DIMENSION(dims(1),dims(2)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nfl2_c + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & + DIMENSION(dims(1),dims(2)) :: buf ! data buffer + END FUNCTION h5ltmake_dataset_ndl2_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nfl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + errcode = h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_c_float_f_2 + END SUBROUTINE h5ltmake_dataset_c_long_double_f_2 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_float_f_3 + ! Function: h5ltmake_dataset_c_long_double_f_3 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3348,7 +5123,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_float_f_3 (loc_id,& + SUBROUTINE h5ltmake_dataset_c_long_double_f_3 (loc_id,& dset_name,& rank,& dims,& @@ -3360,7 +5135,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_3 + !DEC$attributes dllexport :: h5ltmake_dataset_c_long_double_f_3 !DEC$endif ! @@ -3370,13 +5145,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nfl3_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl3_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3385,20 +5160,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nfl3_c + END FUNCTION h5ltmake_dataset_ndl3_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nfl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + errcode = h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_c_float_f_3 + END SUBROUTINE h5ltmake_dataset_c_long_double_f_3 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_float_f_4 + ! Function: h5ltmake_dataset_c_long_double_f_4 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3412,7 +5187,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_float_f_4 (loc_id, dset_name, rank, dims, & + SUBROUTINE h5ltmake_dataset_c_long_double_f_4 (loc_id, dset_name, rank, dims,& buf, errcode ) IMPLICIT NONE @@ -3420,7 +5195,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_4 + !DEC$attributes dllexport :: h5ltmake_dataset_c_long_double_f_4 !DEC$endif ! @@ -3430,13 +5205,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nfl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nfl4_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltmake_dataset_ndl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl4_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3445,20 +5220,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nfl4_c + END FUNCTION h5ltmake_dataset_ndl4_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nfl4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + errcode = h5ltmake_dataset_ndl4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_c_float_f_4 + END SUBROUTINE h5ltmake_dataset_c_long_double_f_4 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_float_f_5 + ! Function: h5ltmake_dataset_c_long_double_f_5 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3472,7 +5247,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_float_f_5 (loc_id, dset_name, rank, dims, & + SUBROUTINE h5ltmake_dataset_c_long_double_f_5 (loc_id, dset_name, rank, dims,& buf, errcode ) IMPLICIT NONE @@ -3480,7 +5255,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_5 + !DEC$attributes dllexport :: h5ltmake_dataset_c_long_double_f_5 !DEC$endif ! @@ -3490,13 +5265,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nfl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nfl5_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl5_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3505,20 +5280,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nfl5_c + END FUNCTION h5ltmake_dataset_ndl5_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nfl5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + errcode = h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_c_float_f_5 + END SUBROUTINE h5ltmake_dataset_c_long_double_f_5 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_float_f_6 + ! Function: h5ltmake_dataset_c_long_double_f_6 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3532,7 +5307,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_float_f_6 (loc_id, dset_name, rank, dims, & + SUBROUTINE h5ltmake_dataset_c_long_double_f_6 (loc_id, dset_name, rank, dims,& buf, errcode ) IMPLICIT NONE @@ -3540,7 +5315,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_6 + !DEC$attributes dllexport :: h5ltmake_dataset_c_long_double_f_5 !DEC$endif ! @@ -3550,13 +5325,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nfl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nfl6_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltmake_dataset_ndl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl6_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3565,20 +5340,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nfl6_c + END FUNCTION h5ltmake_dataset_ndl6_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nfl6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) + errcode = h5ltmake_dataset_ndl6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) - END SUBROUTINE h5ltmake_dataset_c_float_f_6 + END SUBROUTINE h5ltmake_dataset_c_long_double_f_6 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_float_f_7 + ! Function: h5ltmake_dataset_c_long_double_f_7 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_C_FLOAT type + ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type ! ! Return: Success: 0, Failure: -1 ! @@ -3592,7 +5367,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_float_f_7 (loc_id, dset_name, rank, dims, & + SUBROUTINE h5ltmake_dataset_c_long_double_f_7 (loc_id, dset_name, rank, dims,& buf, errcode ) IMPLICIT NONE @@ -3600,7 +5375,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_float_f_7 + !DEC$attributes dllexport :: h5ltmake_dataset_c_long_double_f_5 !DEC$endif ! @@ -3610,13 +5385,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_nfl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_nfl7_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltmake_dataset_ndl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & + BIND(C,NAME='h5ltmake_dataset_ndl7_c') + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -3625,21 +5400,20 @@ CONTAINS CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(in), & + REAL(KIND=C_LONG_DOUBLE), INTENT(in), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_nfl7_c + END FUNCTION h5ltmake_dataset_ndl7_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_nfl7_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_REAL,buf) - - END SUBROUTINE h5ltmake_dataset_c_float_f_7 + errcode = h5ltmake_dataset_ndl7_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + END SUBROUTINE h5ltmake_dataset_c_long_double_f_7 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_double_f_1 + ! Function: h5ltread_dataset_int_f_1 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type + ! Purpose: Read a dataset ! ! Return: Success: 0, Failure: -1 ! @@ -3653,11 +5427,10 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_double_f_1 (loc_id,& + SUBROUTINE h5ltread_dataset_int_f_1(loc_id,& dset_name,& - rank,& - dims,& buf,& + dims,& errcode ) IMPLICIT NONE @@ -3665,46 +5438,44 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_1 + !DEC$attributes dllexport :: h5ltread_dataset_int_f_1 !DEC$endif ! - INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier + INTEGER(HID_T), INTENT(IN) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_ndl1_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nint1_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_ndl1_c + END FUNCTION h5ltread_dataset_nint1_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_ndl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) - END SUBROUTINE h5ltmake_dataset_c_double_f_1 + END SUBROUTINE h5ltread_dataset_int_f_1 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_double_f_2 + ! Function: h5ltread_dataset_int_f_2 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type + ! Purpose: Read a dataset ! ! Return: Success: 0, Failure: -1 ! @@ -3718,11 +5489,10 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_double_f_2 (loc_id,& + SUBROUTINE h5ltread_dataset_int_f_2(loc_id,& dset_name,& - rank,& - dims,& buf,& + dims,& errcode ) IMPLICIT NONE @@ -3730,45 +5500,43 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_2 + !DEC$attributes dllexport :: h5ltread_dataset_int_f_2 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_ndl2_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nint2_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_ndl2_c + END FUNCTION h5ltread_dataset_nint2_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_ndl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) - END SUBROUTINE h5ltmake_dataset_c_double_f_2 + END SUBROUTINE h5ltread_dataset_int_f_2 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_double_f_3 + ! Function: h5ltread_dataset_int_f_3 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type + ! Purpose: Read a dataset ! ! Return: Success: 0, Failure: -1 ! @@ -3782,11 +5550,10 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_double_f_3 (loc_id,& + SUBROUTINE h5ltread_dataset_int_f_3(loc_id,& dset_name,& - rank,& - dims,& buf,& + dims,& errcode ) IMPLICIT NONE @@ -3794,45 +5561,43 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_3 + !DEC$attributes dllexport :: h5ltread_dataset_int_f_3 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_ndl3_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nint3_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_ndl3_c + END FUNCTION h5ltread_dataset_nint3_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) - END SUBROUTINE h5ltmake_dataset_c_double_f_3 + END SUBROUTINE h5ltread_dataset_int_f_3 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_double_f_4 + ! Function: h5ltread_dataset_int_f_4 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type + ! Purpose: Read a dataset ! ! Return: Success: 0, Failure: -1 ! @@ -3846,53 +5611,50 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_double_f_4 (loc_id, dset_name, rank, dims,& - buf, errcode ) + SUBROUTINE h5ltread_dataset_int_f_4(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_4 + !DEC$attributes dllexport :: h5ltread_dataset_int_f_4 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_ndl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_ndl4_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltread_dataset_nint4_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nint4_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_ndl4_c + END FUNCTION h5ltread_dataset_nint4_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_ndl4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltread_dataset_nint4_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) - END SUBROUTINE h5ltmake_dataset_c_double_f_4 + END SUBROUTINE h5ltread_dataset_int_f_4 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_double_f_5 + ! Function: h5ltread_dataset_int_f_5 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type + ! Purpose: Read a dataset ! ! Return: Success: 0, Failure: -1 ! @@ -3906,53 +5668,50 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_double_f_5 (loc_id, dset_name, rank, dims,& - buf, errcode ) + SUBROUTINE h5ltread_dataset_int_f_5(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_5 + !DEC$attributes dllexport :: h5ltread_dataset_int_f_5 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_ndl5_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltread_dataset_nint5_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nint5_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_ndl5_c + END FUNCTION h5ltread_dataset_nint5_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltread_dataset_nint5_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) - END SUBROUTINE h5ltmake_dataset_c_double_f_5 + END SUBROUTINE h5ltread_dataset_int_f_5 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_double_f_6 + ! Function: h5ltread_dataset_int_f_6 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type + ! Purpose: Read a dataset ! ! Return: Success: 0, Failure: -1 ! @@ -3966,53 +5725,50 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_double_f_6 (loc_id, dset_name, rank, dims,& - buf, errcode ) + SUBROUTINE h5ltread_dataset_int_f_6(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_5 + !DEC$attributes dllexport :: h5ltread_dataset_int_f_6 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_ndl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_ndl6_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltread_dataset_nint6_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nint6_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_ndl6_c + END FUNCTION h5ltread_dataset_nint6_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_ndl6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltread_dataset_nint6_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) - END SUBROUTINE h5ltmake_dataset_c_double_f_6 + END SUBROUTINE h5ltread_dataset_int_f_6 !------------------------------------------------------------------------- - ! Function: h5ltmake_dataset_c_double_f_7 + ! Function: h5ltread_dataset_int_f_7 ! - ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type + ! Purpose: Read a dataset ! ! Return: Success: 0, Failure: -1 ! @@ -4026,51 +5782,49 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltmake_dataset_c_double_f_7 (loc_id, dset_name, rank, dims,& - buf, errcode ) + SUBROUTINE h5ltread_dataset_int_f_7(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltmake_dataset_c_double_f_5 + !DEC$attributes dllexport :: h5ltread_dataset_int_f_7 !DEC$endif ! INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltmake_dataset_ndl7_c(loc_id,namelen,dset_name,rank,dims,type_id,buf) & - BIND(C,NAME='h5ltmake_dataset_ndl7_c') - IMPORT :: C_CHAR, C_DOUBLE + INTEGER FUNCTION h5ltread_dataset_nint7_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nint7_c') + IMPORT :: C_CHAR IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset - INTEGER, INTENT(in) :: rank ! rank INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(in), & + INTEGER, INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer - END FUNCTION h5ltmake_dataset_ndl7_c + END FUNCTION h5ltread_dataset_nint7_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltmake_dataset_ndl7_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf) + errcode = h5ltread_dataset_nint7_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + + END SUBROUTINE h5ltread_dataset_int_f_7 - END SUBROUTINE h5ltmake_dataset_c_double_f_7 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_int_f_1 + ! Function: h5ltread_dataset_c_float_f_1 ! ! Purpose: Read a dataset ! @@ -4086,7 +5840,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_int_f_1(loc_id,& + SUBROUTINE h5ltread_dataset_c_float_f_1(loc_id,& dset_name,& buf,& dims,& @@ -4097,22 +5851,22 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_int_f_1 + !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_1 !DEC$endif ! - INTEGER(HID_T), INTENT(IN) :: loc_id ! file or group identifier + INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nint1_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nfl1_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4120,19 +5874,19 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nint1_c + END FUNCTION h5ltread_dataset_nfl1_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nint1_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + errcode = h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) - END SUBROUTINE h5ltread_dataset_int_f_1 + END SUBROUTINE h5ltread_dataset_c_float_f_1 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_int_f_2 + ! Function: h5ltread_dataset_c_float_f_2 ! ! Purpose: Read a dataset ! @@ -4148,7 +5902,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_int_f_2(loc_id,& + SUBROUTINE h5ltread_dataset_c_float_f_2(loc_id,& dset_name,& buf,& dims,& @@ -4159,7 +5913,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_int_f_2 + !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_2 !DEC$endif ! @@ -4168,13 +5922,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nint2_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nfl2_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4182,18 +5936,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nint2_c + END FUNCTION h5ltread_dataset_nfl2_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nint2_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + errcode = h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) - END SUBROUTINE h5ltread_dataset_int_f_2 + END SUBROUTINE h5ltread_dataset_c_float_f_2 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_int_f_3 + ! Function: h5ltread_dataset_c_float_f_3 ! ! Purpose: Read a dataset ! @@ -4209,7 +5963,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_int_f_3(loc_id,& + SUBROUTINE h5ltread_dataset_c_float_f_3(loc_id,& dset_name,& buf,& dims,& @@ -4220,7 +5974,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_int_f_3 + !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_3 !DEC$endif ! @@ -4229,13 +5983,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nint3_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nfl3_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4243,18 +5997,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nint3_c + END FUNCTION h5ltread_dataset_nfl3_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nint3_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + errcode = h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) - END SUBROUTINE h5ltread_dataset_int_f_3 + END SUBROUTINE h5ltread_dataset_c_float_f_3 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_int_f_4 + ! Function: h5ltread_dataset_c_float_f_4 ! ! Purpose: Read a dataset ! @@ -4270,14 +6024,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_int_f_4(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_float_f_4(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_int_f_4 + !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_4 !DEC$endif ! @@ -4286,13 +6040,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nint4_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nint4_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltread_dataset_nfl4_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nfl4_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4300,18 +6054,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nint4_c + END FUNCTION h5ltread_dataset_nfl4_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nint4_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + errcode = h5ltread_dataset_nfl4_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) - END SUBROUTINE h5ltread_dataset_int_f_4 + END SUBROUTINE h5ltread_dataset_c_float_f_4 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_int_f_5 + ! Function: h5ltread_dataset_c_float_f_5 ! ! Purpose: Read a dataset ! @@ -4327,14 +6081,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_int_f_5(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_float_f_5(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_int_f_5 + !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_5 !DEC$endif ! @@ -4343,13 +6097,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nint5_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nint5_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltread_dataset_nfl5_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nfl5_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4357,18 +6111,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nint5_c + END FUNCTION h5ltread_dataset_nfl5_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nint5_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + errcode = h5ltread_dataset_nfl5_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) - END SUBROUTINE h5ltread_dataset_int_f_5 + END SUBROUTINE h5ltread_dataset_c_float_f_5 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_int_f_6 + ! Function: h5ltread_dataset_c_float_f_6 ! ! Purpose: Read a dataset ! @@ -4384,14 +6138,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_int_f_6(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_float_f_6(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_int_f_6 + !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_6 !DEC$endif ! @@ -4400,13 +6154,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nint6_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nint6_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltread_dataset_nfl6_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nfl6_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4414,18 +6168,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nint6_c + END FUNCTION h5ltread_dataset_nfl6_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nint6_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) + errcode = h5ltread_dataset_nfl6_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) - END SUBROUTINE h5ltread_dataset_int_f_6 + END SUBROUTINE h5ltread_dataset_c_float_f_6 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_int_f_7 + ! Function: h5ltread_dataset_c_float_f_7 ! ! Purpose: Read a dataset ! @@ -4441,14 +6195,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_int_f_7(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_float_f_7(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_int_f_7 + !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_7 !DEC$endif ! @@ -4457,13 +6211,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nint7_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nint7_c') - IMPORT :: C_CHAR + INTEGER FUNCTION h5ltread_dataset_nfl7_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_nfl7_c') + IMPORT :: C_CHAR, C_FLOAT IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4471,19 +6225,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - INTEGER, INTENT(inout), & + REAL(KIND=C_FLOAT), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nint7_c + END FUNCTION h5ltread_dataset_nfl7_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nint7_c(loc_id,namelen,dset_name,H5T_NATIVE_INTEGER,buf,dims) - - END SUBROUTINE h5ltread_dataset_int_f_7 + errcode = h5ltread_dataset_nfl7_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + END SUBROUTINE h5ltread_dataset_c_float_f_7 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_float_f_1 + ! Function: h5ltread_dataset_c_double_f_1 ! ! Purpose: Read a dataset ! @@ -4499,7 +6252,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_float_f_1(loc_id,& + SUBROUTINE h5ltread_dataset_c_double_f_1(loc_id,& dset_name,& buf,& dims,& @@ -4510,7 +6263,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_1 + !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_1 !DEC$endif ! @@ -4519,13 +6272,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nfl1_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_ndl1_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4533,19 +6286,19 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nfl1_c + END FUNCTION h5ltread_dataset_ndl1_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nfl1_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_float_f_1 + END SUBROUTINE h5ltread_dataset_c_double_f_1 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_float_f_2 + ! Function: h5ltread_dataset_c_double_f_2 ! ! Purpose: Read a dataset ! @@ -4561,7 +6314,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_float_f_2(loc_id,& + SUBROUTINE h5ltread_dataset_c_double_f_2(loc_id,& dset_name,& buf,& dims,& @@ -4572,7 +6325,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_2 + !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_2 !DEC$endif ! @@ -4581,13 +6334,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nfl2_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_ndl2_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4595,18 +6348,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nfl2_c + END FUNCTION h5ltread_dataset_ndl2_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nfl2_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_float_f_2 + END SUBROUTINE h5ltread_dataset_c_double_f_2 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_float_f_3 + ! Function: h5ltread_dataset_c_double_f_3 ! ! Purpose: Read a dataset ! @@ -4622,7 +6375,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_float_f_3(loc_id,& + SUBROUTINE h5ltread_dataset_c_double_f_3(loc_id,& dset_name,& buf,& dims,& @@ -4633,7 +6386,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_3 + !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_3 !DEC$endif ! @@ -4642,13 +6395,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nfl3_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_ndl3_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4656,18 +6409,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nfl3_c + END FUNCTION h5ltread_dataset_ndl3_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nfl3_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_float_f_3 + END SUBROUTINE h5ltread_dataset_c_double_f_3 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_float_f_4 + ! Function: h5ltread_dataset_c_double_f_4 ! ! Purpose: Read a dataset ! @@ -4683,14 +6436,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_float_f_4(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_double_f_4(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_4 + !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_4 !DEC$endif ! @@ -4699,13 +6452,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nfl4_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nfl4_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_ndl4_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_ndl4_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4713,18 +6466,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nfl4_c + END FUNCTION h5ltread_dataset_ndl4_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nfl4_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_ndl4_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_float_f_4 + END SUBROUTINE h5ltread_dataset_c_double_f_4 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_float_f_5 + ! Function: h5ltread_dataset_c_double_f_5 ! ! Purpose: Read a dataset ! @@ -4740,14 +6493,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_float_f_5(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_double_f_5(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_5 + !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_5 !DEC$endif ! @@ -4756,13 +6509,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nfl5_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nfl5_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_ndl5_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_ndl5_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4770,18 +6523,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nfl5_c + END FUNCTION h5ltread_dataset_ndl5_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nfl5_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_ndl5_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_float_f_5 + END SUBROUTINE h5ltread_dataset_c_double_f_5 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_float_f_6 + ! Function: h5ltread_dataset_c_double_f_6 ! ! Purpose: Read a dataset ! @@ -4797,14 +6550,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_float_f_6(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_double_f_6(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_6 + !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_6 !DEC$endif ! @@ -4813,13 +6566,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nfl6_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nfl6_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_ndl6_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_ndl6_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4827,18 +6580,18 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nfl6_c + END FUNCTION h5ltread_dataset_ndl6_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nfl6_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_ndl6_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_float_f_6 + END SUBROUTINE h5ltread_dataset_c_double_f_6 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_float_f_7 + ! Function: h5ltread_dataset_c_double_f_7 ! ! Purpose: Read a dataset ! @@ -4854,14 +6607,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_float_f_7(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_double_f_7(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_float_f_7 + !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_7 !DEC$endif ! @@ -4869,33 +6622,33 @@ CONTAINS CHARACTER(LEN=*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code - INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_FLOAT), INTENT(inout), & + INTEGER(size_t) :: namelen ! name length + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer INTERFACE - INTEGER FUNCTION h5ltread_dataset_nfl7_c(loc_id,namelen,dset_name,type_id,buf,dims) & - BIND(C,NAME='h5ltread_dataset_nfl7_c') - IMPORT :: C_CHAR, C_FLOAT + INTEGER FUNCTION h5ltread_dataset_ndl7_c(loc_id,namelen,dset_name,type_id,buf,dims) & + BIND(C,NAME='h5ltread_dataset_ndl7_c') + IMPORT :: C_CHAR, C_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier INTEGER(hid_t), INTENT(in) :: type_id ! datatype identifier - INTEGER(size_t) :: namelen ! length of name buffer + INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_FLOAT), INTENT(inout), & + REAL(KIND=C_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer - END FUNCTION h5ltread_dataset_nfl7_c + END FUNCTION h5ltread_dataset_ndl7_c END INTERFACE namelen = LEN(dset_name) - errcode = h5ltread_dataset_nfl7_c(loc_id,namelen,dset_name,H5T_NATIVE_REAL,buf,dims) + errcode = h5ltread_dataset_ndl7_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_float_f_7 + END SUBROUTINE h5ltread_dataset_c_double_f_7 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_double_f_1 + ! Function: h5ltread_dataset_c_long_double_f_1 ! ! Purpose: Read a dataset ! @@ -4911,7 +6664,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_double_f_1(loc_id,& + SUBROUTINE h5ltread_dataset_c_long_double_f_1(loc_id,& dset_name,& buf,& dims,& @@ -4922,7 +6675,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_1 + !DEC$attributes dllexport :: h5ltread_dataset_c_long_double_f_1 !DEC$endif ! @@ -4931,13 +6684,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1)) :: buf ! data buffer INTERFACE INTEGER FUNCTION h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,type_id,buf,dims) & BIND(C,NAME='h5ltread_dataset_ndl1_c') - IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -4945,7 +6698,7 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1)) :: buf ! data buffer END FUNCTION h5ltread_dataset_ndl1_c END INTERFACE @@ -4953,11 +6706,11 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_double_f_1 + END SUBROUTINE h5ltread_dataset_c_long_double_f_1 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_double_f_2 + ! Function: h5ltread_dataset_c_long_double_f_2 ! ! Purpose: Read a dataset ! @@ -4973,7 +6726,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_double_f_2(loc_id,& + SUBROUTINE h5ltread_dataset_c_long_double_f_2(loc_id,& dset_name,& buf,& dims,& @@ -4984,7 +6737,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_2 + !DEC$attributes dllexport :: h5ltread_dataset_c_long_double_f_2 !DEC$endif ! @@ -4993,13 +6746,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer INTERFACE INTEGER FUNCTION h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,type_id,buf,dims) & BIND(C,NAME='h5ltread_dataset_ndl2_c') - IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -5007,7 +6760,7 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2)) :: buf ! data buffer END FUNCTION h5ltread_dataset_ndl2_c END INTERFACE @@ -5015,10 +6768,10 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_double_f_2 + END SUBROUTINE h5ltread_dataset_c_long_double_f_2 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_double_f_3 + ! Function: h5ltread_dataset_c_long_double_f_3 ! ! Purpose: Read a dataset ! @@ -5034,7 +6787,7 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_double_f_3(loc_id,& + SUBROUTINE h5ltread_dataset_c_long_double_f_3(loc_id,& dset_name,& buf,& dims,& @@ -5045,7 +6798,7 @@ CONTAINS ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_3 + !DEC$attributes dllexport :: h5ltread_dataset_c_long_double_f_3 !DEC$endif ! @@ -5054,13 +6807,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer INTERFACE INTEGER FUNCTION h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,type_id,buf,dims) & BIND(C,NAME='h5ltread_dataset_ndl3_c') - IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -5068,7 +6821,7 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer END FUNCTION h5ltread_dataset_ndl3_c END INTERFACE @@ -5076,10 +6829,10 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_double_f_3 + END SUBROUTINE h5ltread_dataset_c_long_double_f_3 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_double_f_4 + ! Function: h5ltread_dataset_c_long_double_f_4 ! ! Purpose: Read a dataset ! @@ -5095,14 +6848,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_double_f_4(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_long_double_f_4(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_4 + !DEC$attributes dllexport :: h5ltread_dataset_c_long_double_f_4 !DEC$endif ! @@ -5111,13 +6864,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer INTERFACE INTEGER FUNCTION h5ltread_dataset_ndl4_c(loc_id,namelen,dset_name,type_id,buf,dims) & BIND(C,NAME='h5ltread_dataset_ndl4_c') - IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -5125,7 +6878,7 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer END FUNCTION h5ltread_dataset_ndl4_c END INTERFACE @@ -5133,10 +6886,10 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltread_dataset_ndl4_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_double_f_4 + END SUBROUTINE h5ltread_dataset_c_long_double_f_4 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_double_f_5 + ! Function: h5ltread_dataset_c_long_double_f_5 ! ! Purpose: Read a dataset ! @@ -5152,14 +6905,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_double_f_5(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_long_double_f_5(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_5 + !DEC$attributes dllexport :: h5ltread_dataset_c_long_double_f_5 !DEC$endif ! @@ -5168,13 +6921,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer INTERFACE INTEGER FUNCTION h5ltread_dataset_ndl5_c(loc_id,namelen,dset_name,type_id,buf,dims) & BIND(C,NAME='h5ltread_dataset_ndl5_c') - IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -5182,7 +6935,7 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer END FUNCTION h5ltread_dataset_ndl5_c END INTERFACE @@ -5190,10 +6943,10 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltread_dataset_ndl5_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_double_f_5 + END SUBROUTINE h5ltread_dataset_c_long_double_f_5 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_double_f_6 + ! Function: h5ltread_dataset_c_long_double_f_6 ! ! Purpose: Read a dataset ! @@ -5209,14 +6962,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_double_f_6(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_long_double_f_6(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_6 + !DEC$attributes dllexport :: h5ltread_dataset_c_long_double_f_6 !DEC$endif ! @@ -5225,13 +6978,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer INTERFACE INTEGER FUNCTION h5ltread_dataset_ndl6_c(loc_id,namelen,dset_name,type_id,buf,dims) & BIND(C,NAME='h5ltread_dataset_ndl6_c') - IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -5239,7 +6992,7 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6)) :: buf ! data buffer END FUNCTION h5ltread_dataset_ndl6_c END INTERFACE @@ -5247,10 +7000,10 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltread_dataset_ndl6_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_double_f_6 + END SUBROUTINE h5ltread_dataset_c_long_double_f_6 !------------------------------------------------------------------------- - ! Function: h5ltread_dataset_c_double_f_7 + ! Function: h5ltread_dataset_c_long_double_f_7 ! ! Purpose: Read a dataset ! @@ -5266,14 +7019,14 @@ CONTAINS ! !------------------------------------------------------------------------- - SUBROUTINE h5ltread_dataset_c_double_f_7(loc_id, dset_name, buf, dims, errcode ) + SUBROUTINE h5ltread_dataset_c_long_double_f_7(loc_id, dset_name, buf, dims, errcode ) IMPLICIT NONE ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_HL_DLL) - !DEC$attributes dllexport :: h5ltread_dataset_c_double_f_7 + !DEC$attributes dllexport :: h5ltread_dataset_c_long_double_f_7 !DEC$endif ! @@ -5282,13 +7035,13 @@ CONTAINS INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf INTEGER :: errcode ! error code INTEGER(size_t) :: namelen ! name length - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer INTERFACE INTEGER FUNCTION h5ltread_dataset_ndl7_c(loc_id,namelen,dset_name,type_id,buf,dims) & BIND(C,NAME='h5ltread_dataset_ndl7_c') - IMPORT :: C_CHAR, C_DOUBLE + IMPORT :: C_CHAR, C_LONG_DOUBLE IMPORT :: HID_T, SIZE_T, HSIZE_T IMPLICIT NONE INTEGER(hid_t), INTENT(in) :: loc_id ! file or group identifier @@ -5296,7 +7049,7 @@ CONTAINS INTEGER(size_t) :: namelen ! length of name buffer CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(in) :: dset_name ! name of the dataset INTEGER(hsize_t), DIMENSION(*), INTENT(in) :: dims ! size of the buffer buf - REAL(KIND=C_DOUBLE), INTENT(inout), & + REAL(KIND=C_LONG_DOUBLE), INTENT(inout), & DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5),dims(6),dims(7)) :: buf ! data buffer END FUNCTION h5ltread_dataset_ndl7_c END INTERFACE @@ -5304,7 +7057,7 @@ CONTAINS namelen = LEN(dset_name) errcode = h5ltread_dataset_ndl7_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims) - END SUBROUTINE h5ltread_dataset_c_double_f_7 + END SUBROUTINE h5ltread_dataset_c_long_double_f_7 !------------------------------------------------------------------------- diff --git a/hl/fortran/src/hdf5_hl_fortrandll.def.in b/hl/fortran/src/hdf5_hl_fortrandll.def.in new file mode 100644 index 0000000..e4a29a5 --- /dev/null +++ b/hl/fortran/src/hdf5_hl_fortrandll.def.in @@ -0,0 +1,171 @@ +EXPORTS +; H5DS +H5DS_mp_H5DSSET_SCALE_F +H5DS_mp_H5DSATTACH_SCALE_F +H5DS_mp_H5DSDETACH_SCALE_F +H5DS_mp_H5DSIS_ATTACHED_F +H5DS_mp_H5DSIS_SCALE_F +H5DS_mp_H5DSSET_LABEL_F +H5DS_mp_H5DSGET_LABEL_F +H5DS_mp_H5DSGET_SCALE_NAME_F +H5DS_mp_H5DSGET_NUM_SCALES_F +; H5IM +H5I_mp_H5IMMAKE_IMAGE_8BIT_F +H5I_mp_H5IMREAD_IMAGE_F +H5I_mp_H5IMMAKE_IMAGE_24BIT_F +H5I_mp_H5IMGET_IMAGE_INFO_F +H5I_mp_H5IMIS_IMAGE_F +H5I_mp_H5IMMAKE_PALETTE_F +H5I_mp_H5IMLINK_PALETTE_F +H5I_mp_H5IMUNLINK_PALETTE_F +H5I_mp_H5IMGET_NPALETTES_F +H5I_mp_H5IMGET_PALETTE_INFO_F +H5I_mp_H5IMGET_PALETTE_F +H5I_mp_H5IMIS_PALETTE_F +; H5LT +H5LT_mp_H5LTMAKE_DATASET_F_INT1 +H5LT_mp_H5LTMAKE_DATASET_F_INT2 +H5LT_mp_H5LTMAKE_DATASET_F_INT3 +H5LT_mp_H5LTMAKE_DATASET_F_INT4 +H5LT_mp_H5LTMAKE_DATASET_F_INT5 +H5LT_mp_H5LTMAKE_DATASET_F_INT6 +H5LT_mp_H5LTMAKE_DATASET_F_INT7 +H5LT_mp_H5LTMAKE_DATASET_F_C_FLOAT1 +H5LT_mp_H5LTMAKE_DATASET_F_C_FLOAT2 +H5LT_mp_H5LTMAKE_DATASET_F_C_FLOAT3 +H5LT_mp_H5LTMAKE_DATASET_F_C_FLOAT4 +H5LT_mp_H5LTMAKE_DATASET_F_C_FLOAT5 +H5LT_mp_H5LTMAKE_DATASET_F_C_FLOAT6 +H5LT_mp_H5LTMAKE_DATASET_F_C_FLOAT7 +H5LT_mp_H5LTMAKE_DATASET_F_C_DOUBLE1 +H5LT_mp_H5LTMAKE_DATASET_F_C_DOUBLE2 +H5LT_mp_H5LTMAKE_DATASET_F_C_DOUBLE3 +H5LT_mp_H5LTMAKE_DATASET_F_C_DOUBLE4 +H5LT_mp_H5LTMAKE_DATASET_F_C_DOUBLE5 +H5LT_mp_H5LTMAKE_DATASET_F_C_DOUBLE6 +H5LT_mp_H5LTMAKE_DATASET_F_C_DOUBLE7 +H5LT_mp_H5LTMAKE_DATASET_F_C_LONG_DOUBLE1 +H5LT_mp_H5LTMAKE_DATASET_F_C_LONG_DOUBLE2 +H5LT_mp_H5LTMAKE_DATASET_F_C_LONG_DOUBLE3 +H5LT_mp_H5LTMAKE_DATASET_F_C_LONG_DOUBLE4 +H5LT_mp_H5LTMAKE_DATASET_F_C_LONG_DOUBLE5 +H5LT_mp_H5LTMAKE_DATASET_F_C_LONG_DOUBLE6 +H5LT_mp_H5LTMAKE_DATASET_F_C_LONG_DOUBLE7 +H5LT_mp_H5LTREAD_DATASET_F_INT1 +H5LT_mp_H5LTREAD_DATASET_F_INT2 +H5LT_mp_H5LTREAD_DATASET_F_INT3 +H5LT_mp_H5LTREAD_DATASET_F_INT4 +H5LT_mp_H5LTREAD_DATASET_F_INT5 +H5LT_mp_H5LTREAD_DATASET_F_INT6 +H5LT_mp_H5LTREAD_DATASET_F_INT7 +H5LT_mp_H5LTREAD_DATASET_F_C_FLOAT1 +H5LT_mp_H5LTREAD_DATASET_F_C_FLOAT2 +H5LT_mp_H5LTREAD_DATASET_F_C_FLOAT3 +H5LT_mp_H5LTREAD_DATASET_F_C_FLOAT4 +H5LT_mp_H5LTREAD_DATASET_F_C_FLOAT5 +H5LT_mp_H5LTREAD_DATASET_F_C_FLOAT6 +H5LT_mp_H5LTREAD_DATASET_F_C_FLOAT7 +H5LT_mp_H5LTREAD_DATASET_F_C_DOUBLE1 +H5LT_mp_H5LTREAD_DATASET_F_C_DOUBLE2 +H5LT_mp_H5LTREAD_DATASET_F_C_DOUBLE3 +H5LT_mp_H5LTREAD_DATASET_F_C_DOUBLE4 +H5LT_mp_H5LTREAD_DATASET_F_C_DOUBLE5 +H5LT_mp_H5LTREAD_DATASET_F_C_DOUBLE6 +H5LT_mp_H5LTREAD_DATASET_F_C_DOUBLE7 +H5LT_mp_H5LTREAD_DATASET_F_C_LONG_DOUBLE1 +H5LT_mp_H5LTREAD_DATASET_F_C_LONG_DOUBLE2 +H5LT_mp_H5LTREAD_DATASET_F_C_LONG_DOUBLE3 +H5LT_mp_H5LTREAD_DATASET_F_C_LONG_DOUBLE4 +H5LT_mp_H5LTREAD_DATASET_F_C_LONG_DOUBLE5 +H5LT_mp_H5LTREAD_DATASET_F_C_LONG_DOUBLE6 +H5LT_mp_H5LTREAD_DATASET_F_C_LONG_DOUBLE7 +H5LT_mp_H5LTMAKE_DATASET_INT_F_1 +H5LT_mp_H5LTMAKE_DATASET_INT_F_2 +H5LT_mp_H5LTMAKE_DATASET_INT_F_3 +H5LT_mp_H5LTMAKE_DATASET_INT_F_4 +H5LT_mp_H5LTMAKE_DATASET_INT_F_5 +H5LT_mp_H5LTMAKE_DATASET_INT_F_6 +H5LT_mp_H5LTMAKE_DATASET_INT_F_7 +H5LT_mp_H5LTMAKE_DATASET_C_FLOAT_F_1 +H5LT_mp_H5LTMAKE_DATASET_C_FLOAT_F_2 +H5LT_mp_H5LTMAKE_DATASET_C_FLOAT_F_3 +H5LT_mp_H5LTMAKE_DATASET_C_FLOAT_F_4 +H5LT_mp_H5LTMAKE_DATASET_C_FLOAT_F_5 +H5LT_mp_H5LTMAKE_DATASET_C_FLOAT_F_6 +H5LT_mp_H5LTMAKE_DATASET_C_FLOAT_F_7 +H5LT_mp_H5LTMAKE_DATASET_C_DOUBLE_F_1 +H5LT_mp_H5LTMAKE_DATASET_C_DOUBLE_F_2 +H5LT_mp_H5LTMAKE_DATASET_C_DOUBLE_F_3 +H5LT_mp_H5LTMAKE_DATASET_C_DOUBLE_F_4 +H5LT_mp_H5LTMAKE_DATASET_C_DOUBLE_F_5 +H5LT_mp_H5LTMAKE_DATASET_C_DOUBLE_F_5 +H5LT_mp_H5LTMAKE_DATASET_C_DOUBLE_F_5 +H5LT_mp_H5LTMAKE_DATASET_C_LONG_DOUBLE_F_1 +H5LT_mp_H5LTMAKE_DATASET_C_LONG_DOUBLE_F_2 +H5LT_mp_H5LTMAKE_DATASET_C_LONG_DOUBLE_F_3 +H5LT_mp_H5LTMAKE_DATASET_C_LONG_DOUBLE_F_4 +H5LT_mp_H5LTMAKE_DATASET_C_LONG_DOUBLE_F_5 +H5LT_mp_H5LTMAKE_DATASET_C_LONG_DOUBLE_F_5 +H5LT_mp_H5LTMAKE_DATASET_C_LONG_DOUBLE_F_5 +H5LT_mp_H5LTREAD_DATASET_INT_F_1 +H5LT_mp_H5LTREAD_DATASET_INT_F_2 +H5LT_mp_H5LTREAD_DATASET_INT_F_3 +H5LT_mp_H5LTREAD_DATASET_INT_F_4 +H5LT_mp_H5LTREAD_DATASET_INT_F_5 +H5LT_mp_H5LTREAD_DATASET_INT_F_6 +H5LT_mp_H5LTREAD_DATASET_INT_F_7 +H5LT_mp_H5LTREAD_DATASET_C_FLOAT_F_1 +H5LT_mp_H5LTREAD_DATASET_C_FLOAT_F_2 +H5LT_mp_H5LTREAD_DATASET_C_FLOAT_F_3 +H5LT_mp_H5LTREAD_DATASET_C_FLOAT_F_4 +H5LT_mp_H5LTREAD_DATASET_C_FLOAT_F_5 +H5LT_mp_H5LTREAD_DATASET_C_FLOAT_F_6 +H5LT_mp_H5LTREAD_DATASET_C_FLOAT_F_7 +H5LT_mp_H5LTREAD_DATASET_C_DOUBLE_F_1 +H5LT_mp_H5LTREAD_DATASET_C_DOUBLE_F_2 +H5LT_mp_H5LTREAD_DATASET_C_DOUBLE_F_3 +H5LT_mp_H5LTREAD_DATASET_C_DOUBLE_F_4 +H5LT_mp_H5LTREAD_DATASET_C_DOUBLE_F_5 +H5LT_mp_H5LTREAD_DATASET_C_DOUBLE_F_6 +H5LT_mp_H5LTREAD_DATASET_C_DOUBLE_F_7 +H5LT_mp_H5LTMAKE_DATASET_STRING_F +H5LT_mp_H5LTREAD_DATASET_STRING_F +H5LT_mp_H5LTSET_ATTRIBUTE_INT_F +H5LT_mp_H5LTSET_ATTRIBUTE_C_FLOAT_F +H5LT_mp_H5LTSET_ATTRIBUTE_DOUBLE_F +H5LT_mp_H5LTSET_ATTRIBUTE_STRING_F +H5LT_mp_H5LTGET_ATTRIBUTE_INT_F +H5LT_mp_H5LTGET_ATTRIBUTE_FLOAT_F +H5LT_mp_H5LTGET_ATTRIBUTE_DOUBLE_F +H5LT_mp_H5LTGET_ATTRIBUTE_STRING_F +H5LT_mp_H5LTGET_DATASET_NDIMS_F +H5LT_mp_H5LTFIND_DATASET_F +H5LT_mp_H5LTGET_DATASET_INFO_F +H5LT_mp_H5LTGET_ATTRIBUTE_NDIMS_F +H5LT_mp_H5LTGET_ATTRIBUTE_INFO_F +H5LT_mp_H5LTPATH_VALID_F +; H5TB +H5TB_mp_H5TBMAKE_TABLE_F +H5TB_mp_H5TBWRITE_FIELD_NAME_F_INT +H5TB_mp_H5TBWRITE_FIELD_NAME_F_C_FLOAT +H5TB_mp_H5TBWRITE_FIELD_NAME_F_C_DOUBLE +H5TB_mp_H5TBWRITE_FIELD_NAME_F_STRING +H5TB_mp_H5TBREAD_FIELD_NAME_F_INT +H5TB_mp_H5TBREAD_FIELD_NAME_F_C_FLOAT +H5TB_mp_H5TBREAD_FIELD_NAME_F_C_DOUBLE +H5TB_mp_H5TBREAD_FIELD_NAME_F_STRING +H5TB_mp_H5TBWRITE_FIELD_INDEX_F_INT +H5TB_mp_H5TBWRITE_FIELD_INDEX_F_C_FLOAT +H5TB_mp_H5TBWRITE_FIELD_INDEX_F_C_DOUBLE +H5TB_mp_H5TBWRITE_FIELD_INDEX_F_STRING +H5TB_mp_H5TBREAD_FIELD_INDEX_F_INT +H5TB_mp_H5TBREAD_FIELD_INDEX_F_C_FLOAT +H5TB_mp_H5TBREAD_FIELD_INDEX_F_C_DOUBLE +H5TB_mp_H5TBREAD_FIELD_INDEX_F_STRING +H5TB_mp_H5TBINSERT_FIELD_F_INT +H5TB_mp_H5TBINSERT_FIELD_F_C_FLOAT +H5TB_mp_H5TBINSERT_FIELD_F_C_DOUBLE +H5TB_mp_H5TBINSERT_FIELD_F_STRING +H5TB_mp_H5TBDELETE_FIELD_F +H5TB_mp_H5TBGET_TABLE_INFO_F +H5TB_mp_H5TBGET_FIELD_INFO_F -- cgit v0.12