summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-23 14:39:31 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-04-23 14:39:31 (GMT)
commit36eec4b620f4ed7502ab832ae3baf3971f37e7f5 (patch)
tree9cf79b55d1c3c281c0c9d7ce1c36cd676e989ee5
parent00dfc443c6aa74b961488f9e3e1c6b7e84deee4a (diff)
downloadhdf5-36eec4b620f4ed7502ab832ae3baf3971f37e7f5.zip
hdf5-36eec4b620f4ed7502ab832ae3baf3971f37e7f5.tar.gz
hdf5-36eec4b620f4ed7502ab832ae3baf3971f37e7f5.tar.bz2
[svn-r26896] added LONG_DOUBLE interfaces
-rw-r--r--hl/fortran/src/H5LTff.F901755
-rw-r--r--hl/fortran/src/hdf5_hl_fortrandll.def.in171
2 files changed, 1925 insertions, 1 deletions
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,6 +1535,450 @@ CONTAINS
END SUBROUTINE h5ltmake_dataset_f_c_double7
!-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_f_c_long_double1
+ !
+ ! Purpose: Creates and writes a dataset of a type TYPE_ID
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: pvn@ncsa.uiuc.edu
+ !
+ ! Date: September 1, 2004
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_f_c_long_double1(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 :: 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, 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
+ REAL(KIND=C_LONG_DOUBLE), INTENT(in), DIMENSION(*) :: buf ! data buffer
+ INTEGER :: errcode ! error code
+ INTEGER(size_t) :: namelen ! name length
+
+ INTERFACE
+ 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
+ !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, 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 = h5ltmake_dataset_dl1_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
+
+ END SUBROUTINE h5ltmake_dataset_f_c_long_double1
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_f_c_long_double2
+ !
+ ! Purpose: Creates and writes a dataset of a type TYPE_ID
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: pvn@ncsa.uiuc.edu
+ !
+ ! Date: September 1, 2004
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_f_c_long_double2(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 :: 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, 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
+ REAL(KIND=C_LONG_DOUBLE), INTENT(in), &
+ DIMENSION(dims(1),dims(2)) :: buf ! data buffer
+
+ INTERFACE
+ 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
+ REAL(KIND=C_LONG_DOUBLE), INTENT(in), &
+ DIMENSION(dims(1),dims(2)) :: buf ! data buffer
+ END FUNCTION h5ltmake_dataset_dl2_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ errcode = h5ltmake_dataset_dl2_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
+
+ END SUBROUTINE h5ltmake_dataset_f_c_long_double2
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_f_c_long_double3
+ !
+ ! Purpose: Creates and writes a dataset of a type TYPE_ID
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: pvn@ncsa.uiuc.edu
+ !
+ ! Date: September 1, 2004
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_f_c_long_double3(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 :: 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, 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
+ REAL(KIND=C_LONG_DOUBLE), INTENT(in), &
+ DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
+
+ INTERFACE
+ 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
+ REAL(KIND=C_LONG_DOUBLE), INTENT(in), &
+ DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ END FUNCTION h5ltmake_dataset_dl3_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ errcode = h5ltmake_dataset_dl3_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
+
+ END SUBROUTINE h5ltmake_dataset_f_c_long_double3
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_f_c_long_double4
+ !
+ ! Purpose: Creates and writes a dataset of a type TYPE_ID
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 7, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ 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 :: 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, 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
+ REAL(KIND=C_LONG_DOUBLE), INTENT(in), &
+ DIMENSION(dims(1),dims(2),dims(3), dims(4)) :: buf ! data buffer
+
+ INTERFACE
+ 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
+ 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 = h5ltmake_dataset_dl4_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
+
+ END SUBROUTINE h5ltmake_dataset_f_c_long_double4
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_f_c_long_double5
+ !
+ ! Purpose: Creates and writes a dataset of a type TYPE_ID
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 7, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ 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 :: 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, 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
+ 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_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
+ 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 = h5ltmake_dataset_dl5_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
+
+ END SUBROUTINE h5ltmake_dataset_f_c_long_double5
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_f_c_long_double6
+ !
+ ! Purpose: Creates and writes a dataset of a type TYPE_ID
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 7, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ 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 :: 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, 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
+ 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_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
+ 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 = h5ltmake_dataset_dl6_c(loc_id,namelen,dset_name,rank,dims,type_id,buf)
+
+ END SUBROUTINE h5ltmake_dataset_f_c_long_double6
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_f_c_long_double7
+ !
+ ! Purpose: Creates and writes a dataset of a type TYPE_ID
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 7, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ 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 :: 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, 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
+ 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_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
+ 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 = 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_int1
!
! Purpose: Read a dataset of a type TYPE_ID
@@ -2765,6 +3251,429 @@ CONTAINS
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
@@ -3635,7 +4544,6 @@ CONTAINS
END SUBROUTINE h5ltmake_dataset_c_float_f_7
-
!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_c_double_f_1
!
@@ -4070,6 +4978,439 @@ CONTAINS
END SUBROUTINE h5ltmake_dataset_c_double_f_7
!-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_c_long_double_f_1
+ !
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: pvn@ncsa.uiuc.edu
+ !
+ ! Date: September 22, 2004
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_c_long_double_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_long_double_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 :: 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_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
+ 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_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_ndl1_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
+
+ END SUBROUTINE h5ltmake_dataset_c_long_double_f_1
+
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_c_long_double_f_2
+ !
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: pvn@ncsa.uiuc.edu
+ !
+ ! Date: September 22, 2004
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_c_long_double_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_long_double_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_LONG_DOUBLE), INTENT(in), &
+ 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_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
+ 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_ndl2_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
+
+ END SUBROUTINE h5ltmake_dataset_c_long_double_f_2
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_c_long_double_f_3
+ !
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: pvn@ncsa.uiuc.edu
+ !
+ ! Date: September 22, 2004
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_c_long_double_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_c_long_double_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_LONG_DOUBLE), INTENT(in), &
+ 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_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
+ REAL(KIND=C_LONG_DOUBLE), INTENT(in), &
+ DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ END FUNCTION h5ltmake_dataset_ndl3_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ errcode = h5ltmake_dataset_ndl3_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
+
+ END SUBROUTINE h5ltmake_dataset_c_long_double_f_3
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_c_long_double_f_4
+ !
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 8, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_c_long_double_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_c_long_double_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_LONG_DOUBLE), INTENT(in), &
+ 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_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
+ REAL(KIND=C_LONG_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_ndl4_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
+
+ END SUBROUTINE h5ltmake_dataset_c_long_double_f_4
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_c_long_double_f_5
+ !
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 8, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_c_long_double_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_c_long_double_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_LONG_DOUBLE), INTENT(in), &
+ 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_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
+ 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_ndl5_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ errcode = h5ltmake_dataset_ndl5_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
+
+ END SUBROUTINE h5ltmake_dataset_c_long_double_f_5
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_c_long_double_f_6
+ !
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 8, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_c_long_double_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_c_long_double_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_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_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
+ 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_LONG_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_ndl6_c(loc_id,namelen,dset_name,rank,dims,H5T_NATIVE_DOUBLE,buf)
+
+ END SUBROUTINE h5ltmake_dataset_c_long_double_f_6
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltmake_dataset_c_long_double_f_7
+ !
+ ! Purpose: Creates and writes a dataset of H5T_NATIVE_DOUBLE type
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 8, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltmake_dataset_c_long_double_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_c_long_double_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_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_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
+ 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_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_ndl7_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ 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: h5ltread_dataset_int_f_1
!
! Purpose: Read a dataset
@@ -5306,6 +6647,418 @@ CONTAINS
END SUBROUTINE h5ltread_dataset_c_double_f_7
+ !-------------------------------------------------------------------------
+ ! Function: h5ltread_dataset_c_long_double_f_1
+ !
+ ! Purpose: Read a dataset
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: pvn@ncsa.uiuc.edu
+ !
+ ! Date: September 22, 2004
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltread_dataset_c_long_double_f_1(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_long_double_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(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)) :: 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_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(inout), &
+ DIMENSION(dims(1)) :: buf ! data buffer
+ END FUNCTION h5ltread_dataset_ndl1_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ errcode = h5ltread_dataset_ndl1_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
+
+ END SUBROUTINE h5ltread_dataset_c_long_double_f_1
+
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltread_dataset_c_long_double_f_2
+ !
+ ! Purpose: Read a dataset
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: pvn@ncsa.uiuc.edu
+ !
+ ! Date: September 22, 2004
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltread_dataset_c_long_double_f_2(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_long_double_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(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_ndl2_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_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
+ 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(inout), &
+ DIMENSION(dims(1),dims(2)) :: buf ! data buffer
+ END FUNCTION h5ltread_dataset_ndl2_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ errcode = h5ltread_dataset_ndl2_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
+
+ END SUBROUTINE h5ltread_dataset_c_long_double_f_2
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltread_dataset_c_long_double_f_3
+ !
+ ! Purpose: Read a dataset
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: pvn@ncsa.uiuc.edu
+ !
+ ! Date: September 22, 2004
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ SUBROUTINE h5ltread_dataset_c_long_double_f_3(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_long_double_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(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_ndl3_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_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
+ 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(inout), &
+ DIMENSION(dims(1),dims(2),dims(3)) :: buf ! data buffer
+ END FUNCTION h5ltread_dataset_ndl3_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ errcode = h5ltread_dataset_ndl3_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
+
+ END SUBROUTINE h5ltread_dataset_c_long_double_f_3
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltread_dataset_c_long_double_f_4
+ !
+ ! Purpose: Read a dataset
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 8, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ 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_long_double_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(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_ndl4_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_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
+ 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(inout), &
+ DIMENSION(dims(1),dims(2),dims(3),dims(4)) :: buf ! data buffer
+ END FUNCTION h5ltread_dataset_ndl4_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ errcode = h5ltread_dataset_ndl4_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
+
+ END SUBROUTINE h5ltread_dataset_c_long_double_f_4
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltread_dataset_c_long_double_f_5
+ !
+ ! Purpose: Read a dataset
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 8, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ 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_long_double_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(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_ndl5_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_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
+ 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(inout), &
+ DIMENSION(dims(1),dims(2),dims(3),dims(4),dims(5)) :: buf ! data buffer
+ END FUNCTION h5ltread_dataset_ndl5_c
+ END INTERFACE
+
+ namelen = LEN(dset_name)
+ errcode = h5ltread_dataset_ndl5_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
+
+ END SUBROUTINE h5ltread_dataset_c_long_double_f_5
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltread_dataset_c_long_double_f_6
+ !
+ ! Purpose: Read a dataset
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 8, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ 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_long_double_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(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_ndl6_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_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
+ 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(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
+
+ namelen = LEN(dset_name)
+ errcode = h5ltread_dataset_ndl6_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
+
+ END SUBROUTINE h5ltread_dataset_c_long_double_f_6
+
+ !-------------------------------------------------------------------------
+ ! Function: h5ltread_dataset_c_long_double_f_7
+ !
+ ! Purpose: Read a dataset
+ !
+ ! Return: Success: 0, Failure: -1
+ !
+ ! Programmer: M. Scot Breitenfeld
+ !
+ ! Date: March 8, 2011
+ !
+ ! Comments:
+ !
+ ! Modifications:
+ !
+ !-------------------------------------------------------------------------
+
+ 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_long_double_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(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_ndl7_c(loc_id,namelen,dset_name,type_id,buf,dims) &
+ BIND(C,NAME='h5ltread_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
+ 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(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
+
+ namelen = LEN(dset_name)
+ errcode = h5ltread_dataset_ndl7_c(loc_id,namelen,dset_name,H5T_NATIVE_DOUBLE,buf,dims)
+
+ END SUBROUTINE h5ltread_dataset_c_long_double_f_7
+
!-------------------------------------------------------------------------
! Function: h5ltmake_dataset_string_f
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